/*===========================================================================*/
/*   (Unsafe/url.scm)                                                        */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Unsafe/url.scm -indent -o objs/obj_u/Unsafe/url.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___URL_TYPE_DEFINITIONS
#define BGL___URL_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;


#endif													// BGL___URL_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_httpzd2portzd2grammarz00zz__urlz00 = BUNSPEC;
	static long BGl_charzd2valuezd2zz__urlz00(unsigned char);
	static obj_t BGl_encodezd2charzd2zz__urlz00(obj_t, long, unsigned char);
	static obj_t BGl_httpzd2abspathzd2grammarz00zz__urlz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_wwwzd2formzd2urldecodez00zz__urlz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urizd2encodezd2componentz00zz__urlz00(obj_t);
	static obj_t BGl_z62urizd2encodezb0zz__urlz00(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__urlz00 = BUNSPEC;
	extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza33483ze3ze5zz__urlz00(obj_t);
	static obj_t BGl_abspathzd2grammarzd2zz__urlz00 = BUNSPEC;
	static obj_t BGl_z62urizd2decodezd2componentz62zz__urlz00(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__urlz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgcz00(long, char *);
	static obj_t BGl_urlzd2decodezf2setz20zz__urlz00(obj_t, obj_t);
	static obj_t BGl_urlzd2pathzd2encodezf2setzf2zz__urlz00(obj_t, obj_t);
	static obj_t BGl_urizd2grammarzd2zz__urlz00 = BUNSPEC;
	static obj_t BGl_z62wwwzd2formzd2urldecodez62zz__urlz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urizd2decodezd2componentz00zz__urlz00(obj_t);
	static obj_t BGl_formzd2urlencodezd2zz__urlz00(obj_t, unsigned char);
	static obj_t BGl_toplevelzd2initzd2zz__urlz00(void);
	BGL_EXPORTED_DECL obj_t BGl_urlzd2encodezd2zz__urlz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza33486ze3ze5zz__urlz00(obj_t);
	static long BGl_encodezd2stringze70z35zz__urlz00(obj_t, long, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urlzd2decodez12zc0zz__urlz00(obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62urlzf3z91zz__urlz00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__urlz00(void);
	static long BGl_urlzd2decodezd2countz00zz__urlz00(obj_t, long, obj_t);
	static long BGl_countzd2stringze70z35zz__urlz00(obj_t);
	extern obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
	static obj_t BGl_genericzd2initzd2zz__urlz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urizd2decodezd2zz__urlz00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__urlz00(void);
	static obj_t BGl_z62httpzd2urlzd2parsez62zz__urlz00(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__urlz00(void);
	static obj_t BGl_z62urlzd2encodezb0zz__urlz00(obj_t, obj_t);
	static obj_t BGl_stringzd2decodeze70z35zz__urlz00(obj_t);
	static obj_t BGl_objectzd2initzd2zz__urlz00(void);
	static obj_t BGl_absolutezd2httpzd2urizd2grammarzd2zz__urlz00 = BUNSPEC;
	static obj_t BGl_z62urlzd2parsezb0zz__urlz00(obj_t, obj_t);
	extern obj_t BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(obj_t,
		unsigned char, unsigned char);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_urlzf3zf3zz__urlz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza33489ze3ze5zz__urlz00(obj_t);
	static obj_t BGl_urlzd2decodezf2setz12z32zz__urlz00(obj_t, obj_t);
	static bool_t BGl_charzd2hexnumericzf3z21zz__urlz00(unsigned char);
	static obj_t BGl_z62urizd2decodezb0zz__urlz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31410ze3ze5zz__urlz00(obj_t, obj_t);
	extern long rgc_buffer_fixnum(obj_t);
	extern obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32641ze3ze5zz__urlz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_thezd2substringze70z35zz__urlz00(obj_t, int, int);
	static obj_t BGl_thezd2substringze71z35zz__urlz00(obj_t, int, int);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_z62xzd2wwwzd2formzd2urlencodezb0zz__urlz00(obj_t, obj_t);
	static obj_t BGl_intzd2ze3charze70zd6zz__urlz00(long);
	extern int rgc_buffer_unget_char(obj_t, int);
	static obj_t BGl_z62zc3z04anonymousza32456ze3ze5zz__urlz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_wwwzd2formzd2urlencodez00zz__urlz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza33339ze3ze5zz__urlz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urlzd2parsezd2zz__urlz00(obj_t);
	static obj_t BGl_methodzd2initzd2zz__urlz00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urizd2decodezd2componentz12z12zz__urlz00(obj_t);
	static obj_t BGl_thezd2failureze70z35zz__urlz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urlzd2decodezd2zz__urlz00(obj_t);
	static obj_t BGl_thezd2failureze71z35zz__urlz00(obj_t);
	static obj_t BGl_symbol4139z00zz__urlz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_urlzd2pathzd2encodez00zz__urlz00(obj_t);
	static obj_t BGl_z62urlzd2pathzd2encodez62zz__urlz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31728ze3ze5zz__urlz00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_xzd2wwwzd2formzd2urlencodezd2zz__urlz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2urlzd2parsez00zz__urlz00(obj_t);
	static obj_t BGl_parsezd2errorzd2zz__urlz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33179ze3ze5zz__urlz00(obj_t, obj_t);
	static obj_t BGl_z62wwwzd2formzd2urlencodez62zz__urlz00(obj_t, obj_t);
	extern bool_t rgc_fill_buffer(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(obj_t,
		obj_t);
	static obj_t BGl_z62urlzd2sanszd2protocolzd2parsezb0zz__urlz00(obj_t, obj_t,
		obj_t);
	extern obj_t make_string(long, unsigned char);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_z62urlzd2decodezb0zz__urlz00(obj_t, obj_t);
	static obj_t BGl_z62urlzd2decodez12za2zz__urlz00(obj_t, obj_t);
	static long BGl_charzd2valueze70z35zz__urlz00(unsigned char);
	static obj_t BGl_list4131z00zz__urlz00 = BUNSPEC;
	static obj_t BGl_httpzd2urizd2grammarz00zz__urlz00 = BUNSPEC;
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	static long BGl_countzd2argze70z35zz__urlz00(obj_t);
	static obj_t BGl_z62urizd2decodezd2componentz12z70zz__urlz00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_urizd2encodezd2zz__urlz00(obj_t);
	static obj_t BGl_absolutezd2urizd2grammarz00zz__urlz00 = BUNSPEC;
	static obj_t BGl_z62urizd2encodezd2componentz62zz__urlz00(obj_t, obj_t);
	static obj_t BGl_urlzd2stringzd2decodezd2innerz12zc0zz__urlz00(obj_t, long,
		long, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31594ze3ze5zz__urlz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_urizd2decodezd2componentz12zd2envzc0zz__urlz00,
		BgL_bgl_za762uriza7d2decodeza74171za7,
		BGl_z62urizd2decodezd2componentz12z70zz__urlz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urlzd2parsezd2envz00zz__urlz00,
		BgL_bgl_za762urlza7d2parseza7b4172za7, BGl_z62urlzd2parsezb0zz__urlz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4128z00zz__urlz00,
		BgL_bgl_string4128za700za7za7_4173za7, "Illegal character", 17);
	      BGL_DEFINE_STRING(BGl_string4129z00zz__urlz00,
		BgL_bgl_string4129za700za7za7_4174za7, "regular-grammar", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_urizd2decodezd2componentzd2envzd2zz__urlz00,
		BgL_bgl_za762uriza7d2decodeza74175za7,
		BGl_z62urizd2decodezd2componentz62zz__urlz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4130z00zz__urlz00,
		BgL_bgl_string4130za700za7za7_4176za7, "Illegal match", 13);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4124z00zz__urlz00,
		BgL_bgl_za762za7c3za704anonymo4177za7,
		BGl_z62zc3z04anonymousza31728ze3ze5zz__urlz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4125z00zz__urlz00,
		BgL_bgl_za762za7c3za704anonymo4178za7,
		BGl_z62zc3z04anonymousza32641ze3ze5zz__urlz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string4132z00zz__urlz00,
		BgL_bgl_string4132za700za7za7_4179za7, "/", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4126z00zz__urlz00,
		BgL_bgl_za762za7c3za704anonymo4180za7,
		BGl_z62zc3z04anonymousza33179ze3ze5zz__urlz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4133z00zz__urlz00,
		BgL_bgl_string4133za700za7za7_4181za7, "https", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4127z00zz__urlz00,
		BgL_bgl_za762za7c3za704anonymo4182za7,
		BGl_z62zc3z04anonymousza33339ze3ze5zz__urlz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4134z00zz__urlz00,
		BgL_bgl_string4134za700za7za7_4183za7, "Illegal range `~a'", 18);
	      BGL_DEFINE_STRING(BGl_string4135z00zz__urlz00,
		BgL_bgl_string4135za700za7za7_4184za7, "the-substring", 13);
	      BGL_DEFINE_STRING(BGl_string4136z00zz__urlz00,
		BgL_bgl_string4136za700za7za7_4185za7, "http", 4);
	      BGL_DEFINE_STRING(BGl_string4137z00zz__urlz00,
		BgL_bgl_string4137za700za7za7_4186za7, "*", 1);
	      BGL_DEFINE_STRING(BGl_string4138z00zz__urlz00,
		BgL_bgl_string4138za700za7za7_4187za7, "file", 4);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urlzd2decodez12zd2envz12zz__urlz00,
		BgL_bgl_za762urlza7d2decodeza74188za7, BGl_z62urlzd2decodez12za2zz__urlz00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4140z00zz__urlz00,
		BgL_bgl_string4140za700za7za7_4189za7, "url-parse", 9);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_wwwzd2formzd2urldecodezd2envzd2zz__urlz00,
		BgL_bgl_za762wwwza7d2formza7d24190za7,
		BGl_z62wwwzd2formzd2urldecodez62zz__urlz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4141z00zz__urlz00,
		BgL_bgl_string4141za700za7za7_4191za7, "{~a}~a", 6);
	      BGL_DEFINE_STRING(BGl_string4142z00zz__urlz00,
		BgL_bgl_string4142za700za7za7_4192za7, "input-port or string", 20);
	      BGL_DEFINE_STRING(BGl_string4143z00zz__urlz00,
		BgL_bgl_string4143za700za7za7_4193za7, "url-sans-protocol-parse", 23);
	      BGL_DEFINE_STRING(BGl_string4144z00zz__urlz00,
		BgL_bgl_string4144za700za7za7_4194za7, "/tmp/bigloo/runtime/Unsafe/url.scm",
		34);
	      BGL_DEFINE_STRING(BGl_string4145z00zz__urlz00,
		BgL_bgl_string4145za700za7za7_4195za7, "&url-sans-protocol-parse", 24);
	      BGL_DEFINE_STRING(BGl_string4146z00zz__urlz00,
		BgL_bgl_string4146za700za7za7_4196za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string4147z00zz__urlz00,
		BgL_bgl_string4147za700za7za7_4197za7, "# \"'`&=%?:\n^[]\\<>;,{|}()~$!+@",
		29);
	      BGL_DEFINE_STRING(BGl_string4148z00zz__urlz00,
		BgL_bgl_string4148za700za7za7_4198za7, "&url-path-encode", 16);
	      BGL_DEFINE_STRING(BGl_string4149z00zz__urlz00,
		BgL_bgl_string4149za700za7za7_4199za7, " \"`%\n^[]\\<>{|}", 14);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urizd2decodezd2envz00zz__urlz00,
		BgL_bgl_za762uriza7d2decodeza74200za7, BGl_z62urizd2decodezb0zz__urlz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4150z00zz__urlz00,
		BgL_bgl_string4150za700za7za7_4201za7, "&uri-encode", 11);
	      BGL_DEFINE_STRING(BGl_string4151z00zz__urlz00,
		BgL_bgl_string4151za700za7za7_4202za7, "# \"`+=%?:\n^[]\\<>;/@&$,{|}", 25);
	      BGL_DEFINE_STRING(BGl_string4152z00zz__urlz00,
		BgL_bgl_string4152za700za7za7_4203za7, "&uri-encode-component", 21);
	      BGL_DEFINE_STRING(BGl_string4153z00zz__urlz00,
		BgL_bgl_string4153za700za7za7_4204za7, "~a://~a@~a:~a~a", 15);
	      BGL_DEFINE_STRING(BGl_string4154z00zz__urlz00,
		BgL_bgl_string4154za700za7za7_4205za7, "~a://~a:~a~a", 12);
	      BGL_DEFINE_STRING(BGl_string4155z00zz__urlz00,
		BgL_bgl_string4155za700za7za7_4206za7, "&url-encode", 11);
	      BGL_DEFINE_STRING(BGl_string4156z00zz__urlz00,
		BgL_bgl_string4156za700za7za7_4207za7, "&url?", 5);
	      BGL_DEFINE_STRING(BGl_string4157z00zz__urlz00,
		BgL_bgl_string4157za700za7za7_4208za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string4158z00zz__urlz00,
		BgL_bgl_string4158za700za7za7_4209za7, "&url-decode", 11);
	      BGL_DEFINE_STRING(BGl_string4159z00zz__urlz00,
		BgL_bgl_string4159za700za7za7_4210za7, "#$&+,/:;=?@", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_wwwzd2formzd2urlencodezd2envzd2zz__urlz00,
		BgL_bgl_za762wwwza7d2formza7d24211za7,
		BGl_z62wwwzd2formzd2urlencodez62zz__urlz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urlzd2decodezd2envz00zz__urlz00,
		BgL_bgl_za762urlza7d2decodeza74212za7, BGl_z62urlzd2decodezb0zz__urlz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urlzd2pathzd2encodezd2envzd2zz__urlz00,
		BgL_bgl_za762urlza7d2pathza7d24213za7,
		BGl_z62urlzd2pathzd2encodez62zz__urlz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urizd2encodezd2envz00zz__urlz00,
		BgL_bgl_za762uriza7d2encodeza74214za7, BGl_z62urizd2encodezb0zz__urlz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4160z00zz__urlz00,
		BgL_bgl_string4160za700za7za7_4215za7, "&uri-decode", 11);
	      BGL_DEFINE_STRING(BGl_string4161z00zz__urlz00,
		BgL_bgl_string4161za700za7za7_4216za7, "&uri-decode-component", 21);
	      BGL_DEFINE_STRING(BGl_string4162z00zz__urlz00,
		BgL_bgl_string4162za700za7za7_4217za7, "&url-decode!", 12);
	      BGL_DEFINE_STRING(BGl_string4163z00zz__urlz00,
		BgL_bgl_string4163za700za7za7_4218za7, "&uri-decode-component!", 22);
	      BGL_DEFINE_STRING(BGl_string4164z00zz__urlz00,
		BgL_bgl_string4164za700za7za7_4219za7, "&www-form-urlencode", 19);
	      BGL_DEFINE_STRING(BGl_string4165z00zz__urlz00,
		BgL_bgl_string4165za700za7za7_4220za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string4166z00zz__urlz00,
		BgL_bgl_string4166za700za7za7_4221za7, "&x-www-form-urlencode", 21);
	      BGL_DEFINE_STRING(BGl_string4167z00zz__urlz00,
		BgL_bgl_string4167za700za7za7_4222za7, ";&", 2);
	      BGL_DEFINE_STRING(BGl_string4168z00zz__urlz00,
		BgL_bgl_string4168za700za7za7_4223za7, "=", 1);
	      BGL_DEFINE_STRING(BGl_string4169z00zz__urlz00,
		BgL_bgl_string4169za700za7za7_4224za7, "&www-form-urldecode", 19);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2urlzd2parsezd2envzd2zz__urlz00,
		BgL_bgl_za762httpza7d2urlza7d24225za7,
		BGl_z62httpzd2urlzd2parsez62zz__urlz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4170z00zz__urlz00,
		BgL_bgl_string4170za700za7za7_4226za7, "__url", 5);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urlzd2encodezd2envz00zz__urlz00,
		BgL_bgl_za762urlza7d2encodeza74227za7, BGl_z62urlzd2encodezb0zz__urlz00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_urlzd2sanszd2protocolzd2parsezd2envz00zz__urlz00,
		BgL_bgl_za762urlza7d2sansza7d24228za7,
		BGl_z62urlzd2sanszd2protocolzd2parsezb0zz__urlz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_urizd2encodezd2componentzd2envzd2zz__urlz00,
		BgL_bgl_za762uriza7d2encodeza74229za7,
		BGl_z62urizd2encodezd2componentz62zz__urlz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_urlzf3zd2envz21zz__urlz00,
		BgL_bgl_za762urlza7f3za791za7za7__4230za7, BGl_z62urlzf3z91zz__urlz00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_xzd2wwwzd2formzd2urlencodezd2envz00zz__urlz00,
		BgL_bgl_za762xza7d2wwwza7d2for4231za7,
		BGl_z62xzd2wwwzd2formzd2urlencodezb0zz__urlz00, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_xzd2wwwzd2formzd2urlencodezd2envz00zz__urlz00,
			BgL_bgl_za762xza7d2wwwza7d2for4231za7);
		BGL_BIND_PROCEDURE(BGl_urlzf3zd2envz21zz__urlz00,
			BgL_bgl_za762urlza7f3za791za7za7__4230za7);
		BGL_BIND_PROCEDURE(BGl_urizd2encodezd2componentzd2envzd2zz__urlz00,
			BgL_bgl_za762uriza7d2encodeza74229za7);
		BGL_BIND_PROCEDURE(BGl_urlzd2sanszd2protocolzd2parsezd2envz00zz__urlz00,
			BgL_bgl_za762urlza7d2sansza7d24228za7);
		BGL_BIND_PROCEDURE(BGl_urlzd2encodezd2envz00zz__urlz00,
			BgL_bgl_za762urlza7d2encodeza74227za7);
		BGL_BIND_STRING(BGl_string4170z00zz__urlz00,
			BgL_bgl_string4170za700za7za7_4226za7);
		BGL_BIND_PROCEDURE(BGl_httpzd2urlzd2parsezd2envzd2zz__urlz00,
			BgL_bgl_za762httpza7d2urlza7d24225za7);
		BGL_BIND_STRING(BGl_string4169z00zz__urlz00,
			BgL_bgl_string4169za700za7za7_4224za7);
		BGL_BIND_STRING(BGl_string4168z00zz__urlz00,
			BgL_bgl_string4168za700za7za7_4223za7);
		BGL_BIND_STRING(BGl_string4167z00zz__urlz00,
			BgL_bgl_string4167za700za7za7_4222za7);
		BGL_BIND_STRING(BGl_string4166z00zz__urlz00,
			BgL_bgl_string4166za700za7za7_4221za7);
		BGL_BIND_STRING(BGl_string4165z00zz__urlz00,
			BgL_bgl_string4165za700za7za7_4220za7);
		BGL_BIND_STRING(BGl_string4164z00zz__urlz00,
			BgL_bgl_string4164za700za7za7_4219za7);
		BGL_BIND_STRING(BGl_string4163z00zz__urlz00,
			BgL_bgl_string4163za700za7za7_4218za7);
		BGL_BIND_STRING(BGl_string4162z00zz__urlz00,
			BgL_bgl_string4162za700za7za7_4217za7);
		BGL_BIND_STRING(BGl_string4161z00zz__urlz00,
			BgL_bgl_string4161za700za7za7_4216za7);
		BGL_BIND_STRING(BGl_string4160z00zz__urlz00,
			BgL_bgl_string4160za700za7za7_4215za7);
		BGL_BIND_PROCEDURE(BGl_urizd2encodezd2envz00zz__urlz00,
			BgL_bgl_za762uriza7d2encodeza74214za7);
		BGL_BIND_PROCEDURE(BGl_urlzd2pathzd2encodezd2envzd2zz__urlz00,
			BgL_bgl_za762urlza7d2pathza7d24213za7);
		BGL_BIND_PROCEDURE(BGl_urlzd2decodezd2envz00zz__urlz00,
			BgL_bgl_za762urlza7d2decodeza74212za7);
		BGL_BIND_PROCEDURE(BGl_wwwzd2formzd2urlencodezd2envzd2zz__urlz00,
			BgL_bgl_za762wwwza7d2formza7d24211za7);
		BGL_BIND_STRING(BGl_string4159z00zz__urlz00,
			BgL_bgl_string4159za700za7za7_4210za7);
		BGL_BIND_STRING(BGl_string4158z00zz__urlz00,
			BgL_bgl_string4158za700za7za7_4209za7);
		BGL_BIND_STRING(BGl_string4157z00zz__urlz00,
			BgL_bgl_string4157za700za7za7_4208za7);
		BGL_BIND_STRING(BGl_string4156z00zz__urlz00,
			BgL_bgl_string4156za700za7za7_4207za7);
		BGL_BIND_STRING(BGl_string4155z00zz__urlz00,
			BgL_bgl_string4155za700za7za7_4206za7);
		BGL_BIND_STRING(BGl_string4154z00zz__urlz00,
			BgL_bgl_string4154za700za7za7_4205za7);
		BGL_BIND_STRING(BGl_string4153z00zz__urlz00,
			BgL_bgl_string4153za700za7za7_4204za7);
		BGL_BIND_STRING(BGl_string4152z00zz__urlz00,
			BgL_bgl_string4152za700za7za7_4203za7);
		BGL_BIND_STRING(BGl_string4151z00zz__urlz00,
			BgL_bgl_string4151za700za7za7_4202za7);
		BGL_BIND_STRING(BGl_string4150z00zz__urlz00,
			BgL_bgl_string4150za700za7za7_4201za7);
		BGL_BIND_PROCEDURE(BGl_urizd2decodezd2envz00zz__urlz00,
			BgL_bgl_za762uriza7d2decodeza74200za7);
		BGL_BIND_STRING(BGl_string4149z00zz__urlz00,
			BgL_bgl_string4149za700za7za7_4199za7);
		BGL_BIND_STRING(BGl_string4148z00zz__urlz00,
			BgL_bgl_string4148za700za7za7_4198za7);
		BGL_BIND_STRING(BGl_string4147z00zz__urlz00,
			BgL_bgl_string4147za700za7za7_4197za7);
		BGL_BIND_STRING(BGl_string4146z00zz__urlz00,
			BgL_bgl_string4146za700za7za7_4196za7);
		BGL_BIND_STRING(BGl_string4145z00zz__urlz00,
			BgL_bgl_string4145za700za7za7_4195za7);
		BGL_BIND_STRING(BGl_string4144z00zz__urlz00,
			BgL_bgl_string4144za700za7za7_4194za7);
		BGL_BIND_STRING(BGl_string4143z00zz__urlz00,
			BgL_bgl_string4143za700za7za7_4193za7);
		BGL_BIND_STRING(BGl_string4142z00zz__urlz00,
			BgL_bgl_string4142za700za7za7_4192za7);
		BGL_BIND_STRING(BGl_string4141z00zz__urlz00,
			BgL_bgl_string4141za700za7za7_4191za7);
		BGL_BIND_PROCEDURE(BGl_wwwzd2formzd2urldecodezd2envzd2zz__urlz00,
			BgL_bgl_za762wwwza7d2formza7d24190za7);
		BGL_BIND_STRING(BGl_string4140z00zz__urlz00,
			BgL_bgl_string4140za700za7za7_4189za7);
		BGL_BIND_PROCEDURE(BGl_urlzd2decodez12zd2envz12zz__urlz00,
			BgL_bgl_za762urlza7d2decodeza74188za7);
		BGL_BIND_STRING(BGl_string4138z00zz__urlz00,
			BgL_bgl_string4138za700za7za7_4187za7);
		BGL_BIND_STRING(BGl_string4137z00zz__urlz00,
			BgL_bgl_string4137za700za7za7_4186za7);
		BGL_BIND_STRING(BGl_string4136z00zz__urlz00,
			BgL_bgl_string4136za700za7za7_4185za7);
		BGL_BIND_STRING(BGl_string4135z00zz__urlz00,
			BgL_bgl_string4135za700za7za7_4184za7);
		BGL_BIND_STRING(BGl_string4134z00zz__urlz00,
			BgL_bgl_string4134za700za7za7_4183za7);
		BGL_BIND_PROCEDURE(BGl_proc4127z00zz__urlz00,
			BgL_bgl_za762za7c3za704anonymo4182za7);
		BGL_BIND_STRING(BGl_string4133z00zz__urlz00,
			BgL_bgl_string4133za700za7za7_4181za7);
		BGL_BIND_PROCEDURE(BGl_proc4126z00zz__urlz00,
			BgL_bgl_za762za7c3za704anonymo4180za7);
		BGL_BIND_STRING(BGl_string4132z00zz__urlz00,
			BgL_bgl_string4132za700za7za7_4179za7);
		BGL_BIND_PROCEDURE(BGl_proc4125z00zz__urlz00,
			BgL_bgl_za762za7c3za704anonymo4178za7);
		BGL_BIND_PROCEDURE(BGl_proc4124z00zz__urlz00,
			BgL_bgl_za762za7c3za704anonymo4177za7);
		BGL_BIND_STRING(BGl_string4130z00zz__urlz00,
			BgL_bgl_string4130za700za7za7_4176za7);
		BGL_BIND_PROCEDURE(BGl_urizd2decodezd2componentzd2envzd2zz__urlz00,
			BgL_bgl_za762uriza7d2decodeza74175za7);
		BGL_BIND_STRING(BGl_string4129z00zz__urlz00,
			BgL_bgl_string4129za700za7za7_4174za7);
		BGL_BIND_STRING(BGl_string4128z00zz__urlz00,
			BgL_bgl_string4128za700za7za7_4173za7);
		BGL_BIND_PROCEDURE(BGl_urlzd2parsezd2envz00zz__urlz00,
			BgL_bgl_za762urlza7d2parseza7b4172za7);
		BGL_BIND_PROCEDURE(BGl_urizd2decodezd2componentz12zd2envzc0zz__urlz00,
			BgL_bgl_za762uriza7d2decodeza74171za7);
	}

/* 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_httpzd2portzd2grammarz00zz__urlz00));
		ADD_ROOT((void *) (&BGl_httpzd2abspathzd2grammarz00zz__urlz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__urlz00));
		ADD_ROOT((void *) (&BGl_abspathzd2grammarzd2zz__urlz00));
		ADD_ROOT((void *) (&BGl_urizd2grammarzd2zz__urlz00));
		ADD_ROOT((void *) (&BGl_absolutezd2httpzd2urizd2grammarzd2zz__urlz00));
		ADD_ROOT((void *) (&BGl_symbol4139z00zz__urlz00));
		ADD_ROOT((void *) (&BGl_list4131z00zz__urlz00));
		ADD_ROOT((void *) (&BGl_httpzd2urizd2grammarz00zz__urlz00));
		ADD_ROOT((void *) (&BGl_absolutezd2urizd2grammarz00zz__urlz00));
#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__urlz00(long
		BgL_checksumz00_9812, char *BgL_fromz00_9813)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__urlz00))
				{
					BGl_requirezd2initializa7ationz75zz__urlz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__urlz00();
					BGl_cnstzd2initzd2zz__urlz00();
					BGl_importedzd2moduleszd2initz00zz__urlz00();
					return BGl_toplevelzd2initzd2zz__urlz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__urlz00(void)
	{
		{	/* Unsafe/url.scm 15 */
			BGl_list4131z00zz__urlz00 =
				MAKE_YOUNG_PAIR(BCHAR(((unsigned char) ' ')),
				MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 9)),
					MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 13)), BNIL)));
			return (BGl_symbol4139z00zz__urlz00 =
				bstring_to_symbol(BGl_string4140z00zz__urlz00), BUNSPEC);
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__urlz00(void)
	{
		{	/* Unsafe/url.scm 15 */
			{	/* Unsafe/url.scm 82 */
				obj_t BgL_zc3z04anonymousza31410ze3z87_8861;

				{
					int BgL_tmpz00_9830;

					BgL_tmpz00_9830 = (int) (0L);
					BgL_zc3z04anonymousza31410ze3z87_8861 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_9830);
				}
				BGl_urizd2grammarzd2zz__urlz00 = BgL_zc3z04anonymousza31410ze3z87_8861;
			}
			{	/* Unsafe/url.scm 97 */
				obj_t BgL_zc3z04anonymousza31594ze3z87_8860;

				{
					int BgL_tmpz00_9833;

					BgL_tmpz00_9833 = (int) (0L);
					BgL_zc3z04anonymousza31594ze3z87_8860 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_9833);
				}
				BGl_abspathzd2grammarzd2zz__urlz00 =
					BgL_zc3z04anonymousza31594ze3z87_8860;
			}
			BGl_absolutezd2urizd2grammarz00zz__urlz00 = BGl_proc4124z00zz__urlz00;
			{	/* Unsafe/url.scm 140 */
				obj_t BgL_zc3z04anonymousza32456ze3z87_8858;

				{
					int BgL_tmpz00_9836;

					BgL_tmpz00_9836 = (int) (0L);
					BgL_zc3z04anonymousza32456ze3z87_8858 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_9836);
				}
				BGl_httpzd2urizd2grammarz00zz__urlz00 =
					BgL_zc3z04anonymousza32456ze3z87_8858;
			}
			BGl_absolutezd2httpzd2urizd2grammarzd2zz__urlz00 =
				BGl_proc4125z00zz__urlz00;
			BGl_httpzd2abspathzd2grammarz00zz__urlz00 = BGl_proc4126z00zz__urlz00;
			return (BGl_httpzd2portzd2grammarz00zz__urlz00 =
				BGl_proc4127z00zz__urlz00, BUNSPEC);
		}

	}



/* &<@anonymous:3339> */
	obj_t BGl_z62zc3z04anonymousza33339ze3ze5zz__urlz00(obj_t BgL_envz00_8862,
		obj_t BgL_iportz00_8863)
	{
		{	/* Unsafe/url.scm 198 */
			{
				obj_t BgL_iportz00_8981;
				long BgL_lastzd2matchzd2_8982;
				long BgL_forwardz00_8983;
				long BgL_bufposz00_8984;
				obj_t BgL_iportz00_8973;
				long BgL_lastzd2matchzd2_8974;
				long BgL_forwardz00_8975;
				long BgL_bufposz00_8976;
				obj_t BgL_iportz00_8965;
				long BgL_lastzd2matchzd2_8966;
				long BgL_forwardz00_8967;
				long BgL_bufposz00_8968;

				{	/* Unsafe/url.scm 198 */
					obj_t BgL_tmpz00_9839;

					BgL_tmpz00_9839 = ((obj_t) BgL_iportz00_8863);
					RGC_START_MATCH(BgL_tmpz00_9839);
				}
				{	/* Unsafe/url.scm 198 */
					long BgL_matchz00_8960;

					{	/* Unsafe/url.scm 198 */
						long BgL_arg3466z00_8961;
						long BgL_arg3467z00_8962;

						{	/* Unsafe/url.scm 198 */
							obj_t BgL_tmpz00_9842;

							BgL_tmpz00_9842 = ((obj_t) BgL_iportz00_8863);
							BgL_arg3466z00_8961 = RGC_BUFFER_FORWARD(BgL_tmpz00_9842);
						}
						{	/* Unsafe/url.scm 198 */
							obj_t BgL_tmpz00_9845;

							BgL_tmpz00_9845 = ((obj_t) BgL_iportz00_8863);
							BgL_arg3467z00_8962 = RGC_BUFFER_BUFPOS(BgL_tmpz00_9845);
						}
						BgL_iportz00_8981 = BgL_iportz00_8863;
						BgL_lastzd2matchzd2_8982 = 1L;
						BgL_forwardz00_8983 = BgL_arg3466z00_8961;
						BgL_bufposz00_8984 = BgL_arg3467z00_8962;
					BgL_statezd20zd21174z00_8959:
						if ((BgL_forwardz00_8983 == BgL_bufposz00_8984))
							{	/* Unsafe/url.scm 198 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_8981)))
									{	/* Unsafe/url.scm 198 */
										long BgL_arg3343z00_8985;
										long BgL_arg3344z00_8986;

										{	/* Unsafe/url.scm 198 */
											obj_t BgL_tmpz00_9853;

											BgL_tmpz00_9853 = ((obj_t) BgL_iportz00_8981);
											BgL_arg3343z00_8985 = RGC_BUFFER_FORWARD(BgL_tmpz00_9853);
										}
										{	/* Unsafe/url.scm 198 */
											obj_t BgL_tmpz00_9856;

											BgL_tmpz00_9856 = ((obj_t) BgL_iportz00_8981);
											BgL_arg3344z00_8986 = RGC_BUFFER_BUFPOS(BgL_tmpz00_9856);
										}
										{
											long BgL_bufposz00_9860;
											long BgL_forwardz00_9859;

											BgL_forwardz00_9859 = BgL_arg3343z00_8985;
											BgL_bufposz00_9860 = BgL_arg3344z00_8986;
											BgL_bufposz00_8984 = BgL_bufposz00_9860;
											BgL_forwardz00_8983 = BgL_forwardz00_9859;
											goto BgL_statezd20zd21174z00_8959;
										}
									}
								else
									{	/* Unsafe/url.scm 198 */
										BgL_matchz00_8960 = BgL_lastzd2matchzd2_8982;
									}
							}
						else
							{	/* Unsafe/url.scm 198 */
								int BgL_curz00_8987;

								{	/* Unsafe/url.scm 198 */
									obj_t BgL_tmpz00_9861;

									BgL_tmpz00_9861 = ((obj_t) BgL_iportz00_8981);
									BgL_curz00_8987 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_9861, BgL_forwardz00_8983);
								}
								{	/* Unsafe/url.scm 198 */

									{	/* Unsafe/url.scm 198 */
										bool_t BgL_test4235z00_9864;

										if (((long) (BgL_curz00_8987) >= 48L))
											{	/* Unsafe/url.scm 198 */
												BgL_test4235z00_9864 = ((long) (BgL_curz00_8987) < 58L);
											}
										else
											{	/* Unsafe/url.scm 198 */
												BgL_test4235z00_9864 = ((bool_t) 0);
											}
										if (BgL_test4235z00_9864)
											{	/* Unsafe/url.scm 198 */
												BgL_iportz00_8973 = BgL_iportz00_8981;
												BgL_lastzd2matchzd2_8974 = BgL_lastzd2matchzd2_8982;
												BgL_forwardz00_8975 = (1L + BgL_forwardz00_8983);
												BgL_bufposz00_8976 = BgL_bufposz00_8984;
											BgL_statezd22zd21176z00_8958:
												{	/* Unsafe/url.scm 198 */
													long BgL_newzd2matchzd2_8977;

													{	/* Unsafe/url.scm 198 */
														obj_t BgL_tmpz00_9870;

														BgL_tmpz00_9870 = ((obj_t) BgL_iportz00_8973);
														RGC_STOP_MATCH(BgL_tmpz00_9870,
															BgL_forwardz00_8975);
													}
													BgL_newzd2matchzd2_8977 = 0L;
													if ((BgL_forwardz00_8975 == BgL_bufposz00_8976))
														{	/* Unsafe/url.scm 198 */
															if (rgc_fill_buffer(((obj_t) BgL_iportz00_8973)))
																{	/* Unsafe/url.scm 198 */
																	long BgL_arg3353z00_8978;
																	long BgL_arg3354z00_8979;

																	{	/* Unsafe/url.scm 198 */
																		obj_t BgL_tmpz00_9878;

																		BgL_tmpz00_9878 =
																			((obj_t) BgL_iportz00_8973);
																		BgL_arg3353z00_8978 =
																			RGC_BUFFER_FORWARD(BgL_tmpz00_9878);
																	}
																	{	/* Unsafe/url.scm 198 */
																		obj_t BgL_tmpz00_9881;

																		BgL_tmpz00_9881 =
																			((obj_t) BgL_iportz00_8973);
																		BgL_arg3354z00_8979 =
																			RGC_BUFFER_BUFPOS(BgL_tmpz00_9881);
																	}
																	{
																		long BgL_bufposz00_9885;
																		long BgL_forwardz00_9884;

																		BgL_forwardz00_9884 = BgL_arg3353z00_8978;
																		BgL_bufposz00_9885 = BgL_arg3354z00_8979;
																		BgL_bufposz00_8976 = BgL_bufposz00_9885;
																		BgL_forwardz00_8975 = BgL_forwardz00_9884;
																		goto BgL_statezd22zd21176z00_8958;
																	}
																}
															else
																{	/* Unsafe/url.scm 198 */
																	BgL_matchz00_8960 = BgL_newzd2matchzd2_8977;
																}
														}
													else
														{	/* Unsafe/url.scm 198 */
															int BgL_curz00_8980;

															{	/* Unsafe/url.scm 198 */
																obj_t BgL_tmpz00_9886;

																BgL_tmpz00_9886 = ((obj_t) BgL_iportz00_8973);
																BgL_curz00_8980 =
																	RGC_BUFFER_GET_CHAR(BgL_tmpz00_9886,
																	BgL_forwardz00_8975);
															}
															{	/* Unsafe/url.scm 198 */

																{	/* Unsafe/url.scm 198 */
																	bool_t BgL_test4239z00_9889;

																	if (((long) (BgL_curz00_8980) >= 48L))
																		{	/* Unsafe/url.scm 198 */
																			BgL_test4239z00_9889 =
																				((long) (BgL_curz00_8980) < 58L);
																		}
																	else
																		{	/* Unsafe/url.scm 198 */
																			BgL_test4239z00_9889 = ((bool_t) 0);
																		}
																	if (BgL_test4239z00_9889)
																		{	/* Unsafe/url.scm 198 */
																			BgL_iportz00_8965 = BgL_iportz00_8973;
																			BgL_lastzd2matchzd2_8966 =
																				BgL_newzd2matchzd2_8977;
																			BgL_forwardz00_8967 =
																				(1L + BgL_forwardz00_8975);
																			BgL_bufposz00_8968 = BgL_bufposz00_8976;
																		BgL_statezd23zd21177z00_8957:
																			{	/* Unsafe/url.scm 198 */
																				long BgL_newzd2matchzd2_8969;

																				{	/* Unsafe/url.scm 198 */
																					obj_t BgL_tmpz00_9895;

																					BgL_tmpz00_9895 =
																						((obj_t) BgL_iportz00_8965);
																					RGC_STOP_MATCH(BgL_tmpz00_9895,
																						BgL_forwardz00_8967);
																				}
																				BgL_newzd2matchzd2_8969 = 0L;
																				if (
																					(BgL_forwardz00_8967 ==
																						BgL_bufposz00_8968))
																					{	/* Unsafe/url.scm 198 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_8965)))
																							{	/* Unsafe/url.scm 198 */
																								long BgL_arg3362z00_8970;
																								long BgL_arg3363z00_8971;

																								{	/* Unsafe/url.scm 198 */
																									obj_t BgL_tmpz00_9903;

																									BgL_tmpz00_9903 =
																										((obj_t) BgL_iportz00_8965);
																									BgL_arg3362z00_8970 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_9903);
																								}
																								{	/* Unsafe/url.scm 198 */
																									obj_t BgL_tmpz00_9906;

																									BgL_tmpz00_9906 =
																										((obj_t) BgL_iportz00_8965);
																									BgL_arg3363z00_8971 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_9906);
																								}
																								{
																									long BgL_bufposz00_9910;
																									long BgL_forwardz00_9909;

																									BgL_forwardz00_9909 =
																										BgL_arg3362z00_8970;
																									BgL_bufposz00_9910 =
																										BgL_arg3363z00_8971;
																									BgL_bufposz00_8968 =
																										BgL_bufposz00_9910;
																									BgL_forwardz00_8967 =
																										BgL_forwardz00_9909;
																									goto
																										BgL_statezd23zd21177z00_8957;
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 198 */
																								BgL_matchz00_8960 =
																									BgL_newzd2matchzd2_8969;
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 198 */
																						int BgL_curz00_8972;

																						{	/* Unsafe/url.scm 198 */
																							obj_t BgL_tmpz00_9911;

																							BgL_tmpz00_9911 =
																								((obj_t) BgL_iportz00_8965);
																							BgL_curz00_8972 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_9911,
																								BgL_forwardz00_8967);
																						}
																						{	/* Unsafe/url.scm 198 */

																							{	/* Unsafe/url.scm 198 */
																								bool_t BgL_test4243z00_9914;

																								if (
																									((long) (BgL_curz00_8972) >=
																										48L))
																									{	/* Unsafe/url.scm 198 */
																										BgL_test4243z00_9914 =
																											(
																											(long) (BgL_curz00_8972) <
																											58L);
																									}
																								else
																									{	/* Unsafe/url.scm 198 */
																										BgL_test4243z00_9914 =
																											((bool_t) 0);
																									}
																								if (BgL_test4243z00_9914)
																									{
																										long BgL_forwardz00_9921;
																										long
																											BgL_lastzd2matchzd2_9920;
																										BgL_lastzd2matchzd2_9920 =
																											BgL_newzd2matchzd2_8969;
																										BgL_forwardz00_9921 =
																											(1L +
																											BgL_forwardz00_8967);
																										BgL_forwardz00_8967 =
																											BgL_forwardz00_9921;
																										BgL_lastzd2matchzd2_8966 =
																											BgL_lastzd2matchzd2_9920;
																										goto
																											BgL_statezd23zd21177z00_8957;
																									}
																								else
																									{	/* Unsafe/url.scm 198 */
																										BgL_matchz00_8960 =
																											BgL_newzd2matchzd2_8969;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/url.scm 198 */
																			BgL_matchz00_8960 =
																				BgL_newzd2matchzd2_8977;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/url.scm 198 */
												long BgL_arg3348z00_8988;

												BgL_arg3348z00_8988 = (1L + BgL_forwardz00_8983);
												{	/* Unsafe/url.scm 198 */
													long BgL_newzd2matchzd2_8989;

													{	/* Unsafe/url.scm 198 */
														obj_t BgL_tmpz00_9926;

														BgL_tmpz00_9926 = ((obj_t) BgL_iportz00_8981);
														RGC_STOP_MATCH(BgL_tmpz00_9926,
															BgL_arg3348z00_8988);
													}
													BgL_newzd2matchzd2_8989 = 1L;
													BgL_matchz00_8960 = BgL_newzd2matchzd2_8989;
					}}}}}}
					{	/* Unsafe/url.scm 198 */
						obj_t BgL_tmpz00_9929;

						BgL_tmpz00_9929 = ((obj_t) BgL_iportz00_8863);
						RGC_SET_FILEPOS(BgL_tmpz00_9929);
					}
					switch (BgL_matchz00_8960)
						{
						case 1L:

							{	/* Unsafe/url.scm 202 */
								obj_t BgL_arg3465z00_8963;

								{	/* Unsafe/url.scm 198 */
									bool_t BgL_test4245z00_9932;

									{	/* Unsafe/url.scm 198 */
										long BgL_arg3457z00_8964;

										{	/* Unsafe/url.scm 198 */
											obj_t BgL_tmpz00_9933;

											BgL_tmpz00_9933 = ((obj_t) BgL_iportz00_8863);
											BgL_arg3457z00_8964 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_9933);
										}
										BgL_test4245z00_9932 = (BgL_arg3457z00_8964 == 0L);
									}
									if (BgL_test4245z00_9932)
										{	/* Unsafe/url.scm 198 */
											BgL_arg3465z00_8963 = BEOF;
										}
									else
										{	/* Unsafe/url.scm 198 */
											unsigned char BgL_tmpz00_9937;

											{	/* Unsafe/url.scm 198 */
												obj_t BgL_tmpz00_9938;

												BgL_tmpz00_9938 = ((obj_t) BgL_iportz00_8863);
												BgL_tmpz00_9937 = RGC_BUFFER_CHARACTER(BgL_tmpz00_9938);
											}
											BgL_arg3465z00_8963 = BCHAR(BgL_tmpz00_9937);
								}}
								return
									BGl_parsezd2errorzd2zz__urlz00(
									((obj_t) BgL_iportz00_8863), BGl_string4128z00zz__urlz00,
									BgL_arg3465z00_8963);
							}
							break;
						case 0L:

							return BINT(rgc_buffer_fixnum(((obj_t) BgL_iportz00_8863)));
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4129z00zz__urlz00,
								BGl_string4130z00zz__urlz00, BINT(BgL_matchz00_8960));
						}
				}
			}
		}

	}



/* &<@anonymous:3179> */
	obj_t BGl_z62zc3z04anonymousza33179ze3ze5zz__urlz00(obj_t BgL_envz00_8864,
		obj_t BgL_iportz00_8865)
	{
		{	/* Unsafe/url.scm 185 */
			{
				obj_t BgL_iportz00_9001;
				long BgL_lastzd2matchzd2_9002;
				long BgL_forwardz00_9003;
				long BgL_bufposz00_9004;
				obj_t BgL_iportz00_8993;
				long BgL_lastzd2matchzd2_8994;
				long BgL_forwardz00_8995;
				long BgL_bufposz00_8996;

				{	/* Unsafe/url.scm 185 */
					obj_t BgL_tmpz00_9950;

					BgL_tmpz00_9950 = ((obj_t) BgL_iportz00_8865);
					RGC_START_MATCH(BgL_tmpz00_9950);
				}
				{	/* Unsafe/url.scm 185 */
					long BgL_matchz00_9009;

					{	/* Unsafe/url.scm 185 */
						long BgL_arg3337z00_9010;
						long BgL_arg3338z00_9011;

						{	/* Unsafe/url.scm 185 */
							obj_t BgL_tmpz00_9953;

							BgL_tmpz00_9953 = ((obj_t) BgL_iportz00_8865);
							BgL_arg3337z00_9010 = RGC_BUFFER_FORWARD(BgL_tmpz00_9953);
						}
						{	/* Unsafe/url.scm 185 */
							obj_t BgL_tmpz00_9956;

							BgL_tmpz00_9956 = ((obj_t) BgL_iportz00_8865);
							BgL_arg3338z00_9011 = RGC_BUFFER_BUFPOS(BgL_tmpz00_9956);
						}
						{
							long BgL_forwardz00_9013;
							long BgL_bufposz00_9014;

							BgL_forwardz00_9013 = BgL_arg3337z00_9010;
							BgL_bufposz00_9014 = BgL_arg3338z00_9011;
						BgL_statezd20zd21167z00_9012:
							if ((BgL_forwardz00_9013 == BgL_bufposz00_9014))
								{	/* Unsafe/url.scm 185 */
									if (rgc_fill_buffer(((obj_t) BgL_iportz00_8865)))
										{	/* Unsafe/url.scm 185 */
											long BgL_arg3212z00_9015;
											long BgL_arg3213z00_9016;

											{	/* Unsafe/url.scm 185 */
												obj_t BgL_tmpz00_9964;

												BgL_tmpz00_9964 = ((obj_t) BgL_iportz00_8865);
												BgL_arg3212z00_9015 =
													RGC_BUFFER_FORWARD(BgL_tmpz00_9964);
											}
											{	/* Unsafe/url.scm 185 */
												obj_t BgL_tmpz00_9967;

												BgL_tmpz00_9967 = ((obj_t) BgL_iportz00_8865);
												BgL_arg3213z00_9016 =
													RGC_BUFFER_BUFPOS(BgL_tmpz00_9967);
											}
											{
												long BgL_bufposz00_9971;
												long BgL_forwardz00_9970;

												BgL_forwardz00_9970 = BgL_arg3212z00_9015;
												BgL_bufposz00_9971 = BgL_arg3213z00_9016;
												BgL_bufposz00_9014 = BgL_bufposz00_9971;
												BgL_forwardz00_9013 = BgL_forwardz00_9970;
												goto BgL_statezd20zd21167z00_9012;
											}
										}
									else
										{	/* Unsafe/url.scm 185 */
											BgL_matchz00_9009 = 1L;
										}
								}
							else
								{	/* Unsafe/url.scm 185 */
									int BgL_curz00_9017;

									{	/* Unsafe/url.scm 185 */
										obj_t BgL_tmpz00_9972;

										BgL_tmpz00_9972 = ((obj_t) BgL_iportz00_8865);
										BgL_curz00_9017 =
											RGC_BUFFER_GET_CHAR(BgL_tmpz00_9972, BgL_forwardz00_9013);
									}
									{	/* Unsafe/url.scm 185 */

										if (((long) (BgL_curz00_9017) == 47L))
											{	/* Unsafe/url.scm 185 */
												BgL_iportz00_8993 = BgL_iportz00_8865;
												BgL_lastzd2matchzd2_8994 = 1L;
												BgL_forwardz00_8995 = (1L + BgL_forwardz00_9013);
												BgL_bufposz00_8996 = BgL_bufposz00_9014;
											BgL_statezd22zd21169z00_8990:
												{	/* Unsafe/url.scm 185 */
													long BgL_newzd2matchzd2_8997;

													{	/* Unsafe/url.scm 185 */
														obj_t BgL_tmpz00_9978;

														BgL_tmpz00_9978 = ((obj_t) BgL_iportz00_8993);
														RGC_STOP_MATCH(BgL_tmpz00_9978,
															BgL_forwardz00_8995);
													}
													BgL_newzd2matchzd2_8997 = 0L;
													if ((BgL_forwardz00_8995 == BgL_bufposz00_8996))
														{	/* Unsafe/url.scm 185 */
															if (rgc_fill_buffer(((obj_t) BgL_iportz00_8993)))
																{	/* Unsafe/url.scm 185 */
																	long BgL_arg3183z00_8998;
																	long BgL_arg3184z00_8999;

																	{	/* Unsafe/url.scm 185 */
																		obj_t BgL_tmpz00_9986;

																		BgL_tmpz00_9986 =
																			((obj_t) BgL_iportz00_8993);
																		BgL_arg3183z00_8998 =
																			RGC_BUFFER_FORWARD(BgL_tmpz00_9986);
																	}
																	{	/* Unsafe/url.scm 185 */
																		obj_t BgL_tmpz00_9989;

																		BgL_tmpz00_9989 =
																			((obj_t) BgL_iportz00_8993);
																		BgL_arg3184z00_8999 =
																			RGC_BUFFER_BUFPOS(BgL_tmpz00_9989);
																	}
																	{
																		long BgL_bufposz00_9993;
																		long BgL_forwardz00_9992;

																		BgL_forwardz00_9992 = BgL_arg3183z00_8998;
																		BgL_bufposz00_9993 = BgL_arg3184z00_8999;
																		BgL_bufposz00_8996 = BgL_bufposz00_9993;
																		BgL_forwardz00_8995 = BgL_forwardz00_9992;
																		goto BgL_statezd22zd21169z00_8990;
																	}
																}
															else
																{	/* Unsafe/url.scm 185 */
																	BgL_matchz00_9009 = BgL_newzd2matchzd2_8997;
																}
														}
													else
														{	/* Unsafe/url.scm 185 */
															int BgL_curz00_9000;

															{	/* Unsafe/url.scm 185 */
																obj_t BgL_tmpz00_9994;

																BgL_tmpz00_9994 = ((obj_t) BgL_iportz00_8993);
																BgL_curz00_9000 =
																	RGC_BUFFER_GET_CHAR(BgL_tmpz00_9994,
																	BgL_forwardz00_8995);
															}
															{	/* Unsafe/url.scm 185 */

																{	/* Unsafe/url.scm 185 */
																	bool_t BgL_test4251z00_9997;

																	if (((long) (BgL_curz00_9000) == 10L))
																		{	/* Unsafe/url.scm 185 */
																			BgL_test4251z00_9997 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/url.scm 185 */
																			if (((long) (BgL_curz00_9000) == 13L))
																				{	/* Unsafe/url.scm 185 */
																					BgL_test4251z00_9997 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/url.scm 185 */
																					BgL_test4251z00_9997 =
																						((long) (BgL_curz00_9000) == 32L);
																		}}
																	if (BgL_test4251z00_9997)
																		{	/* Unsafe/url.scm 185 */
																			BgL_matchz00_9009 =
																				BgL_newzd2matchzd2_8997;
																		}
																	else
																		{	/* Unsafe/url.scm 185 */
																			BgL_iportz00_9001 = BgL_iportz00_8993;
																			BgL_lastzd2matchzd2_9002 =
																				BgL_newzd2matchzd2_8997;
																			BgL_forwardz00_9003 =
																				(1L + BgL_forwardz00_8995);
																			BgL_bufposz00_9004 = BgL_bufposz00_8996;
																		BgL_statezd23zd21170z00_8991:
																			{	/* Unsafe/url.scm 185 */
																				long BgL_newzd2matchzd2_9005;

																				{	/* Unsafe/url.scm 185 */
																					obj_t BgL_tmpz00_10006;

																					BgL_tmpz00_10006 =
																						((obj_t) BgL_iportz00_9001);
																					RGC_STOP_MATCH(BgL_tmpz00_10006,
																						BgL_forwardz00_9003);
																				}
																				BgL_newzd2matchzd2_9005 = 0L;
																				if (
																					(BgL_forwardz00_9003 ==
																						BgL_bufposz00_9004))
																					{	/* Unsafe/url.scm 185 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_9001)))
																							{	/* Unsafe/url.scm 185 */
																								long BgL_arg3203z00_9006;
																								long BgL_arg3204z00_9007;

																								{	/* Unsafe/url.scm 185 */
																									obj_t BgL_tmpz00_10014;

																									BgL_tmpz00_10014 =
																										((obj_t) BgL_iportz00_9001);
																									BgL_arg3203z00_9006 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_10014);
																								}
																								{	/* Unsafe/url.scm 185 */
																									obj_t BgL_tmpz00_10017;

																									BgL_tmpz00_10017 =
																										((obj_t) BgL_iportz00_9001);
																									BgL_arg3204z00_9007 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_10017);
																								}
																								{
																									long BgL_bufposz00_10021;
																									long BgL_forwardz00_10020;

																									BgL_forwardz00_10020 =
																										BgL_arg3203z00_9006;
																									BgL_bufposz00_10021 =
																										BgL_arg3204z00_9007;
																									BgL_bufposz00_9004 =
																										BgL_bufposz00_10021;
																									BgL_forwardz00_9003 =
																										BgL_forwardz00_10020;
																									goto
																										BgL_statezd23zd21170z00_8991;
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 185 */
																								BgL_matchz00_9009 =
																									BgL_newzd2matchzd2_9005;
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 185 */
																						int BgL_curz00_9008;

																						{	/* Unsafe/url.scm 185 */
																							obj_t BgL_tmpz00_10022;

																							BgL_tmpz00_10022 =
																								((obj_t) BgL_iportz00_9001);
																							BgL_curz00_9008 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_10022,
																								BgL_forwardz00_9003);
																						}
																						{	/* Unsafe/url.scm 185 */

																							{	/* Unsafe/url.scm 185 */
																								bool_t BgL_test4256z00_10025;

																								if (
																									((long) (BgL_curz00_9008) ==
																										10L))
																									{	/* Unsafe/url.scm 185 */
																										BgL_test4256z00_10025 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/url.scm 185 */
																										if (
																											((long) (BgL_curz00_9008)
																												== 13L))
																											{	/* Unsafe/url.scm 185 */
																												BgL_test4256z00_10025 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/url.scm 185 */
																												BgL_test4256z00_10025 =
																													(
																													(long)
																													(BgL_curz00_9008) ==
																													32L);
																									}}
																								if (BgL_test4256z00_10025)
																									{	/* Unsafe/url.scm 185 */
																										BgL_matchz00_9009 =
																											BgL_newzd2matchzd2_9005;
																									}
																								else
																									{
																										long BgL_forwardz00_10035;
																										long
																											BgL_lastzd2matchzd2_10034;
																										BgL_lastzd2matchzd2_10034 =
																											BgL_newzd2matchzd2_9005;
																										BgL_forwardz00_10035 =
																											(1L +
																											BgL_forwardz00_9003);
																										BgL_forwardz00_9003 =
																											BgL_forwardz00_10035;
																										BgL_lastzd2matchzd2_9002 =
																											BgL_lastzd2matchzd2_10034;
																										goto
																											BgL_statezd23zd21170z00_8991;
																									}
																							}
																						}
																					}
																			}
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/url.scm 185 */
												long BgL_arg3216z00_9018;

												BgL_arg3216z00_9018 = (1L + BgL_forwardz00_9013);
												{	/* Unsafe/url.scm 185 */
													long BgL_newzd2matchzd2_9019;

													{	/* Unsafe/url.scm 185 */
														obj_t BgL_tmpz00_10040;

														BgL_tmpz00_10040 = ((obj_t) BgL_iportz00_8865);
														RGC_STOP_MATCH(BgL_tmpz00_10040,
															BgL_arg3216z00_9018);
													}
													BgL_newzd2matchzd2_9019 = 1L;
													BgL_matchz00_9009 = BgL_newzd2matchzd2_9019;
					}}}}}}
					{	/* Unsafe/url.scm 185 */
						obj_t BgL_tmpz00_10043;

						BgL_tmpz00_10043 = ((obj_t) BgL_iportz00_8865);
						RGC_SET_FILEPOS(BgL_tmpz00_10043);
					}
					switch (BgL_matchz00_9009)
						{
						case 1L:

							{	/* Unsafe/url.scm 189 */
								obj_t BgL_cz00_9020;

								BgL_cz00_9020 =
									BGl_thezd2failureze71z35zz__urlz00(BgL_iportz00_8865);
								{	/* Unsafe/url.scm 190 */
									bool_t BgL_test4259z00_10047;

									if (EOF_OBJECTP(BgL_cz00_9020))
										{	/* Unsafe/url.scm 190 */
											BgL_test4259z00_10047 = ((bool_t) 1);
										}
									else
										{	/* Unsafe/url.scm 190 */
											BgL_test4259z00_10047 =
												CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
												(BgL_cz00_9020, BGl_list4131z00zz__urlz00));
										}
									if (BgL_test4259z00_10047)
										{	/* Unsafe/url.scm 190 */
											return BGl_string4132z00zz__urlz00;
										}
									else
										{	/* Unsafe/url.scm 192 */
											obj_t BgL_arg3336z00_9021;

											BgL_arg3336z00_9021 =
												BGl_thezd2failureze71z35zz__urlz00(BgL_iportz00_8865);
											return
												BGl_parsezd2errorzd2zz__urlz00(
												((obj_t) BgL_iportz00_8865),
												BGl_string4128z00zz__urlz00, BgL_arg3336z00_9021);
										}
								}
							}
							break;
						case 0L:

							{	/* Unsafe/url.scm 185 */
								long BgL_arg3224z00_9022;

								{	/* Unsafe/url.scm 185 */
									obj_t BgL_tmpz00_10055;

									BgL_tmpz00_10055 = ((obj_t) BgL_iportz00_8865);
									BgL_arg3224z00_9022 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_10055);
								}
								return
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_8865), 0L, BgL_arg3224z00_9022);
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4129z00zz__urlz00,
								BGl_string4130z00zz__urlz00, BINT(BgL_matchz00_9009));
						}
				}
			}
		}

	}



/* the-failure~1 */
	obj_t BGl_thezd2failureze71z35zz__urlz00(obj_t BgL_iportz00_8925)
	{
		{	/* Unsafe/url.scm 185 */
			{	/* Unsafe/url.scm 185 */
				bool_t BgL_test4261z00_10063;

				{	/* Unsafe/url.scm 185 */
					long BgL_arg3326z00_4655;

					{	/* Unsafe/url.scm 185 */
						obj_t BgL_tmpz00_10064;

						BgL_tmpz00_10064 = ((obj_t) BgL_iportz00_8925);
						BgL_arg3326z00_4655 = RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_10064);
					}
					BgL_test4261z00_10063 = (BgL_arg3326z00_4655 == 0L);
				}
				if (BgL_test4261z00_10063)
					{	/* Unsafe/url.scm 185 */
						return BEOF;
					}
				else
					{	/* Unsafe/url.scm 185 */
						unsigned char BgL_tmpz00_10068;

						{	/* Unsafe/url.scm 185 */
							obj_t BgL_tmpz00_10069;

							BgL_tmpz00_10069 = ((obj_t) BgL_iportz00_8925);
							BgL_tmpz00_10068 = RGC_BUFFER_CHARACTER(BgL_tmpz00_10069);
						}
						return BCHAR(BgL_tmpz00_10068);
					}
			}
		}

	}



/* &<@anonymous:2641> */
	obj_t BGl_z62zc3z04anonymousza32641ze3ze5zz__urlz00(obj_t BgL_envz00_8866,
		obj_t BgL_iportz00_8867, obj_t BgL_protocolz00_8868,
		obj_t BgL_userinfoz00_8869)
	{
		{	/* Unsafe/url.scm 155 */
			{	/* Unsafe/url.scm 155 */
				obj_t BgL_userinfoz00_9023;

				BgL_userinfoz00_9023 = BgL_userinfoz00_8869;
				{
					obj_t BgL_iportz00_9191;
					long BgL_lastzd2matchzd2_9192;
					long BgL_forwardz00_9193;
					long BgL_bufposz00_9194;
					obj_t BgL_iportz00_9181;
					long BgL_lastzd2matchzd2_9182;
					long BgL_forwardz00_9183;
					long BgL_bufposz00_9184;
					obj_t BgL_iportz00_9171;
					long BgL_lastzd2matchzd2_9172;
					long BgL_forwardz00_9173;
					long BgL_bufposz00_9174;
					obj_t BgL_iportz00_9161;
					long BgL_lastzd2matchzd2_9162;
					long BgL_forwardz00_9163;
					long BgL_bufposz00_9164;
					obj_t BgL_iportz00_9154;
					long BgL_lastzd2matchzd2_9155;
					long BgL_forwardz00_9156;
					long BgL_bufposz00_9157;
					obj_t BgL_iportz00_9147;
					long BgL_lastzd2matchzd2_9148;
					long BgL_forwardz00_9149;
					long BgL_bufposz00_9150;
					obj_t BgL_iportz00_9139;
					long BgL_lastzd2matchzd2_9140;
					long BgL_forwardz00_9141;
					long BgL_bufposz00_9142;
					obj_t BgL_iportz00_9131;
					long BgL_lastzd2matchzd2_9132;
					long BgL_forwardz00_9133;
					long BgL_bufposz00_9134;
					obj_t BgL_iportz00_9121;
					long BgL_lastzd2matchzd2_9122;
					long BgL_forwardz00_9123;
					long BgL_bufposz00_9124;
					obj_t BgL_iportz00_9112;
					long BgL_lastzd2matchzd2_9113;
					long BgL_forwardz00_9114;
					long BgL_bufposz00_9115;
					obj_t BgL_iportz00_9102;
					long BgL_lastzd2matchzd2_9103;
					long BgL_forwardz00_9104;
					long BgL_bufposz00_9105;
					obj_t BgL_iportz00_9092;
					long BgL_lastzd2matchzd2_9093;
					long BgL_forwardz00_9094;
					long BgL_bufposz00_9095;
					obj_t BgL_iportz00_9083;
					long BgL_lastzd2matchzd2_9084;
					long BgL_forwardz00_9085;
					long BgL_bufposz00_9086;
					obj_t BgL_iportz00_9073;
					long BgL_lastzd2matchzd2_9074;
					long BgL_forwardz00_9075;
					long BgL_bufposz00_9076;
					obj_t BgL_iportz00_9063;
					long BgL_lastzd2matchzd2_9064;
					long BgL_forwardz00_9065;
					long BgL_bufposz00_9066;
					obj_t BgL_iportz00_9053;
					long BgL_lastzd2matchzd2_9054;
					long BgL_forwardz00_9055;
					long BgL_bufposz00_9056;
					obj_t BgL_iportz00_9043;
					long BgL_lastzd2matchzd2_9044;
					long BgL_forwardz00_9045;
					long BgL_bufposz00_9046;

				BgL_ignorez00_9042:
					{	/* Unsafe/url.scm 155 */
						obj_t BgL_tmpz00_10073;

						BgL_tmpz00_10073 = ((obj_t) BgL_iportz00_8867);
						RGC_START_MATCH(BgL_tmpz00_10073);
					}
					{	/* Unsafe/url.scm 155 */
						long BgL_matchz00_9202;

						{	/* Unsafe/url.scm 155 */
							long BgL_arg3177z00_9203;
							long BgL_arg3178z00_9204;

							{	/* Unsafe/url.scm 155 */
								obj_t BgL_tmpz00_10076;

								BgL_tmpz00_10076 = ((obj_t) BgL_iportz00_8867);
								BgL_arg3177z00_9203 = RGC_BUFFER_FORWARD(BgL_tmpz00_10076);
							}
							{	/* Unsafe/url.scm 155 */
								obj_t BgL_tmpz00_10079;

								BgL_tmpz00_10079 = ((obj_t) BgL_iportz00_8867);
								BgL_arg3178z00_9204 = RGC_BUFFER_BUFPOS(BgL_tmpz00_10079);
							}
							BgL_iportz00_9083 = BgL_iportz00_8867;
							BgL_lastzd2matchzd2_9084 = 5L;
							BgL_forwardz00_9085 = BgL_arg3177z00_9203;
							BgL_bufposz00_9086 = BgL_arg3178z00_9204;
						BgL_statezd20zd21130z00_9028:
							if ((BgL_forwardz00_9085 == BgL_bufposz00_9086))
								{	/* Unsafe/url.scm 155 */
									if (rgc_fill_buffer(((obj_t) BgL_iportz00_9083)))
										{	/* Unsafe/url.scm 155 */
											long BgL_arg2760z00_9087;
											long BgL_arg2761z00_9088;

											{	/* Unsafe/url.scm 155 */
												obj_t BgL_tmpz00_10087;

												BgL_tmpz00_10087 = ((obj_t) BgL_iportz00_9083);
												BgL_arg2760z00_9087 =
													RGC_BUFFER_FORWARD(BgL_tmpz00_10087);
											}
											{	/* Unsafe/url.scm 155 */
												obj_t BgL_tmpz00_10090;

												BgL_tmpz00_10090 = ((obj_t) BgL_iportz00_9083);
												BgL_arg2761z00_9088 =
													RGC_BUFFER_BUFPOS(BgL_tmpz00_10090);
											}
											{
												long BgL_bufposz00_10094;
												long BgL_forwardz00_10093;

												BgL_forwardz00_10093 = BgL_arg2760z00_9087;
												BgL_bufposz00_10094 = BgL_arg2761z00_9088;
												BgL_bufposz00_9086 = BgL_bufposz00_10094;
												BgL_forwardz00_9085 = BgL_forwardz00_10093;
												goto BgL_statezd20zd21130z00_9028;
											}
										}
									else
										{	/* Unsafe/url.scm 155 */
											BgL_matchz00_9202 = BgL_lastzd2matchzd2_9084;
										}
								}
							else
								{	/* Unsafe/url.scm 155 */
									int BgL_curz00_9089;

									{	/* Unsafe/url.scm 155 */
										obj_t BgL_tmpz00_10095;

										BgL_tmpz00_10095 = ((obj_t) BgL_iportz00_9083);
										BgL_curz00_9089 =
											RGC_BUFFER_GET_CHAR(BgL_tmpz00_10095,
											BgL_forwardz00_9085);
									}
									{	/* Unsafe/url.scm 155 */

										if (((long) (BgL_curz00_9089) == 64L))
											{	/* Unsafe/url.scm 155 */
												long BgL_arg2763z00_9090;

												BgL_arg2763z00_9090 = (1L + BgL_forwardz00_9085);
												{	/* Unsafe/url.scm 155 */
													long BgL_newzd2matchzd2_9091;

													{	/* Unsafe/url.scm 155 */
														obj_t BgL_tmpz00_10102;

														BgL_tmpz00_10102 = ((obj_t) BgL_iportz00_9083);
														RGC_STOP_MATCH(BgL_tmpz00_10102,
															BgL_arg2763z00_9090);
													}
													BgL_newzd2matchzd2_9091 = 0L;
													BgL_matchz00_9202 = BgL_newzd2matchzd2_9091;
											}}
										else
											{	/* Unsafe/url.scm 155 */
												if (((long) (BgL_curz00_9089) == 58L))
													{	/* Unsafe/url.scm 155 */
														BgL_iportz00_9161 = BgL_iportz00_9083;
														BgL_lastzd2matchzd2_9162 = BgL_lastzd2matchzd2_9084;
														BgL_forwardz00_9163 = (1L + BgL_forwardz00_9085);
														BgL_bufposz00_9164 = BgL_bufposz00_9086;
													BgL_statezd26zd21136z00_9037:
														{	/* Unsafe/url.scm 155 */
															long BgL_newzd2matchzd2_9165;

															{	/* Unsafe/url.scm 155 */
																obj_t BgL_tmpz00_10108;

																BgL_tmpz00_10108 = ((obj_t) BgL_iportz00_9161);
																RGC_STOP_MATCH(BgL_tmpz00_10108,
																	BgL_forwardz00_9163);
															}
															BgL_newzd2matchzd2_9165 = 5L;
															if ((BgL_forwardz00_9163 == BgL_bufposz00_9164))
																{	/* Unsafe/url.scm 155 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_9161)))
																		{	/* Unsafe/url.scm 155 */
																			long BgL_arg2954z00_9166;
																			long BgL_arg2956z00_9167;

																			{	/* Unsafe/url.scm 155 */
																				obj_t BgL_tmpz00_10116;

																				BgL_tmpz00_10116 =
																					((obj_t) BgL_iportz00_9161);
																				BgL_arg2954z00_9166 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_10116);
																			}
																			{	/* Unsafe/url.scm 155 */
																				obj_t BgL_tmpz00_10119;

																				BgL_tmpz00_10119 =
																					((obj_t) BgL_iportz00_9161);
																				BgL_arg2956z00_9167 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_10119);
																			}
																			{
																				long BgL_bufposz00_10123;
																				long BgL_forwardz00_10122;

																				BgL_forwardz00_10122 =
																					BgL_arg2954z00_9166;
																				BgL_bufposz00_10123 =
																					BgL_arg2956z00_9167;
																				BgL_bufposz00_9164 =
																					BgL_bufposz00_10123;
																				BgL_forwardz00_9163 =
																					BgL_forwardz00_10122;
																				goto BgL_statezd26zd21136z00_9037;
																			}
																		}
																	else
																		{	/* Unsafe/url.scm 155 */
																			BgL_matchz00_9202 =
																				BgL_newzd2matchzd2_9165;
																		}
																}
															else
																{	/* Unsafe/url.scm 155 */
																	int BgL_curz00_9168;

																	{	/* Unsafe/url.scm 155 */
																		obj_t BgL_tmpz00_10124;

																		BgL_tmpz00_10124 =
																			((obj_t) BgL_iportz00_9161);
																		BgL_curz00_9168 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_10124,
																			BgL_forwardz00_9163);
																	}
																	{	/* Unsafe/url.scm 155 */

																		if (((long) (BgL_curz00_9168) == 64L))
																			{	/* Unsafe/url.scm 155 */
																				long BgL_arg2958z00_9169;

																				BgL_arg2958z00_9169 =
																					(1L + BgL_forwardz00_9163);
																				{	/* Unsafe/url.scm 155 */
																					long BgL_newzd2matchzd2_9170;

																					{	/* Unsafe/url.scm 155 */
																						obj_t BgL_tmpz00_10131;

																						BgL_tmpz00_10131 =
																							((obj_t) BgL_iportz00_9161);
																						RGC_STOP_MATCH(BgL_tmpz00_10131,
																							BgL_arg2958z00_9169);
																					}
																					BgL_newzd2matchzd2_9170 = 0L;
																					BgL_matchz00_9202 =
																						BgL_newzd2matchzd2_9170;
																			}}
																		else
																			{	/* Unsafe/url.scm 155 */
																				if (((long) (BgL_curz00_9168) == 37L))
																					{	/* Unsafe/url.scm 155 */
																						BgL_iportz00_9154 =
																							BgL_iportz00_9161;
																						BgL_lastzd2matchzd2_9155 =
																							BgL_newzd2matchzd2_9165;
																						BgL_forwardz00_9156 =
																							(1L + BgL_forwardz00_9163);
																						BgL_bufposz00_9157 =
																							BgL_bufposz00_9164;
																					BgL_statezd210zd21140z00_9036:
																						if (
																							(BgL_forwardz00_9156 ==
																								BgL_bufposz00_9157))
																							{	/* Unsafe/url.scm 155 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_9154)))
																									{	/* Unsafe/url.scm 155 */
																										long BgL_arg2935z00_9158;
																										long BgL_arg2936z00_9159;

																										{	/* Unsafe/url.scm 155 */
																											obj_t BgL_tmpz00_10142;

																											BgL_tmpz00_10142 =
																												((obj_t)
																												BgL_iportz00_9154);
																											BgL_arg2935z00_9158 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_10142);
																										}
																										{	/* Unsafe/url.scm 155 */
																											obj_t BgL_tmpz00_10145;

																											BgL_tmpz00_10145 =
																												((obj_t)
																												BgL_iportz00_9154);
																											BgL_arg2936z00_9159 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_10145);
																										}
																										{
																											long BgL_bufposz00_10149;
																											long BgL_forwardz00_10148;

																											BgL_forwardz00_10148 =
																												BgL_arg2935z00_9158;
																											BgL_bufposz00_10149 =
																												BgL_arg2936z00_9159;
																											BgL_bufposz00_9157 =
																												BgL_bufposz00_10149;
																											BgL_forwardz00_9156 =
																												BgL_forwardz00_10148;
																											goto
																												BgL_statezd210zd21140z00_9036;
																										}
																									}
																								else
																									{	/* Unsafe/url.scm 155 */
																										BgL_matchz00_9202 =
																											BgL_lastzd2matchzd2_9155;
																									}
																							}
																						else
																							{	/* Unsafe/url.scm 155 */
																								int BgL_curz00_9160;

																								{	/* Unsafe/url.scm 155 */
																									obj_t BgL_tmpz00_10150;

																									BgL_tmpz00_10150 =
																										((obj_t) BgL_iportz00_9154);
																									BgL_curz00_9160 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_10150,
																										BgL_forwardz00_9156);
																								}
																								{	/* Unsafe/url.scm 155 */

																									{	/* Unsafe/url.scm 155 */
																										bool_t
																											BgL_test4272z00_10153;
																										{	/* Unsafe/url.scm 155 */
																											bool_t
																												BgL_test4273z00_10154;
																											if (((long)
																													(BgL_curz00_9160) >=
																													48L))
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4273z00_10154
																														=
																														((long)
																														(BgL_curz00_9160) <
																														58L);
																												}
																											else
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4273z00_10154
																														= ((bool_t) 0);
																												}
																											if (BgL_test4273z00_10154)
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4272z00_10153
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 155 */
																													bool_t
																														BgL_test4275z00_10160;
																													if (((long)
																															(BgL_curz00_9160)
																															>= 65L))
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4275z00_10160
																																=
																																((long)
																																(BgL_curz00_9160)
																																< 71L);
																														}
																													else
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4275z00_10160
																																= ((bool_t) 0);
																														}
																													if (BgL_test4275z00_10160)
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4272z00_10153
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 155 */
																															if (
																																((long)
																																	(BgL_curz00_9160)
																																	>= 97L))
																																{	/* Unsafe/url.scm 155 */
																																	BgL_test4272z00_10153
																																		=
																																		((long)
																																		(BgL_curz00_9160)
																																		< 103L);
																																}
																															else
																																{	/* Unsafe/url.scm 155 */
																																	BgL_test4272z00_10153
																																		=
																																		((bool_t)
																																		0);
																																}
																														}
																												}
																										}
																										if (BgL_test4272z00_10153)
																											{	/* Unsafe/url.scm 155 */
																												BgL_iportz00_9147 =
																													BgL_iportz00_9154;
																												BgL_lastzd2matchzd2_9148
																													=
																													BgL_lastzd2matchzd2_9155;
																												BgL_forwardz00_9149 =
																													(1L +
																													BgL_forwardz00_9156);
																												BgL_bufposz00_9150 =
																													BgL_bufposz00_9157;
																											BgL_statezd212zd21142z00_9035:
																												if (
																													(BgL_forwardz00_9149
																														==
																														BgL_bufposz00_9150))
																													{	/* Unsafe/url.scm 155 */
																														if (rgc_fill_buffer(
																																((obj_t)
																																	BgL_iportz00_9147)))
																															{	/* Unsafe/url.scm 155 */
																																long
																																	BgL_arg2923z00_9151;
																																long
																																	BgL_arg2924z00_9152;
																																{	/* Unsafe/url.scm 155 */
																																	obj_t
																																		BgL_tmpz00_10176;
																																	BgL_tmpz00_10176
																																		=
																																		((obj_t)
																																		BgL_iportz00_9147);
																																	BgL_arg2923z00_9151
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_tmpz00_10176);
																																}
																																{	/* Unsafe/url.scm 155 */
																																	obj_t
																																		BgL_tmpz00_10179;
																																	BgL_tmpz00_10179
																																		=
																																		((obj_t)
																																		BgL_iportz00_9147);
																																	BgL_arg2924z00_9152
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_tmpz00_10179);
																																}
																																{
																																	long
																																		BgL_bufposz00_10183;
																																	long
																																		BgL_forwardz00_10182;
																																	BgL_forwardz00_10182
																																		=
																																		BgL_arg2923z00_9151;
																																	BgL_bufposz00_10183
																																		=
																																		BgL_arg2924z00_9152;
																																	BgL_bufposz00_9150
																																		=
																																		BgL_bufposz00_10183;
																																	BgL_forwardz00_9149
																																		=
																																		BgL_forwardz00_10182;
																																	goto
																																		BgL_statezd212zd21142z00_9035;
																																}
																															}
																														else
																															{	/* Unsafe/url.scm 155 */
																																BgL_matchz00_9202
																																	=
																																	BgL_lastzd2matchzd2_9148;
																															}
																													}
																												else
																													{	/* Unsafe/url.scm 155 */
																														int BgL_curz00_9153;

																														{	/* Unsafe/url.scm 155 */
																															obj_t
																																BgL_tmpz00_10184;
																															BgL_tmpz00_10184 =
																																((obj_t)
																																BgL_iportz00_9147);
																															BgL_curz00_9153 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_tmpz00_10184,
																																BgL_forwardz00_9149);
																														}
																														{	/* Unsafe/url.scm 155 */

																															{	/* Unsafe/url.scm 155 */
																																bool_t
																																	BgL_test4280z00_10187;
																																{	/* Unsafe/url.scm 155 */
																																	bool_t
																																		BgL_test4281z00_10188;
																																	if (((long)
																																			(BgL_curz00_9153)
																																			>= 48L))
																																		{	/* Unsafe/url.scm 155 */
																																			BgL_test4281z00_10188
																																				=
																																				((long)
																																				(BgL_curz00_9153)
																																				< 58L);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 155 */
																																			BgL_test4281z00_10188
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test4281z00_10188)
																																		{	/* Unsafe/url.scm 155 */
																																			BgL_test4280z00_10187
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 155 */
																																			bool_t
																																				BgL_test4283z00_10194;
																																			if ((
																																					(long)
																																					(BgL_curz00_9153)
																																					>=
																																					65L))
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4283z00_10194
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9153)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4283z00_10194
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test4283z00_10194)
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4280z00_10187
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 155 */
																																					if (
																																						((long) (BgL_curz00_9153) >= 97L))
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_test4280z00_10187
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9153)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_test4280z00_10187
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																				}
																																		}
																																}
																																if (BgL_test4280z00_10187)
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_iportz00_9112
																																			=
																																			BgL_iportz00_9147;
																																		BgL_lastzd2matchzd2_9113
																																			=
																																			BgL_lastzd2matchzd2_9148;
																																		BgL_forwardz00_9114
																																			=
																																			(1L +
																																			BgL_forwardz00_9149);
																																		BgL_bufposz00_9115
																																			=
																																			BgL_bufposz00_9150;
																																	BgL_statezd29zd21139z00_9031:
																																		if (
																																			(BgL_forwardz00_9114
																																				==
																																				BgL_bufposz00_9115))
																																			{	/* Unsafe/url.scm 155 */
																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_9112)))
																																					{	/* Unsafe/url.scm 155 */
																																						long
																																							BgL_arg2839z00_9116;
																																						long
																																							BgL_arg2840z00_9117;
																																						{	/* Unsafe/url.scm 155 */
																																							obj_t
																																								BgL_tmpz00_10210;
																																							BgL_tmpz00_10210
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_9112);
																																							BgL_arg2839z00_9116
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_tmpz00_10210);
																																						}
																																						{	/* Unsafe/url.scm 155 */
																																							obj_t
																																								BgL_tmpz00_10213;
																																							BgL_tmpz00_10213
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_9112);
																																							BgL_arg2840z00_9117
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_tmpz00_10213);
																																						}
																																						{
																																							long
																																								BgL_bufposz00_10217;
																																							long
																																								BgL_forwardz00_10216;
																																							BgL_forwardz00_10216
																																								=
																																								BgL_arg2839z00_9116;
																																							BgL_bufposz00_10217
																																								=
																																								BgL_arg2840z00_9117;
																																							BgL_bufposz00_9115
																																								=
																																								BgL_bufposz00_10217;
																																							BgL_forwardz00_9114
																																								=
																																								BgL_forwardz00_10216;
																																							goto
																																								BgL_statezd29zd21139z00_9031;
																																						}
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_matchz00_9202
																																							=
																																							BgL_lastzd2matchzd2_9113;
																																					}
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				int
																																					BgL_curz00_9118;
																																				{	/* Unsafe/url.scm 155 */
																																					obj_t
																																						BgL_tmpz00_10218;
																																					BgL_tmpz00_10218
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_9112);
																																					BgL_curz00_9118
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_tmpz00_10218,
																																						BgL_forwardz00_9114);
																																				}
																																				{	/* Unsafe/url.scm 155 */

																																					if (
																																						((long) (BgL_curz00_9118) == 64L))
																																						{	/* Unsafe/url.scm 155 */
																																							long
																																								BgL_arg2844z00_9119;
																																							BgL_arg2844z00_9119
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_9114);
																																							{	/* Unsafe/url.scm 155 */
																																								long
																																									BgL_newzd2matchzd2_9120;
																																								{	/* Unsafe/url.scm 155 */
																																									obj_t
																																										BgL_tmpz00_10225;
																																									BgL_tmpz00_10225
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_9112);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_10225,
																																										BgL_arg2844z00_9119);
																																								}
																																								BgL_newzd2matchzd2_9120
																																									=
																																									0L;
																																								BgL_matchz00_9202
																																									=
																																									BgL_newzd2matchzd2_9120;
																																						}}
																																					else
																																						{	/* Unsafe/url.scm 155 */
																																							if (((long) (BgL_curz00_9118) == 37L))
																																								{
																																									long
																																										BgL_bufposz00_10235;
																																									long
																																										BgL_forwardz00_10233;
																																									long
																																										BgL_lastzd2matchzd2_10232;
																																									obj_t
																																										BgL_iportz00_10231;
																																									BgL_iportz00_10231
																																										=
																																										BgL_iportz00_9112;
																																									BgL_lastzd2matchzd2_10232
																																										=
																																										BgL_lastzd2matchzd2_9113;
																																									BgL_forwardz00_10233
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_9114);
																																									BgL_bufposz00_10235
																																										=
																																										BgL_bufposz00_9115;
																																									BgL_bufposz00_9157
																																										=
																																										BgL_bufposz00_10235;
																																									BgL_forwardz00_9156
																																										=
																																										BgL_forwardz00_10233;
																																									BgL_lastzd2matchzd2_9155
																																										=
																																										BgL_lastzd2matchzd2_10232;
																																									BgL_iportz00_9154
																																										=
																																										BgL_iportz00_10231;
																																									goto
																																										BgL_statezd210zd21140z00_9036;
																																								}
																																							else
																																								{	/* Unsafe/url.scm 155 */
																																									bool_t
																																										BgL_test4290z00_10236;
																																									if (((long) (BgL_curz00_9118) == 33L))
																																										{	/* Unsafe/url.scm 155 */
																																											BgL_test4290z00_10236
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 155 */
																																											if (((long) (BgL_curz00_9118) == 36L))
																																												{	/* Unsafe/url.scm 155 */
																																													BgL_test4290z00_10236
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 155 */
																																													bool_t
																																														BgL_test4293z00_10243;
																																													if (((long) (BgL_curz00_9118) >= 38L))
																																														{	/* Unsafe/url.scm 155 */
																																															BgL_test4293z00_10243
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_9118)
																																																<
																																																47L);
																																														}
																																													else
																																														{	/* Unsafe/url.scm 155 */
																																															BgL_test4293z00_10243
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test4293z00_10243)
																																														{	/* Unsafe/url.scm 155 */
																																															BgL_test4290z00_10236
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/url.scm 155 */
																																															bool_t
																																																BgL_test4295z00_10249;
																																															if (((long) (BgL_curz00_9118) >= 48L))
																																																{	/* Unsafe/url.scm 155 */
																																																	BgL_test4295z00_10249
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_9118)
																																																		<
																																																		60L);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 155 */
																																																	BgL_test4295z00_10249
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test4295z00_10249)
																																																{	/* Unsafe/url.scm 155 */
																																																	BgL_test4290z00_10236
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 155 */
																																																	if (((long) (BgL_curz00_9118) == 61L))
																																																		{	/* Unsafe/url.scm 155 */
																																																			BgL_test4290z00_10236
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 155 */
																																																			bool_t
																																																				BgL_test4298z00_10258;
																																																			if (((long) (BgL_curz00_9118) >= 65L))
																																																				{	/* Unsafe/url.scm 155 */
																																																					BgL_test4298z00_10258
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9118)
																																																						<
																																																						91L);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 155 */
																																																					BgL_test4298z00_10258
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test4298z00_10258)
																																																				{	/* Unsafe/url.scm 155 */
																																																					BgL_test4290z00_10236
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 155 */
																																																					if (((long) (BgL_curz00_9118) == 95L))
																																																						{	/* Unsafe/url.scm 155 */
																																																							BgL_test4290z00_10236
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 155 */
																																																							bool_t
																																																								BgL_test4301z00_10267;
																																																							if (((long) (BgL_curz00_9118) >= 97L))
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4301z00_10267
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9118)
																																																										<
																																																										123L);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4301z00_10267
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test4301z00_10267)
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4290z00_10236
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 155 */
																																																									if (((long) (BgL_curz00_9118) == 124L))
																																																										{	/* Unsafe/url.scm 155 */
																																																											BgL_test4290z00_10236
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 155 */
																																																											BgL_test4290z00_10236
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9118)
																																																												==
																																																												126L);
																																										}}}}}}}}}
																																									if (BgL_test4290z00_10236)
																																										{
																																											long
																																												BgL_forwardz00_10278;
																																											BgL_forwardz00_10278
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_9114);
																																											BgL_forwardz00_9114
																																												=
																																												BgL_forwardz00_10278;
																																											goto
																																												BgL_statezd29zd21139z00_9031;
																																										}
																																									else
																																										{	/* Unsafe/url.scm 155 */
																																											BgL_matchz00_9202
																																												=
																																												BgL_lastzd2matchzd2_9113;
																																										}
																																								}
																																						}
																																				}
																																			}
																																	}
																																else
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_matchz00_9202
																																			=
																																			BgL_lastzd2matchzd2_9148;
																																	}
																															}
																														}
																													}
																											}
																										else
																											{	/* Unsafe/url.scm 155 */
																												BgL_matchz00_9202 =
																													BgL_lastzd2matchzd2_9155;
																											}
																									}
																								}
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 155 */
																						bool_t BgL_test4304z00_10283;

																						if (
																							((long) (BgL_curz00_9168) == 33L))
																							{	/* Unsafe/url.scm 155 */
																								BgL_test4304z00_10283 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/url.scm 155 */
																								if (
																									((long) (BgL_curz00_9168) ==
																										36L))
																									{	/* Unsafe/url.scm 155 */
																										BgL_test4304z00_10283 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/url.scm 155 */
																										bool_t
																											BgL_test4307z00_10290;
																										if (((long)
																												(BgL_curz00_9168) >=
																												38L))
																											{	/* Unsafe/url.scm 155 */
																												BgL_test4307z00_10290 =
																													(
																													(long)
																													(BgL_curz00_9168) <
																													47L);
																											}
																										else
																											{	/* Unsafe/url.scm 155 */
																												BgL_test4307z00_10290 =
																													((bool_t) 0);
																											}
																										if (BgL_test4307z00_10290)
																											{	/* Unsafe/url.scm 155 */
																												BgL_test4304z00_10283 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/url.scm 155 */
																												bool_t
																													BgL_test4309z00_10296;
																												if (((long)
																														(BgL_curz00_9168) >=
																														48L))
																													{	/* Unsafe/url.scm 155 */
																														BgL_test4309z00_10296
																															=
																															((long)
																															(BgL_curz00_9168)
																															< 60L);
																													}
																												else
																													{	/* Unsafe/url.scm 155 */
																														BgL_test4309z00_10296
																															= ((bool_t) 0);
																													}
																												if (BgL_test4309z00_10296)
																													{	/* Unsafe/url.scm 155 */
																														BgL_test4304z00_10283
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/url.scm 155 */
																														if (
																															((long)
																																(BgL_curz00_9168)
																																== 61L))
																															{	/* Unsafe/url.scm 155 */
																																BgL_test4304z00_10283
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/url.scm 155 */
																																bool_t
																																	BgL_test4312z00_10305;
																																if (((long)
																																		(BgL_curz00_9168)
																																		>= 65L))
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_test4312z00_10305
																																			=
																																			((long)
																																			(BgL_curz00_9168)
																																			< 91L);
																																	}
																																else
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_test4312z00_10305
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test4312z00_10305)
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_test4304z00_10283
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/url.scm 155 */
																																		if (
																																			((long)
																																				(BgL_curz00_9168)
																																				== 95L))
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4304z00_10283
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				bool_t
																																					BgL_test4315z00_10314;
																																				if ((
																																						(long)
																																						(BgL_curz00_9168)
																																						>=
																																						97L))
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4315z00_10314
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_9168)
																																							<
																																							123L);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4315z00_10314
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test4315z00_10314)
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4304z00_10283
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						if (
																																							((long) (BgL_curz00_9168) == 124L))
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4304z00_10283
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4304z00_10283
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_9168)
																																									==
																																									126L);
																							}}}}}}}}}
																						if (BgL_test4304z00_10283)
																							{
																								long BgL_bufposz00_10329;
																								long BgL_forwardz00_10327;
																								long BgL_lastzd2matchzd2_10326;
																								obj_t BgL_iportz00_10325;

																								BgL_iportz00_10325 =
																									BgL_iportz00_9161;
																								BgL_lastzd2matchzd2_10326 =
																									BgL_newzd2matchzd2_9165;
																								BgL_forwardz00_10327 =
																									(1L + BgL_forwardz00_9163);
																								BgL_bufposz00_10329 =
																									BgL_bufposz00_9164;
																								BgL_bufposz00_9115 =
																									BgL_bufposz00_10329;
																								BgL_forwardz00_9114 =
																									BgL_forwardz00_10327;
																								BgL_lastzd2matchzd2_9113 =
																									BgL_lastzd2matchzd2_10326;
																								BgL_iportz00_9112 =
																									BgL_iportz00_10325;
																								goto
																									BgL_statezd29zd21139z00_9031;
																							}
																						else
																							{	/* Unsafe/url.scm 155 */
																								BgL_matchz00_9202 =
																									BgL_newzd2matchzd2_9165;
																							}
																					}
																			}
																	}
																}
														}
													}
												else
													{	/* Unsafe/url.scm 155 */
														if (((long) (BgL_curz00_9089) == 47L))
															{	/* Unsafe/url.scm 155 */
																BgL_iportz00_9131 = BgL_iportz00_9083;
																BgL_lastzd2matchzd2_9132 =
																	BgL_lastzd2matchzd2_9084;
																BgL_forwardz00_9133 =
																	(1L + BgL_forwardz00_9085);
																BgL_bufposz00_9134 = BgL_bufposz00_9086;
															BgL_statezd25zd21135z00_9033:
																{	/* Unsafe/url.scm 155 */
																	long BgL_newzd2matchzd2_9135;

																	{	/* Unsafe/url.scm 155 */
																		obj_t BgL_tmpz00_10334;

																		BgL_tmpz00_10334 =
																			((obj_t) BgL_iportz00_9131);
																		RGC_STOP_MATCH(BgL_tmpz00_10334,
																			BgL_forwardz00_9133);
																	}
																	BgL_newzd2matchzd2_9135 = 3L;
																	if (
																		(BgL_forwardz00_9133 == BgL_bufposz00_9134))
																		{	/* Unsafe/url.scm 155 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_9131)))
																				{	/* Unsafe/url.scm 155 */
																					long BgL_arg2909z00_9136;
																					long BgL_arg2910z00_9137;

																					{	/* Unsafe/url.scm 155 */
																						obj_t BgL_tmpz00_10342;

																						BgL_tmpz00_10342 =
																							((obj_t) BgL_iportz00_9131);
																						BgL_arg2909z00_9136 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_10342);
																					}
																					{	/* Unsafe/url.scm 155 */
																						obj_t BgL_tmpz00_10345;

																						BgL_tmpz00_10345 =
																							((obj_t) BgL_iportz00_9131);
																						BgL_arg2910z00_9137 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_10345);
																					}
																					{
																						long BgL_bufposz00_10349;
																						long BgL_forwardz00_10348;

																						BgL_forwardz00_10348 =
																							BgL_arg2909z00_9136;
																						BgL_bufposz00_10349 =
																							BgL_arg2910z00_9137;
																						BgL_bufposz00_9134 =
																							BgL_bufposz00_10349;
																						BgL_forwardz00_9133 =
																							BgL_forwardz00_10348;
																						goto BgL_statezd25zd21135z00_9033;
																					}
																				}
																			else
																				{	/* Unsafe/url.scm 155 */
																					BgL_matchz00_9202 =
																						BgL_newzd2matchzd2_9135;
																				}
																		}
																	else
																		{	/* Unsafe/url.scm 155 */
																			int BgL_curz00_9138;

																			{	/* Unsafe/url.scm 155 */
																				obj_t BgL_tmpz00_10350;

																				BgL_tmpz00_10350 =
																					((obj_t) BgL_iportz00_9131);
																				BgL_curz00_9138 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_10350,
																					BgL_forwardz00_9133);
																			}
																			{	/* Unsafe/url.scm 155 */

																				{	/* Unsafe/url.scm 155 */
																					bool_t BgL_test4321z00_10353;

																					switch ((long) (BgL_curz00_9138))
																						{
																						case 10L:

																							BgL_test4321z00_10353 =
																								((bool_t) 1);
																							break;
																						case 13L:

																							BgL_test4321z00_10353 =
																								((bool_t) 1);
																							break;
																						case 32L:

																							BgL_test4321z00_10353 =
																								((bool_t) 1);
																							break;
																						default:
																							BgL_test4321z00_10353 =
																								(
																								(long) (BgL_curz00_9138) ==
																								58L);
																						}
																					if (BgL_test4321z00_10353)
																						{	/* Unsafe/url.scm 155 */
																							BgL_matchz00_9202 =
																								BgL_newzd2matchzd2_9135;
																						}
																					else
																						{	/* Unsafe/url.scm 155 */
																							BgL_iportz00_9139 =
																								BgL_iportz00_9131;
																							BgL_lastzd2matchzd2_9140 =
																								BgL_newzd2matchzd2_9135;
																							BgL_forwardz00_9141 =
																								(1L + BgL_forwardz00_9133);
																							BgL_bufposz00_9142 =
																								BgL_bufposz00_9134;
																						BgL_statezd213zd21143z00_9034:
																							{	/* Unsafe/url.scm 155 */
																								long BgL_newzd2matchzd2_9143;

																								{	/* Unsafe/url.scm 155 */
																									obj_t BgL_tmpz00_10358;

																									BgL_tmpz00_10358 =
																										((obj_t) BgL_iportz00_9139);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_10358,
																										BgL_forwardz00_9141);
																								}
																								BgL_newzd2matchzd2_9143 = 3L;
																								if (
																									(BgL_forwardz00_9141 ==
																										BgL_bufposz00_9142))
																									{	/* Unsafe/url.scm 155 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_9139)))
																											{	/* Unsafe/url.scm 155 */
																												long
																													BgL_arg2916z00_9144;
																												long
																													BgL_arg2917z00_9145;
																												{	/* Unsafe/url.scm 155 */
																													obj_t
																														BgL_tmpz00_10366;
																													BgL_tmpz00_10366 =
																														((obj_t)
																														BgL_iportz00_9139);
																													BgL_arg2916z00_9144 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_10366);
																												}
																												{	/* Unsafe/url.scm 155 */
																													obj_t
																														BgL_tmpz00_10369;
																													BgL_tmpz00_10369 =
																														((obj_t)
																														BgL_iportz00_9139);
																													BgL_arg2917z00_9145 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_10369);
																												}
																												{
																													long
																														BgL_bufposz00_10373;
																													long
																														BgL_forwardz00_10372;
																													BgL_forwardz00_10372 =
																														BgL_arg2916z00_9144;
																													BgL_bufposz00_10373 =
																														BgL_arg2917z00_9145;
																													BgL_bufposz00_9142 =
																														BgL_bufposz00_10373;
																													BgL_forwardz00_9141 =
																														BgL_forwardz00_10372;
																													goto
																														BgL_statezd213zd21143z00_9034;
																												}
																											}
																										else
																											{	/* Unsafe/url.scm 155 */
																												BgL_matchz00_9202 =
																													BgL_newzd2matchzd2_9143;
																											}
																									}
																								else
																									{	/* Unsafe/url.scm 155 */
																										int BgL_curz00_9146;

																										{	/* Unsafe/url.scm 155 */
																											obj_t BgL_tmpz00_10374;

																											BgL_tmpz00_10374 =
																												((obj_t)
																												BgL_iportz00_9139);
																											BgL_curz00_9146 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_10374,
																												BgL_forwardz00_9141);
																										}
																										{	/* Unsafe/url.scm 155 */

																											{	/* Unsafe/url.scm 155 */
																												bool_t
																													BgL_test4324z00_10377;
																												switch ((long)
																													(BgL_curz00_9146))
																													{
																													case 10L:

																														BgL_test4324z00_10377 = ((bool_t) 1);
																														break;
																													case 13L:

																														BgL_test4324z00_10377 = ((bool_t) 1);
																														break;
																													case 32L:

																														BgL_test4324z00_10377 = ((bool_t) 1);
																														break;
																													default:
																														BgL_test4324z00_10377 = ((long) (BgL_curz00_9146) == 58L);
																													}
																												if (BgL_test4324z00_10377)
																													{	/* Unsafe/url.scm 155 */
																														BgL_matchz00_9202 =
																															BgL_newzd2matchzd2_9143;
																													}
																												else
																													{
																														long
																															BgL_forwardz00_10383;
																														long
																															BgL_lastzd2matchzd2_10382;
																														BgL_lastzd2matchzd2_10382
																															=
																															BgL_newzd2matchzd2_9143;
																														BgL_forwardz00_10383
																															=
																															(1L +
																															BgL_forwardz00_9141);
																														BgL_forwardz00_9141
																															=
																															BgL_forwardz00_10383;
																														BgL_lastzd2matchzd2_9140
																															=
																															BgL_lastzd2matchzd2_10382;
																														goto
																															BgL_statezd213zd21143z00_9034;
																													}
																											}
																										}
																									}
																							}
																						}
																				}
																			}
																		}
																}
															}
														else
															{	/* Unsafe/url.scm 155 */
																if (((long) (BgL_curz00_9089) == 37L))
																	{	/* Unsafe/url.scm 155 */
																		BgL_iportz00_9043 = BgL_iportz00_9083;
																		BgL_lastzd2matchzd2_9044 =
																			BgL_lastzd2matchzd2_9084;
																		BgL_forwardz00_9045 =
																			(1L + BgL_forwardz00_9085);
																		BgL_bufposz00_9046 = BgL_bufposz00_9086;
																	BgL_statezd24zd21134z00_9024:
																		{	/* Unsafe/url.scm 155 */
																			long BgL_newzd2matchzd2_9047;

																			{	/* Unsafe/url.scm 155 */
																				obj_t BgL_tmpz00_10390;

																				BgL_tmpz00_10390 =
																					((obj_t) BgL_iportz00_9043);
																				RGC_STOP_MATCH(BgL_tmpz00_10390,
																					BgL_forwardz00_9045);
																			}
																			BgL_newzd2matchzd2_9047 = 2L;
																			if (
																				(BgL_forwardz00_9045 ==
																					BgL_bufposz00_9046))
																				{	/* Unsafe/url.scm 155 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_9043)))
																						{	/* Unsafe/url.scm 155 */
																							long BgL_arg2647z00_9048;
																							long BgL_arg2648z00_9049;

																							{	/* Unsafe/url.scm 155 */
																								obj_t BgL_tmpz00_10398;

																								BgL_tmpz00_10398 =
																									((obj_t) BgL_iportz00_9043);
																								BgL_arg2647z00_9048 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_10398);
																							}
																							{	/* Unsafe/url.scm 155 */
																								obj_t BgL_tmpz00_10401;

																								BgL_tmpz00_10401 =
																									((obj_t) BgL_iportz00_9043);
																								BgL_arg2648z00_9049 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_10401);
																							}
																							{
																								long BgL_bufposz00_10405;
																								long BgL_forwardz00_10404;

																								BgL_forwardz00_10404 =
																									BgL_arg2647z00_9048;
																								BgL_bufposz00_10405 =
																									BgL_arg2648z00_9049;
																								BgL_bufposz00_9046 =
																									BgL_bufposz00_10405;
																								BgL_forwardz00_9045 =
																									BgL_forwardz00_10404;
																								goto
																									BgL_statezd24zd21134z00_9024;
																							}
																						}
																					else
																						{	/* Unsafe/url.scm 155 */
																							BgL_matchz00_9202 =
																								BgL_newzd2matchzd2_9047;
																						}
																				}
																			else
																				{	/* Unsafe/url.scm 155 */
																					int BgL_curz00_9050;

																					{	/* Unsafe/url.scm 155 */
																						obj_t BgL_tmpz00_10406;

																						BgL_tmpz00_10406 =
																							((obj_t) BgL_iportz00_9043);
																						BgL_curz00_9050 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_10406,
																							BgL_forwardz00_9045);
																					}
																					{	/* Unsafe/url.scm 155 */

																						if (
																							((long) (BgL_curz00_9050) == 58L))
																							{	/* Unsafe/url.scm 155 */
																								long BgL_arg2650z00_9051;

																								BgL_arg2650z00_9051 =
																									(1L + BgL_forwardz00_9045);
																								{	/* Unsafe/url.scm 155 */
																									long BgL_newzd2matchzd2_9052;

																									{	/* Unsafe/url.scm 155 */
																										obj_t BgL_tmpz00_10413;

																										BgL_tmpz00_10413 =
																											((obj_t)
																											BgL_iportz00_9043);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_10413,
																											BgL_arg2650z00_9051);
																									}
																									BgL_newzd2matchzd2_9052 = 1L;
																									BgL_matchz00_9202 =
																										BgL_newzd2matchzd2_9052;
																							}}
																						else
																							{	/* Unsafe/url.scm 155 */
																								bool_t BgL_test4329z00_10416;

																								{	/* Unsafe/url.scm 155 */
																									bool_t BgL_test4330z00_10417;

																									if (
																										((long) (BgL_curz00_9050) >=
																											48L))
																										{	/* Unsafe/url.scm 155 */
																											BgL_test4330z00_10417 =
																												(
																												(long) (BgL_curz00_9050)
																												< 58L);
																										}
																									else
																										{	/* Unsafe/url.scm 155 */
																											BgL_test4330z00_10417 =
																												((bool_t) 0);
																										}
																									if (BgL_test4330z00_10417)
																										{	/* Unsafe/url.scm 155 */
																											BgL_test4329z00_10416 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Unsafe/url.scm 155 */
																											bool_t
																												BgL_test4332z00_10423;
																											if (((long)
																													(BgL_curz00_9050) >=
																													65L))
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4332z00_10423
																														=
																														((long)
																														(BgL_curz00_9050) <
																														71L);
																												}
																											else
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4332z00_10423
																														= ((bool_t) 0);
																												}
																											if (BgL_test4332z00_10423)
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4329z00_10416
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 155 */
																													if (
																														((long)
																															(BgL_curz00_9050)
																															>= 97L))
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4329z00_10416
																																=
																																((long)
																																(BgL_curz00_9050)
																																< 103L);
																														}
																													else
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4329z00_10416
																																= ((bool_t) 0);
																														}
																												}
																										}
																								}
																								if (BgL_test4329z00_10416)
																									{	/* Unsafe/url.scm 155 */
																										BgL_iportz00_9073 =
																											BgL_iportz00_9043;
																										BgL_lastzd2matchzd2_9074 =
																											BgL_newzd2matchzd2_9047;
																										BgL_forwardz00_9075 =
																											(1L +
																											BgL_forwardz00_9045);
																										BgL_bufposz00_9076 =
																											BgL_bufposz00_9046;
																									BgL_statezd215zd21145z00_9027:
																										{	/* Unsafe/url.scm 155 */
																											long
																												BgL_newzd2matchzd2_9077;
																											{	/* Unsafe/url.scm 155 */
																												obj_t BgL_tmpz00_10434;

																												BgL_tmpz00_10434 =
																													((obj_t)
																													BgL_iportz00_9073);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_10434,
																													BgL_forwardz00_9075);
																											}
																											BgL_newzd2matchzd2_9077 =
																												2L;
																											if ((BgL_forwardz00_9075
																													==
																													BgL_bufposz00_9076))
																												{	/* Unsafe/url.scm 155 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_9073)))
																														{	/* Unsafe/url.scm 155 */
																															long
																																BgL_arg2736z00_9078;
																															long
																																BgL_arg2737z00_9079;
																															{	/* Unsafe/url.scm 155 */
																																obj_t
																																	BgL_tmpz00_10442;
																																BgL_tmpz00_10442
																																	=
																																	((obj_t)
																																	BgL_iportz00_9073);
																																BgL_arg2736z00_9078
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_10442);
																															}
																															{	/* Unsafe/url.scm 155 */
																																obj_t
																																	BgL_tmpz00_10445;
																																BgL_tmpz00_10445
																																	=
																																	((obj_t)
																																	BgL_iportz00_9073);
																																BgL_arg2737z00_9079
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_10445);
																															}
																															{
																																long
																																	BgL_bufposz00_10449;
																																long
																																	BgL_forwardz00_10448;
																																BgL_forwardz00_10448
																																	=
																																	BgL_arg2736z00_9078;
																																BgL_bufposz00_10449
																																	=
																																	BgL_arg2737z00_9079;
																																BgL_bufposz00_9076
																																	=
																																	BgL_bufposz00_10449;
																																BgL_forwardz00_9075
																																	=
																																	BgL_forwardz00_10448;
																																goto
																																	BgL_statezd215zd21145z00_9027;
																															}
																														}
																													else
																														{	/* Unsafe/url.scm 155 */
																															BgL_matchz00_9202
																																=
																																BgL_newzd2matchzd2_9077;
																														}
																												}
																											else
																												{	/* Unsafe/url.scm 155 */
																													int BgL_curz00_9080;

																													{	/* Unsafe/url.scm 155 */
																														obj_t
																															BgL_tmpz00_10450;
																														BgL_tmpz00_10450 =
																															((obj_t)
																															BgL_iportz00_9073);
																														BgL_curz00_9080 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_10450,
																															BgL_forwardz00_9075);
																													}
																													{	/* Unsafe/url.scm 155 */

																														if (
																															((long)
																																(BgL_curz00_9080)
																																== 58L))
																															{	/* Unsafe/url.scm 155 */
																																long
																																	BgL_arg2739z00_9081;
																																BgL_arg2739z00_9081
																																	=
																																	(1L +
																																	BgL_forwardz00_9075);
																																{	/* Unsafe/url.scm 155 */
																																	long
																																		BgL_newzd2matchzd2_9082;
																																	{	/* Unsafe/url.scm 155 */
																																		obj_t
																																			BgL_tmpz00_10457;
																																		BgL_tmpz00_10457
																																			=
																																			((obj_t)
																																			BgL_iportz00_9073);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_10457,
																																			BgL_arg2739z00_9081);
																																	}
																																	BgL_newzd2matchzd2_9082
																																		= 1L;
																																	BgL_matchz00_9202
																																		=
																																		BgL_newzd2matchzd2_9082;
																															}}
																														else
																															{	/* Unsafe/url.scm 155 */
																																bool_t
																																	BgL_test4338z00_10460;
																																{	/* Unsafe/url.scm 155 */
																																	bool_t
																																		BgL_test4339z00_10461;
																																	if (((long)
																																			(BgL_curz00_9080)
																																			>= 48L))
																																		{	/* Unsafe/url.scm 155 */
																																			BgL_test4339z00_10461
																																				=
																																				((long)
																																				(BgL_curz00_9080)
																																				< 58L);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 155 */
																																			BgL_test4339z00_10461
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test4339z00_10461)
																																		{	/* Unsafe/url.scm 155 */
																																			BgL_test4338z00_10460
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 155 */
																																			bool_t
																																				BgL_test4341z00_10467;
																																			if ((
																																					(long)
																																					(BgL_curz00_9080)
																																					>=
																																					65L))
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4341z00_10467
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9080)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4341z00_10467
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test4341z00_10467)
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4338z00_10460
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 155 */
																																					if (
																																						((long) (BgL_curz00_9080) >= 97L))
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_test4338z00_10460
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9080)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_test4338z00_10460
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																				}
																																		}
																																}
																																if (BgL_test4338z00_10460)
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_iportz00_9191
																																			=
																																			BgL_iportz00_9073;
																																		BgL_lastzd2matchzd2_9192
																																			=
																																			BgL_newzd2matchzd2_9077;
																																		BgL_forwardz00_9193
																																			=
																																			(1L +
																																			BgL_forwardz00_9075);
																																		BgL_bufposz00_9194
																																			=
																																			BgL_bufposz00_9076;
																																	BgL_statezd217zd21147z00_9040:
																																		{	/* Unsafe/url.scm 155 */
																																			long
																																				BgL_newzd2matchzd2_9195;
																																			{	/* Unsafe/url.scm 155 */
																																				obj_t
																																					BgL_tmpz00_10478;
																																				BgL_tmpz00_10478
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_9191);
																																				RGC_STOP_MATCH
																																					(BgL_tmpz00_10478,
																																					BgL_forwardz00_9193);
																																			}
																																			BgL_newzd2matchzd2_9195
																																				= 2L;
																																			if (
																																				(BgL_forwardz00_9193
																																					==
																																					BgL_bufposz00_9194))
																																				{	/* Unsafe/url.scm 155 */
																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_9191)))
																																						{	/* Unsafe/url.scm 155 */
																																							long
																																								BgL_arg3003z00_9196;
																																							long
																																								BgL_arg3004z00_9197;
																																							{	/* Unsafe/url.scm 155 */
																																								obj_t
																																									BgL_tmpz00_10486;
																																								BgL_tmpz00_10486
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_9191);
																																								BgL_arg3003z00_9196
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_tmpz00_10486);
																																							}
																																							{	/* Unsafe/url.scm 155 */
																																								obj_t
																																									BgL_tmpz00_10489;
																																								BgL_tmpz00_10489
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_9191);
																																								BgL_arg3004z00_9197
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_tmpz00_10489);
																																							}
																																							{
																																								long
																																									BgL_bufposz00_10493;
																																								long
																																									BgL_forwardz00_10492;
																																								BgL_forwardz00_10492
																																									=
																																									BgL_arg3003z00_9196;
																																								BgL_bufposz00_10493
																																									=
																																									BgL_arg3004z00_9197;
																																								BgL_bufposz00_9194
																																									=
																																									BgL_bufposz00_10493;
																																								BgL_forwardz00_9193
																																									=
																																									BgL_forwardz00_10492;
																																								goto
																																									BgL_statezd217zd21147z00_9040;
																																							}
																																						}
																																					else
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_matchz00_9202
																																								=
																																								BgL_newzd2matchzd2_9195;
																																						}
																																				}
																																			else
																																				{	/* Unsafe/url.scm 155 */
																																					int
																																						BgL_curz00_9198;
																																					{	/* Unsafe/url.scm 155 */
																																						obj_t
																																							BgL_tmpz00_10494;
																																						BgL_tmpz00_10494
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_9191);
																																						BgL_curz00_9198
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_tmpz00_10494,
																																							BgL_forwardz00_9193);
																																					}
																																					{	/* Unsafe/url.scm 155 */

																																						if (
																																							((long) (BgL_curz00_9198) == 64L))
																																							{	/* Unsafe/url.scm 155 */
																																								long
																																									BgL_arg3008z00_9199;
																																								BgL_arg3008z00_9199
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_9193);
																																								{	/* Unsafe/url.scm 155 */
																																									long
																																										BgL_newzd2matchzd2_9200;
																																									{	/* Unsafe/url.scm 155 */
																																										obj_t
																																											BgL_tmpz00_10501;
																																										BgL_tmpz00_10501
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_9191);
																																										RGC_STOP_MATCH
																																											(BgL_tmpz00_10501,
																																											BgL_arg3008z00_9199);
																																									}
																																									BgL_newzd2matchzd2_9200
																																										=
																																										0L;
																																									BgL_matchz00_9202
																																										=
																																										BgL_newzd2matchzd2_9200;
																																							}}
																																						else
																																							{	/* Unsafe/url.scm 155 */
																																								if (((long) (BgL_curz00_9198) == 58L))
																																									{	/* Unsafe/url.scm 155 */
																																										BgL_iportz00_9121
																																											=
																																											BgL_iportz00_9191;
																																										BgL_lastzd2matchzd2_9122
																																											=
																																											BgL_newzd2matchzd2_9195;
																																										BgL_forwardz00_9123
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_9193);
																																										BgL_bufposz00_9124
																																											=
																																											BgL_bufposz00_9194;
																																									BgL_statezd219zd21149z00_9032:
																																										{	/* Unsafe/url.scm 155 */
																																											long
																																												BgL_newzd2matchzd2_9125;
																																											{	/* Unsafe/url.scm 155 */
																																												obj_t
																																													BgL_tmpz00_10507;
																																												BgL_tmpz00_10507
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_9121);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_10507,
																																													BgL_forwardz00_9123);
																																											}
																																											BgL_newzd2matchzd2_9125
																																												=
																																												1L;
																																											if ((BgL_forwardz00_9123 == BgL_bufposz00_9124))
																																												{	/* Unsafe/url.scm 155 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_9121)))
																																														{	/* Unsafe/url.scm 155 */
																																															long
																																																BgL_arg2865z00_9126;
																																															long
																																																BgL_arg2866z00_9127;
																																															{	/* Unsafe/url.scm 155 */
																																																obj_t
																																																	BgL_tmpz00_10515;
																																																BgL_tmpz00_10515
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_9121);
																																																BgL_arg2865z00_9126
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_10515);
																																															}
																																															{	/* Unsafe/url.scm 155 */
																																																obj_t
																																																	BgL_tmpz00_10518;
																																																BgL_tmpz00_10518
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_9121);
																																																BgL_arg2866z00_9127
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_10518);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_10522;
																																																long
																																																	BgL_forwardz00_10521;
																																																BgL_forwardz00_10521
																																																	=
																																																	BgL_arg2865z00_9126;
																																																BgL_bufposz00_10522
																																																	=
																																																	BgL_arg2866z00_9127;
																																																BgL_bufposz00_9124
																																																	=
																																																	BgL_bufposz00_10522;
																																																BgL_forwardz00_9123
																																																	=
																																																	BgL_forwardz00_10521;
																																																goto
																																																	BgL_statezd219zd21149z00_9032;
																																															}
																																														}
																																													else
																																														{	/* Unsafe/url.scm 155 */
																																															BgL_matchz00_9202
																																																=
																																																BgL_newzd2matchzd2_9125;
																																														}
																																												}
																																											else
																																												{	/* Unsafe/url.scm 155 */
																																													int
																																														BgL_curz00_9128;
																																													{	/* Unsafe/url.scm 155 */
																																														obj_t
																																															BgL_tmpz00_10523;
																																														BgL_tmpz00_10523
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_9121);
																																														BgL_curz00_9128
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_10523,
																																															BgL_forwardz00_9123);
																																													}
																																													{	/* Unsafe/url.scm 155 */

																																														if (((long) (BgL_curz00_9128) == 64L))
																																															{	/* Unsafe/url.scm 155 */
																																																long
																																																	BgL_arg2868z00_9129;
																																																BgL_arg2868z00_9129
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_9123);
																																																{	/* Unsafe/url.scm 155 */
																																																	long
																																																		BgL_newzd2matchzd2_9130;
																																																	{	/* Unsafe/url.scm 155 */
																																																		obj_t
																																																			BgL_tmpz00_10530;
																																																		BgL_tmpz00_10530
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9121);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_10530,
																																																			BgL_arg2868z00_9129);
																																																	}
																																																	BgL_newzd2matchzd2_9130
																																																		=
																																																		0L;
																																																	BgL_matchz00_9202
																																																		=
																																																		BgL_newzd2matchzd2_9130;
																																															}}
																																														else
																																															{	/* Unsafe/url.scm 155 */
																																																if (((long) (BgL_curz00_9128) == 37L))
																																																	{
																																																		long
																																																			BgL_bufposz00_10540;
																																																		long
																																																			BgL_forwardz00_10538;
																																																		long
																																																			BgL_lastzd2matchzd2_10537;
																																																		obj_t
																																																			BgL_iportz00_10536;
																																																		BgL_iportz00_10536
																																																			=
																																																			BgL_iportz00_9121;
																																																		BgL_lastzd2matchzd2_10537
																																																			=
																																																			BgL_newzd2matchzd2_9125;
																																																		BgL_forwardz00_10538
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_9123);
																																																		BgL_bufposz00_10540
																																																			=
																																																			BgL_bufposz00_9124;
																																																		BgL_bufposz00_9157
																																																			=
																																																			BgL_bufposz00_10540;
																																																		BgL_forwardz00_9156
																																																			=
																																																			BgL_forwardz00_10538;
																																																		BgL_lastzd2matchzd2_9155
																																																			=
																																																			BgL_lastzd2matchzd2_10537;
																																																		BgL_iportz00_9154
																																																			=
																																																			BgL_iportz00_10536;
																																																		goto
																																																			BgL_statezd210zd21140z00_9036;
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 155 */
																																																		bool_t
																																																			BgL_test4352z00_10541;
																																																		if (((long) (BgL_curz00_9128) == 33L))
																																																			{	/* Unsafe/url.scm 155 */
																																																				BgL_test4352z00_10541
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 155 */
																																																				if (((long) (BgL_curz00_9128) == 36L))
																																																					{	/* Unsafe/url.scm 155 */
																																																						BgL_test4352z00_10541
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 155 */
																																																						bool_t
																																																							BgL_test4355z00_10548;
																																																						if (((long) (BgL_curz00_9128) >= 38L))
																																																							{	/* Unsafe/url.scm 155 */
																																																								BgL_test4355z00_10548
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_9128)
																																																									<
																																																									47L);
																																																							}
																																																						else
																																																							{	/* Unsafe/url.scm 155 */
																																																								BgL_test4355z00_10548
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test4355z00_10548)
																																																							{	/* Unsafe/url.scm 155 */
																																																								BgL_test4352z00_10541
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Unsafe/url.scm 155 */
																																																								bool_t
																																																									BgL_test4357z00_10554;
																																																								if (((long) (BgL_curz00_9128) >= 48L))
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4357z00_10554
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_9128)
																																																											<
																																																											60L);
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4357z00_10554
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test4357z00_10554)
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4352z00_10541
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 155 */
																																																										if (((long) (BgL_curz00_9128) == 61L))
																																																											{	/* Unsafe/url.scm 155 */
																																																												BgL_test4352z00_10541
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Unsafe/url.scm 155 */
																																																												bool_t
																																																													BgL_test4360z00_10563;
																																																												if (((long) (BgL_curz00_9128) >= 65L))
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_test4360z00_10563
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_9128)
																																																															<
																																																															91L);
																																																													}
																																																												else
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_test4360z00_10563
																																																															=
																																																															(
																																																															(bool_t)
																																																															0);
																																																													}
																																																												if (BgL_test4360z00_10563)
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_test4352z00_10541
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Unsafe/url.scm 155 */
																																																														if (((long) (BgL_curz00_9128) == 95L))
																																																															{	/* Unsafe/url.scm 155 */
																																																																BgL_test4352z00_10541
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Unsafe/url.scm 155 */
																																																																bool_t
																																																																	BgL_test4363z00_10572;
																																																																if (((long) (BgL_curz00_9128) >= 97L))
																																																																	{	/* Unsafe/url.scm 155 */
																																																																		BgL_test4363z00_10572
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_9128)
																																																																			<
																																																																			123L);
																																																																	}
																																																																else
																																																																	{	/* Unsafe/url.scm 155 */
																																																																		BgL_test4363z00_10572
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			0);
																																																																	}
																																																																if (BgL_test4363z00_10572)
																																																																	{	/* Unsafe/url.scm 155 */
																																																																		BgL_test4352z00_10541
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Unsafe/url.scm 155 */
																																																																		if (((long) (BgL_curz00_9128) == 124L))
																																																																			{	/* Unsafe/url.scm 155 */
																																																																				BgL_test4352z00_10541
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Unsafe/url.scm 155 */
																																																																				BgL_test4352z00_10541
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_9128)
																																																																					==
																																																																					126L);
																																																			}}}}}}}}}
																																																		if (BgL_test4352z00_10541)
																																																			{
																																																				long
																																																					BgL_bufposz00_10587;
																																																				long
																																																					BgL_forwardz00_10585;
																																																				long
																																																					BgL_lastzd2matchzd2_10584;
																																																				obj_t
																																																					BgL_iportz00_10583;
																																																				BgL_iportz00_10583
																																																					=
																																																					BgL_iportz00_9121;
																																																				BgL_lastzd2matchzd2_10584
																																																					=
																																																					BgL_newzd2matchzd2_9125;
																																																				BgL_forwardz00_10585
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_9123);
																																																				BgL_bufposz00_10587
																																																					=
																																																					BgL_bufposz00_9124;
																																																				BgL_bufposz00_9115
																																																					=
																																																					BgL_bufposz00_10587;
																																																				BgL_forwardz00_9114
																																																					=
																																																					BgL_forwardz00_10585;
																																																				BgL_lastzd2matchzd2_9113
																																																					=
																																																					BgL_lastzd2matchzd2_10584;
																																																				BgL_iportz00_9112
																																																					=
																																																					BgL_iportz00_10583;
																																																				goto
																																																					BgL_statezd29zd21139z00_9031;
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 155 */
																																																				BgL_matchz00_9202
																																																					=
																																																					BgL_newzd2matchzd2_9125;
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Unsafe/url.scm 155 */
																																										if (((long) (BgL_curz00_9198) == 37L))
																																											{	/* Unsafe/url.scm 155 */
																																												BgL_iportz00_9063
																																													=
																																													BgL_iportz00_9191;
																																												BgL_lastzd2matchzd2_9064
																																													=
																																													BgL_newzd2matchzd2_9195;
																																												BgL_forwardz00_9065
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_9193);
																																												BgL_bufposz00_9066
																																													=
																																													BgL_bufposz00_9194;
																																											BgL_statezd218zd21148z00_9026:
																																												{	/* Unsafe/url.scm 155 */
																																													long
																																														BgL_newzd2matchzd2_9067;
																																													{	/* Unsafe/url.scm 155 */
																																														obj_t
																																															BgL_tmpz00_10592;
																																														BgL_tmpz00_10592
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_9063);
																																														RGC_STOP_MATCH
																																															(BgL_tmpz00_10592,
																																															BgL_forwardz00_9065);
																																													}
																																													BgL_newzd2matchzd2_9067
																																														=
																																														2L;
																																													if ((BgL_forwardz00_9065 == BgL_bufposz00_9066))
																																														{	/* Unsafe/url.scm 155 */
																																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_9063)))
																																																{	/* Unsafe/url.scm 155 */
																																																	long
																																																		BgL_arg2716z00_9068;
																																																	long
																																																		BgL_arg2717z00_9069;
																																																	{	/* Unsafe/url.scm 155 */
																																																		obj_t
																																																			BgL_tmpz00_10600;
																																																		BgL_tmpz00_10600
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9063);
																																																		BgL_arg2716z00_9068
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_tmpz00_10600);
																																																	}
																																																	{	/* Unsafe/url.scm 155 */
																																																		obj_t
																																																			BgL_tmpz00_10603;
																																																		BgL_tmpz00_10603
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9063);
																																																		BgL_arg2717z00_9069
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_tmpz00_10603);
																																																	}
																																																	{
																																																		long
																																																			BgL_bufposz00_10607;
																																																		long
																																																			BgL_forwardz00_10606;
																																																		BgL_forwardz00_10606
																																																			=
																																																			BgL_arg2716z00_9068;
																																																		BgL_bufposz00_10607
																																																			=
																																																			BgL_arg2717z00_9069;
																																																		BgL_bufposz00_9066
																																																			=
																																																			BgL_bufposz00_10607;
																																																		BgL_forwardz00_9065
																																																			=
																																																			BgL_forwardz00_10606;
																																																		goto
																																																			BgL_statezd218zd21148z00_9026;
																																																	}
																																																}
																																															else
																																																{	/* Unsafe/url.scm 155 */
																																																	BgL_matchz00_9202
																																																		=
																																																		BgL_newzd2matchzd2_9067;
																																																}
																																														}
																																													else
																																														{	/* Unsafe/url.scm 155 */
																																															int
																																																BgL_curz00_9070;
																																															{	/* Unsafe/url.scm 155 */
																																																obj_t
																																																	BgL_tmpz00_10608;
																																																BgL_tmpz00_10608
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_9063);
																																																BgL_curz00_9070
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_tmpz00_10608,
																																																	BgL_forwardz00_9065);
																																															}
																																															{	/* Unsafe/url.scm 155 */

																																																if (((long) (BgL_curz00_9070) == 58L))
																																																	{	/* Unsafe/url.scm 155 */
																																																		long
																																																			BgL_arg2720z00_9071;
																																																		BgL_arg2720z00_9071
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_9065);
																																																		{	/* Unsafe/url.scm 155 */
																																																			long
																																																				BgL_newzd2matchzd2_9072;
																																																			{	/* Unsafe/url.scm 155 */
																																																				obj_t
																																																					BgL_tmpz00_10615;
																																																				BgL_tmpz00_10615
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_9063);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_10615,
																																																					BgL_arg2720z00_9071);
																																																			}
																																																			BgL_newzd2matchzd2_9072
																																																				=
																																																				1L;
																																																			BgL_matchz00_9202
																																																				=
																																																				BgL_newzd2matchzd2_9072;
																																																	}}
																																																else
																																																	{	/* Unsafe/url.scm 155 */
																																																		bool_t
																																																			BgL_test4370z00_10618;
																																																		{	/* Unsafe/url.scm 155 */
																																																			bool_t
																																																				BgL_test4371z00_10619;
																																																			if (((long) (BgL_curz00_9070) >= 48L))
																																																				{	/* Unsafe/url.scm 155 */
																																																					BgL_test4371z00_10619
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9070)
																																																						<
																																																						58L);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 155 */
																																																					BgL_test4371z00_10619
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test4371z00_10619)
																																																				{	/* Unsafe/url.scm 155 */
																																																					BgL_test4370z00_10618
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 155 */
																																																					bool_t
																																																						BgL_test4373z00_10625;
																																																					if (((long) (BgL_curz00_9070) >= 65L))
																																																						{	/* Unsafe/url.scm 155 */
																																																							BgL_test4373z00_10625
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9070)
																																																								<
																																																								71L);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 155 */
																																																							BgL_test4373z00_10625
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test4373z00_10625)
																																																						{	/* Unsafe/url.scm 155 */
																																																							BgL_test4370z00_10618
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 155 */
																																																							if (((long) (BgL_curz00_9070) >= 97L))
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4370z00_10618
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9070)
																																																										<
																																																										103L);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4370z00_10618
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																						}
																																																				}
																																																		}
																																																		if (BgL_test4370z00_10618)
																																																			{
																																																				long
																																																					BgL_bufposz00_10640;
																																																				long
																																																					BgL_forwardz00_10638;
																																																				long
																																																					BgL_lastzd2matchzd2_10637;
																																																				obj_t
																																																					BgL_iportz00_10636;
																																																				BgL_iportz00_10636
																																																					=
																																																					BgL_iportz00_9063;
																																																				BgL_lastzd2matchzd2_10637
																																																					=
																																																					BgL_newzd2matchzd2_9067;
																																																				BgL_forwardz00_10638
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_9065);
																																																				BgL_bufposz00_10640
																																																					=
																																																					BgL_bufposz00_9066;
																																																				BgL_bufposz00_9076
																																																					=
																																																					BgL_bufposz00_10640;
																																																				BgL_forwardz00_9075
																																																					=
																																																					BgL_forwardz00_10638;
																																																				BgL_lastzd2matchzd2_9074
																																																					=
																																																					BgL_lastzd2matchzd2_10637;
																																																				BgL_iportz00_9073
																																																					=
																																																					BgL_iportz00_10636;
																																																				goto
																																																					BgL_statezd215zd21145z00_9027;
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 155 */
																																																				bool_t
																																																					BgL_test4376z00_10641;
																																																				{	/* Unsafe/url.scm 155 */
																																																					bool_t
																																																						BgL_test4377z00_10642;
																																																					if (((long) (BgL_curz00_9070) >= 47L))
																																																						{	/* Unsafe/url.scm 155 */
																																																							BgL_test4377z00_10642
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9070)
																																																								<
																																																								59L);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 155 */
																																																							BgL_test4377z00_10642
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test4377z00_10642)
																																																						{	/* Unsafe/url.scm 155 */
																																																							BgL_test4376z00_10641
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 155 */
																																																							bool_t
																																																								BgL_test4379z00_10648;
																																																							if (((long) (BgL_curz00_9070) >= 64L))
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4379z00_10648
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9070)
																																																										<
																																																										71L);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4379z00_10648
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test4379z00_10648)
																																																								{	/* Unsafe/url.scm 155 */
																																																									BgL_test4376z00_10641
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 155 */
																																																									if (((long) (BgL_curz00_9070) >= 97L))
																																																										{	/* Unsafe/url.scm 155 */
																																																											BgL_test4376z00_10641
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9070)
																																																												<
																																																												103L);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 155 */
																																																											BgL_test4376z00_10641
																																																												=
																																																												(
																																																												(bool_t)
																																																												0);
																																																										}
																																																								}
																																																						}
																																																				}
																																																				if (BgL_test4376z00_10641)
																																																					{	/* Unsafe/url.scm 155 */
																																																						BgL_matchz00_9202
																																																							=
																																																							BgL_newzd2matchzd2_9067;
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 155 */
																																																						BgL_iportz00_9181
																																																							=
																																																							BgL_iportz00_9063;
																																																						BgL_lastzd2matchzd2_9182
																																																							=
																																																							BgL_newzd2matchzd2_9067;
																																																						BgL_forwardz00_9183
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_9065);
																																																						BgL_bufposz00_9184
																																																							=
																																																							BgL_bufposz00_9066;
																																																					BgL_statezd214zd21144z00_9039:
																																																						{	/* Unsafe/url.scm 155 */
																																																							long
																																																								BgL_newzd2matchzd2_9185;
																																																							{	/* Unsafe/url.scm 155 */
																																																								obj_t
																																																									BgL_tmpz00_10659;
																																																								BgL_tmpz00_10659
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_9181);
																																																								RGC_STOP_MATCH
																																																									(BgL_tmpz00_10659,
																																																									BgL_forwardz00_9183);
																																																							}
																																																							BgL_newzd2matchzd2_9185
																																																								=
																																																								2L;
																																																							if ((BgL_forwardz00_9183 == BgL_bufposz00_9184))
																																																								{	/* Unsafe/url.scm 155 */
																																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_9181)))
																																																										{	/* Unsafe/url.scm 155 */
																																																											long
																																																												BgL_arg2991z00_9186;
																																																											long
																																																												BgL_arg2992z00_9187;
																																																											{	/* Unsafe/url.scm 155 */
																																																												obj_t
																																																													BgL_tmpz00_10667;
																																																												BgL_tmpz00_10667
																																																													=
																																																													(
																																																													(obj_t)
																																																													BgL_iportz00_9181);
																																																												BgL_arg2991z00_9186
																																																													=
																																																													RGC_BUFFER_FORWARD
																																																													(BgL_tmpz00_10667);
																																																											}
																																																											{	/* Unsafe/url.scm 155 */
																																																												obj_t
																																																													BgL_tmpz00_10670;
																																																												BgL_tmpz00_10670
																																																													=
																																																													(
																																																													(obj_t)
																																																													BgL_iportz00_9181);
																																																												BgL_arg2992z00_9187
																																																													=
																																																													RGC_BUFFER_BUFPOS
																																																													(BgL_tmpz00_10670);
																																																											}
																																																											{
																																																												long
																																																													BgL_bufposz00_10674;
																																																												long
																																																													BgL_forwardz00_10673;
																																																												BgL_forwardz00_10673
																																																													=
																																																													BgL_arg2991z00_9186;
																																																												BgL_bufposz00_10674
																																																													=
																																																													BgL_arg2992z00_9187;
																																																												BgL_bufposz00_9184
																																																													=
																																																													BgL_bufposz00_10674;
																																																												BgL_forwardz00_9183
																																																													=
																																																													BgL_forwardz00_10673;
																																																												goto
																																																													BgL_statezd214zd21144z00_9039;
																																																											}
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 155 */
																																																											BgL_matchz00_9202
																																																												=
																																																												BgL_newzd2matchzd2_9185;
																																																										}
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 155 */
																																																									int
																																																										BgL_curz00_9188;
																																																									{	/* Unsafe/url.scm 155 */
																																																										obj_t
																																																											BgL_tmpz00_10675;
																																																										BgL_tmpz00_10675
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_9181);
																																																										BgL_curz00_9188
																																																											=
																																																											RGC_BUFFER_GET_CHAR
																																																											(BgL_tmpz00_10675,
																																																											BgL_forwardz00_9183);
																																																									}
																																																									{	/* Unsafe/url.scm 155 */

																																																										if (((long) (BgL_curz00_9188) == 58L))
																																																											{	/* Unsafe/url.scm 155 */
																																																												long
																																																													BgL_arg2994z00_9189;
																																																												BgL_arg2994z00_9189
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_9183);
																																																												{	/* Unsafe/url.scm 155 */
																																																													long
																																																														BgL_newzd2matchzd2_9190;
																																																													{	/* Unsafe/url.scm 155 */
																																																														obj_t
																																																															BgL_tmpz00_10682;
																																																														BgL_tmpz00_10682
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_9181);
																																																														RGC_STOP_MATCH
																																																															(BgL_tmpz00_10682,
																																																															BgL_arg2994z00_9189);
																																																													}
																																																													BgL_newzd2matchzd2_9190
																																																														=
																																																														1L;
																																																													BgL_matchz00_9202
																																																														=
																																																														BgL_newzd2matchzd2_9190;
																																																											}}
																																																										else
																																																											{	/* Unsafe/url.scm 155 */
																																																												bool_t
																																																													BgL_test4385z00_10685;
																																																												if (((long) (BgL_curz00_9188) == 47L))
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_test4385z00_10685
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Unsafe/url.scm 155 */
																																																														if (((long) (BgL_curz00_9188) == 58L))
																																																															{	/* Unsafe/url.scm 155 */
																																																																BgL_test4385z00_10685
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Unsafe/url.scm 155 */
																																																																BgL_test4385z00_10685
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_9188)
																																																																	==
																																																																	64L);
																																																													}}
																																																												if (BgL_test4385z00_10685)
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_matchz00_9202
																																																															=
																																																															BgL_newzd2matchzd2_9185;
																																																													}
																																																												else
																																																													{
																																																														long
																																																															BgL_forwardz00_10695;
																																																														long
																																																															BgL_lastzd2matchzd2_10694;
																																																														BgL_lastzd2matchzd2_10694
																																																															=
																																																															BgL_newzd2matchzd2_9185;
																																																														BgL_forwardz00_10695
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_9183);
																																																														BgL_forwardz00_9183
																																																															=
																																																															BgL_forwardz00_10695;
																																																														BgL_lastzd2matchzd2_9182
																																																															=
																																																															BgL_lastzd2matchzd2_10694;
																																																														goto
																																																															BgL_statezd214zd21144z00_9039;
																																																													}
																																																											}
																																																									}
																																																								}
																																																						}
																																																					}
																																																			}
																																																	}
																																															}
																																														}
																																												}
																																											}
																																										else
																																											{	/* Unsafe/url.scm 155 */
																																												bool_t
																																													BgL_test4388z00_10699;
																																												if (((long) (BgL_curz00_9198) == 33L))
																																													{	/* Unsafe/url.scm 155 */
																																														BgL_test4388z00_10699
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/url.scm 155 */
																																														if (((long) (BgL_curz00_9198) == 36L))
																																															{	/* Unsafe/url.scm 155 */
																																																BgL_test4388z00_10699
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/url.scm 155 */
																																																bool_t
																																																	BgL_test4391z00_10706;
																																																if (((long) (BgL_curz00_9198) >= 38L))
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4391z00_10706
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_9198)
																																																			<
																																																			47L);
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4391z00_10706
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test4391z00_10706)
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4388z00_10699
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 155 */
																																																		bool_t
																																																			BgL_test4393z00_10712;
																																																		if (((long) (BgL_curz00_9198) >= 48L))
																																																			{	/* Unsafe/url.scm 155 */
																																																				BgL_test4393z00_10712
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_9198)
																																																					<
																																																					58L);
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 155 */
																																																				BgL_test4393z00_10712
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test4393z00_10712)
																																																			{	/* Unsafe/url.scm 155 */
																																																				BgL_test4388z00_10699
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 155 */
																																																				if (((long) (BgL_curz00_9198) == 59L))
																																																					{	/* Unsafe/url.scm 155 */
																																																						BgL_test4388z00_10699
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 155 */
																																																						if (((long) (BgL_curz00_9198) == 61L))
																																																							{	/* Unsafe/url.scm 155 */
																																																								BgL_test4388z00_10699
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Unsafe/url.scm 155 */
																																																								bool_t
																																																									BgL_test4397z00_10724;
																																																								if (((long) (BgL_curz00_9198) >= 65L))
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4397z00_10724
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_9198)
																																																											<
																																																											91L);
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4397z00_10724
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test4397z00_10724)
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4388z00_10699
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 155 */
																																																										if (((long) (BgL_curz00_9198) == 95L))
																																																											{	/* Unsafe/url.scm 155 */
																																																												BgL_test4388z00_10699
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Unsafe/url.scm 155 */
																																																												bool_t
																																																													BgL_test4400z00_10733;
																																																												if (((long) (BgL_curz00_9198) >= 97L))
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_test4400z00_10733
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_9198)
																																																															<
																																																															123L);
																																																													}
																																																												else
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_test4400z00_10733
																																																															=
																																																															(
																																																															(bool_t)
																																																															0);
																																																													}
																																																												if (BgL_test4400z00_10733)
																																																													{	/* Unsafe/url.scm 155 */
																																																														BgL_test4388z00_10699
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Unsafe/url.scm 155 */
																																																														if (((long) (BgL_curz00_9198) == 124L))
																																																															{	/* Unsafe/url.scm 155 */
																																																																BgL_test4388z00_10699
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Unsafe/url.scm 155 */
																																																																BgL_test4388z00_10699
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_9198)
																																																																	==
																																																																	126L);
																																													}}}}}}}}}}
																																												if (BgL_test4388z00_10699)
																																													{
																																														long
																																															BgL_forwardz00_10745;
																																														long
																																															BgL_lastzd2matchzd2_10744;
																																														BgL_lastzd2matchzd2_10744
																																															=
																																															BgL_newzd2matchzd2_9195;
																																														BgL_forwardz00_10745
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_9193);
																																														BgL_forwardz00_9193
																																															=
																																															BgL_forwardz00_10745;
																																														BgL_lastzd2matchzd2_9192
																																															=
																																															BgL_lastzd2matchzd2_10744;
																																														goto
																																															BgL_statezd217zd21147z00_9040;
																																													}
																																												else
																																													{	/* Unsafe/url.scm 155 */
																																														bool_t
																																															BgL_test4403z00_10747;
																																														if (((long) (BgL_curz00_9198) == 33L))
																																															{	/* Unsafe/url.scm 155 */
																																																BgL_test4403z00_10747
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/url.scm 155 */
																																																bool_t
																																																	BgL_test4405z00_10751;
																																																if (((long) (BgL_curz00_9198) >= 36L))
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4405z00_10751
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_9198)
																																																			<
																																																			60L);
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4405z00_10751
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test4405z00_10751)
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4403z00_10747
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 155 */
																																																		if (((long) (BgL_curz00_9198) == 61L))
																																																			{	/* Unsafe/url.scm 155 */
																																																				BgL_test4403z00_10747
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 155 */
																																																				bool_t
																																																					BgL_test4408z00_10760;
																																																				if (((long) (BgL_curz00_9198) >= 64L))
																																																					{	/* Unsafe/url.scm 155 */
																																																						BgL_test4408z00_10760
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_9198)
																																																							<
																																																							91L);
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 155 */
																																																						BgL_test4408z00_10760
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test4408z00_10760)
																																																					{	/* Unsafe/url.scm 155 */
																																																						BgL_test4403z00_10747
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 155 */
																																																						if (((long) (BgL_curz00_9198) == 95L))
																																																							{	/* Unsafe/url.scm 155 */
																																																								BgL_test4403z00_10747
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Unsafe/url.scm 155 */
																																																								bool_t
																																																									BgL_test4411z00_10769;
																																																								if (((long) (BgL_curz00_9198) >= 97L))
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4411z00_10769
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_9198)
																																																											<
																																																											123L);
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4411z00_10769
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test4411z00_10769)
																																																									{	/* Unsafe/url.scm 155 */
																																																										BgL_test4403z00_10747
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 155 */
																																																										if (((long) (BgL_curz00_9198) == 124L))
																																																											{	/* Unsafe/url.scm 155 */
																																																												BgL_test4403z00_10747
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Unsafe/url.scm 155 */
																																																												BgL_test4403z00_10747
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_9198)
																																																													==
																																																													126L);
																																															}}}}}}}
																																														if (BgL_test4403z00_10747)
																																															{	/* Unsafe/url.scm 155 */
																																																BgL_matchz00_9202
																																																	=
																																																	BgL_newzd2matchzd2_9195;
																																															}
																																														else
																																															{
																																																long
																																																	BgL_bufposz00_10784;
																																																long
																																																	BgL_forwardz00_10782;
																																																long
																																																	BgL_lastzd2matchzd2_10781;
																																																obj_t
																																																	BgL_iportz00_10780;
																																																BgL_iportz00_10780
																																																	=
																																																	BgL_iportz00_9191;
																																																BgL_lastzd2matchzd2_10781
																																																	=
																																																	BgL_newzd2matchzd2_9195;
																																																BgL_forwardz00_10782
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_9193);
																																																BgL_bufposz00_10784
																																																	=
																																																	BgL_bufposz00_9194;
																																																BgL_bufposz00_9184
																																																	=
																																																	BgL_bufposz00_10784;
																																																BgL_forwardz00_9183
																																																	=
																																																	BgL_forwardz00_10782;
																																																BgL_lastzd2matchzd2_9182
																																																	=
																																																	BgL_lastzd2matchzd2_10781;
																																																BgL_iportz00_9181
																																																	=
																																																	BgL_iportz00_10780;
																																																goto
																																																	BgL_statezd214zd21144z00_9039;
																																															}
																																													}
																																											}
																																									}
																																							}
																																					}
																																				}
																																		}
																																	}
																																else
																																	{	/* Unsafe/url.scm 155 */
																																		bool_t
																																			BgL_test4414z00_10786;
																																		{	/* Unsafe/url.scm 155 */
																																			bool_t
																																				BgL_test4415z00_10787;
																																			if ((
																																					(long)
																																					(BgL_curz00_9080)
																																					>=
																																					47L))
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4415z00_10787
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9080)
																																						<
																																						59L);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4415z00_10787
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test4415z00_10787)
																																				{	/* Unsafe/url.scm 155 */
																																					BgL_test4414z00_10786
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 155 */
																																					bool_t
																																						BgL_test4417z00_10793;
																																					if ((
																																							(long)
																																							(BgL_curz00_9080)
																																							>=
																																							64L))
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_test4417z00_10793
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9080)
																																								<
																																								71L);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_test4417z00_10793
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test4417z00_10793)
																																						{	/* Unsafe/url.scm 155 */
																																							BgL_test4414z00_10786
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 155 */
																																							if (((long) (BgL_curz00_9080) >= 97L))
																																								{	/* Unsafe/url.scm 155 */
																																									BgL_test4414z00_10786
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_9080)
																																										<
																																										103L);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 155 */
																																									BgL_test4414z00_10786
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																				}
																																		}
																																		if (BgL_test4414z00_10786)
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_matchz00_9202
																																					=
																																					BgL_newzd2matchzd2_9077;
																																			}
																																		else
																																			{
																																				long
																																					BgL_bufposz00_10808;
																																				long
																																					BgL_forwardz00_10806;
																																				long
																																					BgL_lastzd2matchzd2_10805;
																																				obj_t
																																					BgL_iportz00_10804;
																																				BgL_iportz00_10804
																																					=
																																					BgL_iportz00_9073;
																																				BgL_lastzd2matchzd2_10805
																																					=
																																					BgL_newzd2matchzd2_9077;
																																				BgL_forwardz00_10806
																																					=
																																					(1L +
																																					BgL_forwardz00_9075);
																																				BgL_bufposz00_10808
																																					=
																																					BgL_bufposz00_9076;
																																				BgL_bufposz00_9184
																																					=
																																					BgL_bufposz00_10808;
																																				BgL_forwardz00_9183
																																					=
																																					BgL_forwardz00_10806;
																																				BgL_lastzd2matchzd2_9182
																																					=
																																					BgL_lastzd2matchzd2_10805;
																																				BgL_iportz00_9181
																																					=
																																					BgL_iportz00_10804;
																																				goto
																																					BgL_statezd214zd21144z00_9039;
																																			}
																																	}
																															}
																													}
																												}
																										}
																									}
																								else
																									{	/* Unsafe/url.scm 155 */
																										bool_t
																											BgL_test4420z00_10810;
																										{	/* Unsafe/url.scm 155 */
																											bool_t
																												BgL_test4421z00_10811;
																											if (((long)
																													(BgL_curz00_9050) >=
																													47L))
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4421z00_10811
																														=
																														((long)
																														(BgL_curz00_9050) <
																														59L);
																												}
																											else
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4421z00_10811
																														= ((bool_t) 0);
																												}
																											if (BgL_test4421z00_10811)
																												{	/* Unsafe/url.scm 155 */
																													BgL_test4420z00_10810
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 155 */
																													bool_t
																														BgL_test4423z00_10817;
																													if (((long)
																															(BgL_curz00_9050)
																															>= 64L))
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4423z00_10817
																																=
																																((long)
																																(BgL_curz00_9050)
																																< 71L);
																														}
																													else
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4423z00_10817
																																= ((bool_t) 0);
																														}
																													if (BgL_test4423z00_10817)
																														{	/* Unsafe/url.scm 155 */
																															BgL_test4420z00_10810
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 155 */
																															if (
																																((long)
																																	(BgL_curz00_9050)
																																	>= 97L))
																																{	/* Unsafe/url.scm 155 */
																																	BgL_test4420z00_10810
																																		=
																																		((long)
																																		(BgL_curz00_9050)
																																		< 103L);
																																}
																															else
																																{	/* Unsafe/url.scm 155 */
																																	BgL_test4420z00_10810
																																		=
																																		((bool_t)
																																		0);
																																}
																														}
																												}
																										}
																										if (BgL_test4420z00_10810)
																											{	/* Unsafe/url.scm 155 */
																												BgL_matchz00_9202 =
																													BgL_newzd2matchzd2_9047;
																											}
																										else
																											{
																												long
																													BgL_bufposz00_10832;
																												long
																													BgL_forwardz00_10830;
																												long
																													BgL_lastzd2matchzd2_10829;
																												obj_t
																													BgL_iportz00_10828;
																												BgL_iportz00_10828 =
																													BgL_iportz00_9043;
																												BgL_lastzd2matchzd2_10829
																													=
																													BgL_newzd2matchzd2_9047;
																												BgL_forwardz00_10830 =
																													(1L +
																													BgL_forwardz00_9045);
																												BgL_bufposz00_10832 =
																													BgL_bufposz00_9046;
																												BgL_bufposz00_9184 =
																													BgL_bufposz00_10832;
																												BgL_forwardz00_9183 =
																													BgL_forwardz00_10830;
																												BgL_lastzd2matchzd2_9182
																													=
																													BgL_lastzd2matchzd2_10829;
																												BgL_iportz00_9181 =
																													BgL_iportz00_10828;
																												goto
																													BgL_statezd214zd21144z00_9039;
																											}
																									}
																							}
																					}
																				}
																		}
																	}
																else
																	{	/* Unsafe/url.scm 155 */
																		bool_t BgL_test4426z00_10834;

																		if (((long) (BgL_curz00_9089) == 33L))
																			{	/* Unsafe/url.scm 155 */
																				BgL_test4426z00_10834 = ((bool_t) 1);
																			}
																		else
																			{	/* Unsafe/url.scm 155 */
																				if (((long) (BgL_curz00_9089) == 36L))
																					{	/* Unsafe/url.scm 155 */
																						BgL_test4426z00_10834 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Unsafe/url.scm 155 */
																						bool_t BgL_test4429z00_10841;

																						if (
																							((long) (BgL_curz00_9089) >= 38L))
																							{	/* Unsafe/url.scm 155 */
																								BgL_test4429z00_10841 =
																									(
																									(long) (BgL_curz00_9089) <
																									47L);
																							}
																						else
																							{	/* Unsafe/url.scm 155 */
																								BgL_test4429z00_10841 =
																									((bool_t) 0);
																							}
																						if (BgL_test4429z00_10841)
																							{	/* Unsafe/url.scm 155 */
																								BgL_test4426z00_10834 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/url.scm 155 */
																								bool_t BgL_test4431z00_10847;

																								if (
																									((long) (BgL_curz00_9089) >=
																										48L))
																									{	/* Unsafe/url.scm 155 */
																										BgL_test4431z00_10847 =
																											(
																											(long) (BgL_curz00_9089) <
																											58L);
																									}
																								else
																									{	/* Unsafe/url.scm 155 */
																										BgL_test4431z00_10847 =
																											((bool_t) 0);
																									}
																								if (BgL_test4431z00_10847)
																									{	/* Unsafe/url.scm 155 */
																										BgL_test4426z00_10834 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/url.scm 155 */
																										if (
																											((long) (BgL_curz00_9089)
																												== 59L))
																											{	/* Unsafe/url.scm 155 */
																												BgL_test4426z00_10834 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/url.scm 155 */
																												if (
																													((long)
																														(BgL_curz00_9089) ==
																														61L))
																													{	/* Unsafe/url.scm 155 */
																														BgL_test4426z00_10834
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/url.scm 155 */
																														bool_t
																															BgL_test4435z00_10859;
																														if (((long)
																																(BgL_curz00_9089)
																																>= 65L))
																															{	/* Unsafe/url.scm 155 */
																																BgL_test4435z00_10859
																																	=
																																	((long)
																																	(BgL_curz00_9089)
																																	< 91L);
																															}
																														else
																															{	/* Unsafe/url.scm 155 */
																																BgL_test4435z00_10859
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test4435z00_10859)
																															{	/* Unsafe/url.scm 155 */
																																BgL_test4426z00_10834
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/url.scm 155 */
																																if (
																																	((long)
																																		(BgL_curz00_9089)
																																		== 95L))
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_test4426z00_10834
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/url.scm 155 */
																																		bool_t
																																			BgL_test4438z00_10868;
																																		if (((long)
																																				(BgL_curz00_9089)
																																				>= 97L))
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4438z00_10868
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_9089)
																																					<
																																					123L);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4438z00_10868
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test4438z00_10868)
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4426z00_10834
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				if (
																																					((long) (BgL_curz00_9089) == 124L))
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4426z00_10834
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4426z00_10834
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_9089)
																																							==
																																							126L);
																			}}}}}}}}}}
																		if (BgL_test4426z00_10834)
																			{	/* Unsafe/url.scm 155 */
																				BgL_iportz00_9053 = BgL_iportz00_9083;
																				BgL_lastzd2matchzd2_9054 =
																					BgL_lastzd2matchzd2_9084;
																				BgL_forwardz00_9055 =
																					(1L + BgL_forwardz00_9085);
																				BgL_bufposz00_9056 = BgL_bufposz00_9086;
																			BgL_statezd23zd21133z00_9025:
																				{	/* Unsafe/url.scm 155 */
																					long BgL_newzd2matchzd2_9057;

																					{	/* Unsafe/url.scm 155 */
																						obj_t BgL_tmpz00_10879;

																						BgL_tmpz00_10879 =
																							((obj_t) BgL_iportz00_9053);
																						RGC_STOP_MATCH(BgL_tmpz00_10879,
																							BgL_forwardz00_9055);
																					}
																					BgL_newzd2matchzd2_9057 = 2L;
																					if (
																						(BgL_forwardz00_9055 ==
																							BgL_bufposz00_9056))
																						{	/* Unsafe/url.scm 155 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_9053)))
																								{	/* Unsafe/url.scm 155 */
																									long BgL_arg2672z00_9058;
																									long BgL_arg2673z00_9059;

																									{	/* Unsafe/url.scm 155 */
																										obj_t BgL_tmpz00_10887;

																										BgL_tmpz00_10887 =
																											((obj_t)
																											BgL_iportz00_9053);
																										BgL_arg2672z00_9058 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_10887);
																									}
																									{	/* Unsafe/url.scm 155 */
																										obj_t BgL_tmpz00_10890;

																										BgL_tmpz00_10890 =
																											((obj_t)
																											BgL_iportz00_9053);
																										BgL_arg2673z00_9059 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_10890);
																									}
																									{
																										long BgL_bufposz00_10894;
																										long BgL_forwardz00_10893;

																										BgL_forwardz00_10893 =
																											BgL_arg2672z00_9058;
																										BgL_bufposz00_10894 =
																											BgL_arg2673z00_9059;
																										BgL_bufposz00_9056 =
																											BgL_bufposz00_10894;
																										BgL_forwardz00_9055 =
																											BgL_forwardz00_10893;
																										goto
																											BgL_statezd23zd21133z00_9025;
																									}
																								}
																							else
																								{	/* Unsafe/url.scm 155 */
																									BgL_matchz00_9202 =
																										BgL_newzd2matchzd2_9057;
																								}
																						}
																					else
																						{	/* Unsafe/url.scm 155 */
																							int BgL_curz00_9060;

																							{	/* Unsafe/url.scm 155 */
																								obj_t BgL_tmpz00_10895;

																								BgL_tmpz00_10895 =
																									((obj_t) BgL_iportz00_9053);
																								BgL_curz00_9060 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_10895,
																									BgL_forwardz00_9055);
																							}
																							{	/* Unsafe/url.scm 155 */

																								if (
																									((long) (BgL_curz00_9060) ==
																										64L))
																									{	/* Unsafe/url.scm 155 */
																										long BgL_arg2675z00_9061;

																										BgL_arg2675z00_9061 =
																											(1L +
																											BgL_forwardz00_9055);
																										{	/* Unsafe/url.scm 155 */
																											long
																												BgL_newzd2matchzd2_9062;
																											{	/* Unsafe/url.scm 155 */
																												obj_t BgL_tmpz00_10902;

																												BgL_tmpz00_10902 =
																													((obj_t)
																													BgL_iportz00_9053);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_10902,
																													BgL_arg2675z00_9061);
																											}
																											BgL_newzd2matchzd2_9062 =
																												0L;
																											BgL_matchz00_9202 =
																												BgL_newzd2matchzd2_9062;
																									}}
																								else
																									{	/* Unsafe/url.scm 155 */
																										if (
																											((long) (BgL_curz00_9060)
																												== 58L))
																											{
																												long
																													BgL_bufposz00_10912;
																												long
																													BgL_forwardz00_10910;
																												long
																													BgL_lastzd2matchzd2_10909;
																												obj_t
																													BgL_iportz00_10908;
																												BgL_iportz00_10908 =
																													BgL_iportz00_9053;
																												BgL_lastzd2matchzd2_10909
																													=
																													BgL_newzd2matchzd2_9057;
																												BgL_forwardz00_10910 =
																													(1L +
																													BgL_forwardz00_9055);
																												BgL_bufposz00_10912 =
																													BgL_bufposz00_9056;
																												BgL_bufposz00_9124 =
																													BgL_bufposz00_10912;
																												BgL_forwardz00_9123 =
																													BgL_forwardz00_10910;
																												BgL_lastzd2matchzd2_9122
																													=
																													BgL_lastzd2matchzd2_10909;
																												BgL_iportz00_9121 =
																													BgL_iportz00_10908;
																												goto
																													BgL_statezd219zd21149z00_9032;
																											}
																										else
																											{	/* Unsafe/url.scm 155 */
																												if (
																													((long)
																														(BgL_curz00_9060) ==
																														37L))
																													{
																														long
																															BgL_bufposz00_10920;
																														long
																															BgL_forwardz00_10918;
																														long
																															BgL_lastzd2matchzd2_10917;
																														obj_t
																															BgL_iportz00_10916;
																														BgL_iportz00_10916 =
																															BgL_iportz00_9053;
																														BgL_lastzd2matchzd2_10917
																															=
																															BgL_newzd2matchzd2_9057;
																														BgL_forwardz00_10918
																															=
																															(1L +
																															BgL_forwardz00_9055);
																														BgL_bufposz00_10920
																															=
																															BgL_bufposz00_9056;
																														BgL_bufposz00_9066 =
																															BgL_bufposz00_10920;
																														BgL_forwardz00_9065
																															=
																															BgL_forwardz00_10918;
																														BgL_lastzd2matchzd2_9064
																															=
																															BgL_lastzd2matchzd2_10917;
																														BgL_iportz00_9063 =
																															BgL_iportz00_10916;
																														goto
																															BgL_statezd218zd21148z00_9026;
																													}
																												else
																													{	/* Unsafe/url.scm 155 */
																														bool_t
																															BgL_test4446z00_10921;
																														if (((long)
																																(BgL_curz00_9060)
																																== 33L))
																															{	/* Unsafe/url.scm 155 */
																																BgL_test4446z00_10921
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/url.scm 155 */
																																if (
																																	((long)
																																		(BgL_curz00_9060)
																																		== 36L))
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_test4446z00_10921
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/url.scm 155 */
																																		bool_t
																																			BgL_test4449z00_10928;
																																		if (((long)
																																				(BgL_curz00_9060)
																																				>= 38L))
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4449z00_10928
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_9060)
																																					<
																																					47L);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4449z00_10928
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test4449z00_10928)
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4446z00_10921
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				bool_t
																																					BgL_test4451z00_10934;
																																				if ((
																																						(long)
																																						(BgL_curz00_9060)
																																						>=
																																						48L))
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4451z00_10934
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_9060)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4451z00_10934
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test4451z00_10934)
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4446z00_10921
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						if (
																																							((long) (BgL_curz00_9060) == 59L))
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4446z00_10921
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 155 */
																																								if (((long) (BgL_curz00_9060) == 61L))
																																									{	/* Unsafe/url.scm 155 */
																																										BgL_test4446z00_10921
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/url.scm 155 */
																																										bool_t
																																											BgL_test4455z00_10946;
																																										if (((long) (BgL_curz00_9060) >= 65L))
																																											{	/* Unsafe/url.scm 155 */
																																												BgL_test4455z00_10946
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_9060)
																																													<
																																													91L);
																																											}
																																										else
																																											{	/* Unsafe/url.scm 155 */
																																												BgL_test4455z00_10946
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test4455z00_10946)
																																											{	/* Unsafe/url.scm 155 */
																																												BgL_test4446z00_10921
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/url.scm 155 */
																																												if (((long) (BgL_curz00_9060) == 95L))
																																													{	/* Unsafe/url.scm 155 */
																																														BgL_test4446z00_10921
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/url.scm 155 */
																																														bool_t
																																															BgL_test4458z00_10955;
																																														if (((long) (BgL_curz00_9060) >= 97L))
																																															{	/* Unsafe/url.scm 155 */
																																																BgL_test4458z00_10955
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_9060)
																																																	<
																																																	123L);
																																															}
																																														else
																																															{	/* Unsafe/url.scm 155 */
																																																BgL_test4458z00_10955
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test4458z00_10955)
																																															{	/* Unsafe/url.scm 155 */
																																																BgL_test4446z00_10921
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/url.scm 155 */
																																																if (((long) (BgL_curz00_9060) == 124L))
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4446z00_10921
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 155 */
																																																		BgL_test4446z00_10921
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_9060)
																																																			==
																																																			126L);
																															}}}}}}}}}}
																														if (BgL_test4446z00_10921)
																															{
																																long
																																	BgL_bufposz00_10970;
																																long
																																	BgL_forwardz00_10968;
																																long
																																	BgL_lastzd2matchzd2_10967;
																																obj_t
																																	BgL_iportz00_10966;
																																BgL_iportz00_10966
																																	=
																																	BgL_iportz00_9053;
																																BgL_lastzd2matchzd2_10967
																																	=
																																	BgL_newzd2matchzd2_9057;
																																BgL_forwardz00_10968
																																	=
																																	(1L +
																																	BgL_forwardz00_9055);
																																BgL_bufposz00_10970
																																	=
																																	BgL_bufposz00_9056;
																																BgL_bufposz00_9194
																																	=
																																	BgL_bufposz00_10970;
																																BgL_forwardz00_9193
																																	=
																																	BgL_forwardz00_10968;
																																BgL_lastzd2matchzd2_9192
																																	=
																																	BgL_lastzd2matchzd2_10967;
																																BgL_iportz00_9191
																																	=
																																	BgL_iportz00_10966;
																																goto
																																	BgL_statezd217zd21147z00_9040;
																															}
																														else
																															{	/* Unsafe/url.scm 155 */
																																bool_t
																																	BgL_test4461z00_10971;
																																if (((long)
																																		(BgL_curz00_9060)
																																		== 33L))
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_test4461z00_10971
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/url.scm 155 */
																																		bool_t
																																			BgL_test4463z00_10975;
																																		if (((long)
																																				(BgL_curz00_9060)
																																				>= 36L))
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4463z00_10975
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_9060)
																																					<
																																					60L);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4463z00_10975
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test4463z00_10975)
																																			{	/* Unsafe/url.scm 155 */
																																				BgL_test4461z00_10971
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				if (
																																					((long) (BgL_curz00_9060) == 61L))
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4461z00_10971
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						bool_t
																																							BgL_test4466z00_10984;
																																						if (
																																							((long) (BgL_curz00_9060) >= 64L))
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4466z00_10984
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_9060)
																																									<
																																									91L);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4466z00_10984
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test4466z00_10984)
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4461z00_10971
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 155 */
																																								if (((long) (BgL_curz00_9060) == 95L))
																																									{	/* Unsafe/url.scm 155 */
																																										BgL_test4461z00_10971
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/url.scm 155 */
																																										bool_t
																																											BgL_test4469z00_10993;
																																										if (((long) (BgL_curz00_9060) >= 97L))
																																											{	/* Unsafe/url.scm 155 */
																																												BgL_test4469z00_10993
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_9060)
																																													<
																																													123L);
																																											}
																																										else
																																											{	/* Unsafe/url.scm 155 */
																																												BgL_test4469z00_10993
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test4469z00_10993)
																																											{	/* Unsafe/url.scm 155 */
																																												BgL_test4461z00_10971
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/url.scm 155 */
																																												if (((long) (BgL_curz00_9060) == 124L))
																																													{	/* Unsafe/url.scm 155 */
																																														BgL_test4461z00_10971
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/url.scm 155 */
																																														BgL_test4461z00_10971
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_9060)
																																															==
																																															126L);
																																	}}}}}}}
																																if (BgL_test4461z00_10971)
																																	{	/* Unsafe/url.scm 155 */
																																		BgL_matchz00_9202
																																			=
																																			BgL_newzd2matchzd2_9057;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_11008;
																																		long
																																			BgL_forwardz00_11006;
																																		long
																																			BgL_lastzd2matchzd2_11005;
																																		obj_t
																																			BgL_iportz00_11004;
																																		BgL_iportz00_11004
																																			=
																																			BgL_iportz00_9053;
																																		BgL_lastzd2matchzd2_11005
																																			=
																																			BgL_newzd2matchzd2_9057;
																																		BgL_forwardz00_11006
																																			=
																																			(1L +
																																			BgL_forwardz00_9055);
																																		BgL_bufposz00_11008
																																			=
																																			BgL_bufposz00_9056;
																																		BgL_bufposz00_9184
																																			=
																																			BgL_bufposz00_11008;
																																		BgL_forwardz00_9183
																																			=
																																			BgL_forwardz00_11006;
																																		BgL_lastzd2matchzd2_9182
																																			=
																																			BgL_lastzd2matchzd2_11005;
																																		BgL_iportz00_9181
																																			=
																																			BgL_iportz00_11004;
																																		goto
																																			BgL_statezd214zd21144z00_9039;
																																	}
																															}
																													}
																											}
																									}
																							}
																						}
																				}
																			}
																		else
																			{	/* Unsafe/url.scm 155 */
																				if (((long) (BgL_curz00_9089) == 13L))
																					{	/* Unsafe/url.scm 155 */
																						BgL_iportz00_9102 =
																							BgL_iportz00_9083;
																						BgL_lastzd2matchzd2_9103 =
																							BgL_lastzd2matchzd2_9084;
																						BgL_forwardz00_9104 =
																							(1L + BgL_forwardz00_9085);
																						BgL_bufposz00_9105 =
																							BgL_bufposz00_9086;
																					BgL_statezd22zd21132z00_9030:
																						{	/* Unsafe/url.scm 155 */
																							long BgL_newzd2matchzd2_9106;

																							{	/* Unsafe/url.scm 155 */
																								obj_t BgL_tmpz00_11013;

																								BgL_tmpz00_11013 =
																									((obj_t) BgL_iportz00_9102);
																								RGC_STOP_MATCH(BgL_tmpz00_11013,
																									BgL_forwardz00_9104);
																							}
																							BgL_newzd2matchzd2_9106 = 2L;
																							if (
																								(BgL_forwardz00_9104 ==
																									BgL_bufposz00_9105))
																								{	/* Unsafe/url.scm 155 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_9102)))
																										{	/* Unsafe/url.scm 155 */
																											long BgL_arg2828z00_9107;
																											long BgL_arg2829z00_9108;

																											{	/* Unsafe/url.scm 155 */
																												obj_t BgL_tmpz00_11021;

																												BgL_tmpz00_11021 =
																													((obj_t)
																													BgL_iportz00_9102);
																												BgL_arg2828z00_9107 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_11021);
																											}
																											{	/* Unsafe/url.scm 155 */
																												obj_t BgL_tmpz00_11024;

																												BgL_tmpz00_11024 =
																													((obj_t)
																													BgL_iportz00_9102);
																												BgL_arg2829z00_9108 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_11024);
																											}
																											{
																												long
																													BgL_bufposz00_11028;
																												long
																													BgL_forwardz00_11027;
																												BgL_forwardz00_11027 =
																													BgL_arg2828z00_9107;
																												BgL_bufposz00_11028 =
																													BgL_arg2829z00_9108;
																												BgL_bufposz00_9105 =
																													BgL_bufposz00_11028;
																												BgL_forwardz00_9104 =
																													BgL_forwardz00_11027;
																												goto
																													BgL_statezd22zd21132z00_9030;
																											}
																										}
																									else
																										{	/* Unsafe/url.scm 155 */
																											BgL_matchz00_9202 =
																												BgL_newzd2matchzd2_9106;
																										}
																								}
																							else
																								{	/* Unsafe/url.scm 155 */
																									int BgL_curz00_9109;

																									{	/* Unsafe/url.scm 155 */
																										obj_t BgL_tmpz00_11029;

																										BgL_tmpz00_11029 =
																											((obj_t)
																											BgL_iportz00_9102);
																										BgL_curz00_9109 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_11029,
																											BgL_forwardz00_9104);
																									}
																									{	/* Unsafe/url.scm 155 */

																										if (
																											((long) (BgL_curz00_9109)
																												== 58L))
																											{	/* Unsafe/url.scm 155 */
																												long
																													BgL_arg2831z00_9110;
																												BgL_arg2831z00_9110 =
																													(1L +
																													BgL_forwardz00_9104);
																												{	/* Unsafe/url.scm 155 */
																													long
																														BgL_newzd2matchzd2_9111;
																													{	/* Unsafe/url.scm 155 */
																														obj_t
																															BgL_tmpz00_11036;
																														BgL_tmpz00_11036 =
																															((obj_t)
																															BgL_iportz00_9102);
																														RGC_STOP_MATCH
																															(BgL_tmpz00_11036,
																															BgL_arg2831z00_9110);
																													}
																													BgL_newzd2matchzd2_9111
																														= 1L;
																													BgL_matchz00_9202 =
																														BgL_newzd2matchzd2_9111;
																											}}
																										else
																											{	/* Unsafe/url.scm 155 */
																												if (
																													((long)
																														(BgL_curz00_9109) ==
																														10L))
																													{	/* Unsafe/url.scm 155 */
																														BgL_iportz00_9171 =
																															BgL_iportz00_9102;
																														BgL_lastzd2matchzd2_9172
																															=
																															BgL_newzd2matchzd2_9106;
																														BgL_forwardz00_9173
																															=
																															(1L +
																															BgL_forwardz00_9104);
																														BgL_bufposz00_9174 =
																															BgL_bufposz00_9105;
																													BgL_statezd220zd21150z00_9038:
																														{	/* Unsafe/url.scm 155 */
																															long
																																BgL_newzd2matchzd2_9175;
																															{	/* Unsafe/url.scm 155 */
																																obj_t
																																	BgL_tmpz00_11042;
																																BgL_tmpz00_11042
																																	=
																																	((obj_t)
																																	BgL_iportz00_9171);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_11042,
																																	BgL_forwardz00_9173);
																															}
																															BgL_newzd2matchzd2_9175
																																= 2L;
																															if (
																																(BgL_forwardz00_9173
																																	==
																																	BgL_bufposz00_9174))
																																{	/* Unsafe/url.scm 155 */
																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_9171)))
																																		{	/* Unsafe/url.scm 155 */
																																			long
																																				BgL_arg2980z00_9176;
																																			long
																																				BgL_arg2981z00_9177;
																																			{	/* Unsafe/url.scm 155 */
																																				obj_t
																																					BgL_tmpz00_11050;
																																				BgL_tmpz00_11050
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_9171);
																																				BgL_arg2980z00_9176
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_tmpz00_11050);
																																			}
																																			{	/* Unsafe/url.scm 155 */
																																				obj_t
																																					BgL_tmpz00_11053;
																																				BgL_tmpz00_11053
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_9171);
																																				BgL_arg2981z00_9177
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_tmpz00_11053);
																																			}
																																			{
																																				long
																																					BgL_bufposz00_11057;
																																				long
																																					BgL_forwardz00_11056;
																																				BgL_forwardz00_11056
																																					=
																																					BgL_arg2980z00_9176;
																																				BgL_bufposz00_11057
																																					=
																																					BgL_arg2981z00_9177;
																																				BgL_bufposz00_9174
																																					=
																																					BgL_bufposz00_11057;
																																				BgL_forwardz00_9173
																																					=
																																					BgL_forwardz00_11056;
																																				goto
																																					BgL_statezd220zd21150z00_9038;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/url.scm 155 */
																																			BgL_matchz00_9202
																																				=
																																				BgL_newzd2matchzd2_9175;
																																		}
																																}
																															else
																																{	/* Unsafe/url.scm 155 */
																																	int
																																		BgL_curz00_9178;
																																	{	/* Unsafe/url.scm 155 */
																																		obj_t
																																			BgL_tmpz00_11058;
																																		BgL_tmpz00_11058
																																			=
																																			((obj_t)
																																			BgL_iportz00_9171);
																																		BgL_curz00_9178
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_tmpz00_11058,
																																			BgL_forwardz00_9173);
																																	}
																																	{	/* Unsafe/url.scm 155 */

																																		if (
																																			((long)
																																				(BgL_curz00_9178)
																																				== 58L))
																																			{	/* Unsafe/url.scm 155 */
																																				long
																																					BgL_arg2983z00_9179;
																																				BgL_arg2983z00_9179
																																					=
																																					(1L +
																																					BgL_forwardz00_9173);
																																				{	/* Unsafe/url.scm 155 */
																																					long
																																						BgL_newzd2matchzd2_9180;
																																					{	/* Unsafe/url.scm 155 */
																																						obj_t
																																							BgL_tmpz00_11065;
																																						BgL_tmpz00_11065
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_9171);
																																						RGC_STOP_MATCH
																																							(BgL_tmpz00_11065,
																																							BgL_arg2983z00_9179);
																																					}
																																					BgL_newzd2matchzd2_9180
																																						=
																																						1L;
																																					BgL_matchz00_9202
																																						=
																																						BgL_newzd2matchzd2_9180;
																																			}}
																																		else
																																			{	/* Unsafe/url.scm 155 */
																																				bool_t
																																					BgL_test4480z00_11068;
																																				if ((
																																						(long)
																																						(BgL_curz00_9178)
																																						==
																																						47L))
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_test4480z00_11068
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 155 */
																																						if (
																																							((long) (BgL_curz00_9178) == 58L))
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4480z00_11068
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 155 */
																																								BgL_test4480z00_11068
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_9178)
																																									==
																																									64L);
																																					}}
																																				if (BgL_test4480z00_11068)
																																					{	/* Unsafe/url.scm 155 */
																																						BgL_matchz00_9202
																																							=
																																							BgL_newzd2matchzd2_9175;
																																					}
																																				else
																																					{
																																						long
																																							BgL_bufposz00_11081;
																																						long
																																							BgL_forwardz00_11079;
																																						long
																																							BgL_lastzd2matchzd2_11078;
																																						obj_t
																																							BgL_iportz00_11077;
																																						BgL_iportz00_11077
																																							=
																																							BgL_iportz00_9171;
																																						BgL_lastzd2matchzd2_11078
																																							=
																																							BgL_newzd2matchzd2_9175;
																																						BgL_forwardz00_11079
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_9173);
																																						BgL_bufposz00_11081
																																							=
																																							BgL_bufposz00_9174;
																																						BgL_bufposz00_9184
																																							=
																																							BgL_bufposz00_11081;
																																						BgL_forwardz00_9183
																																							=
																																							BgL_forwardz00_11079;
																																						BgL_lastzd2matchzd2_9182
																																							=
																																							BgL_lastzd2matchzd2_11078;
																																						BgL_iportz00_9181
																																							=
																																							BgL_iportz00_11077;
																																						goto
																																							BgL_statezd214zd21144z00_9039;
																																					}
																																			}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Unsafe/url.scm 155 */
																														bool_t
																															BgL_test4483z00_11083;
																														switch ((long)
																															(BgL_curz00_9109))
																															{
																															case 10L:

																																BgL_test4483z00_11083 = ((bool_t) 1);
																																break;
																															case 47L:

																																BgL_test4483z00_11083 = ((bool_t) 1);
																																break;
																															case 58L:

																																BgL_test4483z00_11083 = ((bool_t) 1);
																																break;
																															default:
																																BgL_test4483z00_11083 = ((long) (BgL_curz00_9109) == 64L);
																															}
																														if (BgL_test4483z00_11083)
																															{	/* Unsafe/url.scm 155 */
																																BgL_matchz00_9202
																																	=
																																	BgL_newzd2matchzd2_9106;
																															}
																														else
																															{
																																long
																																	BgL_bufposz00_11092;
																																long
																																	BgL_forwardz00_11090;
																																long
																																	BgL_lastzd2matchzd2_11089;
																																obj_t
																																	BgL_iportz00_11088;
																																BgL_iportz00_11088
																																	=
																																	BgL_iportz00_9102;
																																BgL_lastzd2matchzd2_11089
																																	=
																																	BgL_newzd2matchzd2_9106;
																																BgL_forwardz00_11090
																																	=
																																	(1L +
																																	BgL_forwardz00_9104);
																																BgL_bufposz00_11092
																																	=
																																	BgL_bufposz00_9105;
																																BgL_bufposz00_9184
																																	=
																																	BgL_bufposz00_11092;
																																BgL_forwardz00_9183
																																	=
																																	BgL_forwardz00_11090;
																																BgL_lastzd2matchzd2_9182
																																	=
																																	BgL_lastzd2matchzd2_11089;
																																BgL_iportz00_9181
																																	=
																																	BgL_iportz00_11088;
																																goto
																																	BgL_statezd214zd21144z00_9039;
																															}
																													}
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/url.scm 155 */
																						BgL_iportz00_9092 =
																							BgL_iportz00_9083;
																						BgL_lastzd2matchzd2_9093 =
																							BgL_lastzd2matchzd2_9084;
																						BgL_forwardz00_9094 =
																							(1L + BgL_forwardz00_9085);
																						BgL_bufposz00_9095 =
																							BgL_bufposz00_9086;
																					BgL_statezd21zd21131z00_9029:
																						{	/* Unsafe/url.scm 155 */
																							long BgL_newzd2matchzd2_9096;

																							{	/* Unsafe/url.scm 155 */
																								obj_t BgL_tmpz00_11094;

																								BgL_tmpz00_11094 =
																									((obj_t) BgL_iportz00_9092);
																								RGC_STOP_MATCH(BgL_tmpz00_11094,
																									BgL_forwardz00_9094);
																							}
																							BgL_newzd2matchzd2_9096 = 2L;
																							if (
																								(BgL_forwardz00_9094 ==
																									BgL_bufposz00_9095))
																								{	/* Unsafe/url.scm 155 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_9092)))
																										{	/* Unsafe/url.scm 155 */
																											long BgL_arg2817z00_9097;
																											long BgL_arg2818z00_9098;

																											{	/* Unsafe/url.scm 155 */
																												obj_t BgL_tmpz00_11102;

																												BgL_tmpz00_11102 =
																													((obj_t)
																													BgL_iportz00_9092);
																												BgL_arg2817z00_9097 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_11102);
																											}
																											{	/* Unsafe/url.scm 155 */
																												obj_t BgL_tmpz00_11105;

																												BgL_tmpz00_11105 =
																													((obj_t)
																													BgL_iportz00_9092);
																												BgL_arg2818z00_9098 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_11105);
																											}
																											{
																												long
																													BgL_bufposz00_11109;
																												long
																													BgL_forwardz00_11108;
																												BgL_forwardz00_11108 =
																													BgL_arg2817z00_9097;
																												BgL_bufposz00_11109 =
																													BgL_arg2818z00_9098;
																												BgL_bufposz00_9095 =
																													BgL_bufposz00_11109;
																												BgL_forwardz00_9094 =
																													BgL_forwardz00_11108;
																												goto
																													BgL_statezd21zd21131z00_9029;
																											}
																										}
																									else
																										{	/* Unsafe/url.scm 155 */
																											BgL_matchz00_9202 =
																												BgL_newzd2matchzd2_9096;
																										}
																								}
																							else
																								{	/* Unsafe/url.scm 155 */
																									int BgL_curz00_9099;

																									{	/* Unsafe/url.scm 155 */
																										obj_t BgL_tmpz00_11110;

																										BgL_tmpz00_11110 =
																											((obj_t)
																											BgL_iportz00_9092);
																										BgL_curz00_9099 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_11110,
																											BgL_forwardz00_9094);
																									}
																									{	/* Unsafe/url.scm 155 */

																										if (
																											((long) (BgL_curz00_9099)
																												== 58L))
																											{	/* Unsafe/url.scm 155 */
																												long
																													BgL_arg2820z00_9100;
																												BgL_arg2820z00_9100 =
																													(1L +
																													BgL_forwardz00_9094);
																												{	/* Unsafe/url.scm 155 */
																													long
																														BgL_newzd2matchzd2_9101;
																													{	/* Unsafe/url.scm 155 */
																														obj_t
																															BgL_tmpz00_11117;
																														BgL_tmpz00_11117 =
																															((obj_t)
																															BgL_iportz00_9092);
																														RGC_STOP_MATCH
																															(BgL_tmpz00_11117,
																															BgL_arg2820z00_9100);
																													}
																													BgL_newzd2matchzd2_9101
																														= 1L;
																													BgL_matchz00_9202 =
																														BgL_newzd2matchzd2_9101;
																											}}
																										else
																											{	/* Unsafe/url.scm 155 */
																												bool_t
																													BgL_test4487z00_11120;
																												if (((long)
																														(BgL_curz00_9099) ==
																														47L))
																													{	/* Unsafe/url.scm 155 */
																														BgL_test4487z00_11120
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/url.scm 155 */
																														if (
																															((long)
																																(BgL_curz00_9099)
																																== 58L))
																															{	/* Unsafe/url.scm 155 */
																																BgL_test4487z00_11120
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/url.scm 155 */
																																BgL_test4487z00_11120
																																	=
																																	((long)
																																	(BgL_curz00_9099)
																																	== 64L);
																													}}
																												if (BgL_test4487z00_11120)
																													{	/* Unsafe/url.scm 155 */
																														BgL_matchz00_9202 =
																															BgL_newzd2matchzd2_9096;
																													}
																												else
																													{
																														long
																															BgL_bufposz00_11133;
																														long
																															BgL_forwardz00_11131;
																														long
																															BgL_lastzd2matchzd2_11130;
																														obj_t
																															BgL_iportz00_11129;
																														BgL_iportz00_11129 =
																															BgL_iportz00_9092;
																														BgL_lastzd2matchzd2_11130
																															=
																															BgL_newzd2matchzd2_9096;
																														BgL_forwardz00_11131
																															=
																															(1L +
																															BgL_forwardz00_9094);
																														BgL_bufposz00_11133
																															=
																															BgL_bufposz00_9095;
																														BgL_bufposz00_9184 =
																															BgL_bufposz00_11133;
																														BgL_forwardz00_9183
																															=
																															BgL_forwardz00_11131;
																														BgL_lastzd2matchzd2_9182
																															=
																															BgL_lastzd2matchzd2_11130;
																														BgL_iportz00_9181 =
																															BgL_iportz00_11129;
																														goto
																															BgL_statezd214zd21144z00_9039;
																													}
																											}
																									}
																								}
																						}
																					}
																			}
																	}
															}
													}
											}
									}
								}
						}
						{	/* Unsafe/url.scm 155 */
							obj_t BgL_tmpz00_11135;

							BgL_tmpz00_11135 = ((obj_t) BgL_iportz00_8867);
							RGC_SET_FILEPOS(BgL_tmpz00_11135);
						}
						switch (BgL_matchz00_9202)
							{
							case 5L:

								{	/* Unsafe/url.scm 179 */
									obj_t BgL_arg3165z00_9205;

									{	/* Unsafe/url.scm 155 */
										bool_t BgL_test4490z00_11138;

										{	/* Unsafe/url.scm 155 */
											long BgL_arg3157z00_9201;

											{	/* Unsafe/url.scm 155 */
												obj_t BgL_tmpz00_11139;

												BgL_tmpz00_11139 = ((obj_t) BgL_iportz00_8867);
												BgL_arg3157z00_9201 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11139);
											}
											BgL_test4490z00_11138 = (BgL_arg3157z00_9201 == 0L);
										}
										if (BgL_test4490z00_11138)
											{	/* Unsafe/url.scm 155 */
												BgL_arg3165z00_9205 = BEOF;
											}
										else
											{	/* Unsafe/url.scm 155 */
												unsigned char BgL_tmpz00_11143;

												{	/* Unsafe/url.scm 155 */
													obj_t BgL_tmpz00_11144;

													BgL_tmpz00_11144 = ((obj_t) BgL_iportz00_8867);
													BgL_tmpz00_11143 =
														RGC_BUFFER_CHARACTER(BgL_tmpz00_11144);
												}
												BgL_arg3165z00_9205 = BCHAR(BgL_tmpz00_11143);
									}}
									return
										BGl_parsezd2errorzd2zz__urlz00(
										((obj_t) BgL_iportz00_8867), BGl_string4128z00zz__urlz00,
										BgL_arg3165z00_9205);
								}
								break;
							case 4L:

								{	/* Unsafe/url.scm 177 */
									obj_t BgL_val4_1294z00_9206;

									{	/* Unsafe/url.scm 155 */
										long BgL_arg3057z00_9207;

										{	/* Unsafe/url.scm 155 */
											obj_t BgL_tmpz00_11150;

											BgL_tmpz00_11150 = ((obj_t) BgL_iportz00_8867);
											BgL_arg3057z00_9207 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11150);
										}
										BgL_val4_1294z00_9206 =
											rgc_buffer_substring(
											((obj_t) BgL_iportz00_8867), 0L, BgL_arg3057z00_9207);
									}
									{	/* Unsafe/url.scm 177 */
										int BgL_tmpz00_11155;

										BgL_tmpz00_11155 = (int) (5L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11155);
									}
									{	/* Unsafe/url.scm 177 */
										int BgL_tmpz00_11158;

										BgL_tmpz00_11158 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11158, BFALSE);
									}
									{	/* Unsafe/url.scm 177 */
										int BgL_tmpz00_11161;

										BgL_tmpz00_11161 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11161, BFALSE);
									}
									{	/* Unsafe/url.scm 177 */
										int BgL_tmpz00_11164;

										BgL_tmpz00_11164 = (int) (3L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11164, BFALSE);
									}
									{	/* Unsafe/url.scm 177 */
										int BgL_tmpz00_11167;

										BgL_tmpz00_11167 = (int) (4L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11167,
											BgL_val4_1294z00_9206);
									}
									return BgL_protocolz00_8868;
								}
								break;
							case 3L:

								{	/* Unsafe/url.scm 175 */
									obj_t BgL_val4_1299z00_9208;

									{	/* Unsafe/url.scm 155 */
										long BgL_arg3057z00_9209;

										{	/* Unsafe/url.scm 155 */
											obj_t BgL_tmpz00_11170;

											BgL_tmpz00_11170 = ((obj_t) BgL_iportz00_8867);
											BgL_arg3057z00_9209 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11170);
										}
										BgL_val4_1299z00_9208 =
											rgc_buffer_substring(
											((obj_t) BgL_iportz00_8867), 0L, BgL_arg3057z00_9209);
									}
									{	/* Unsafe/url.scm 175 */
										int BgL_tmpz00_11175;

										BgL_tmpz00_11175 = (int) (5L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11175);
									}
									{	/* Unsafe/url.scm 175 */
										int BgL_tmpz00_11178;

										BgL_tmpz00_11178 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11178, BFALSE);
									}
									{	/* Unsafe/url.scm 175 */
										int BgL_tmpz00_11181;

										BgL_tmpz00_11181 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11181, BFALSE);
									}
									{	/* Unsafe/url.scm 175 */
										int BgL_tmpz00_11184;

										BgL_tmpz00_11184 = (int) (3L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11184, BFALSE);
									}
									{	/* Unsafe/url.scm 175 */
										int BgL_tmpz00_11187;

										BgL_tmpz00_11187 = (int) (4L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_11187,
											BgL_val4_1299z00_9208);
									}
									return BgL_protocolz00_8868;
								}
								break;
							case 2L:

								{	/* Unsafe/url.scm 170 */
									obj_t BgL_hostz00_9210;

									{	/* Unsafe/url.scm 170 */
										long BgL_arg3170z00_9211;

										{	/* Unsafe/url.scm 155 */
											obj_t BgL_tmpz00_11190;

											BgL_tmpz00_11190 = ((obj_t) BgL_iportz00_8867);
											BgL_arg3170z00_9211 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11190);
										}
										BgL_hostz00_9210 =
											BGl_thezd2substringze71z35zz__urlz00(BgL_iportz00_8867,
											(int) (0L), (int) (BgL_arg3170z00_9211));
									}
									{	/* Unsafe/url.scm 170 */
										obj_t BgL_portz00_9212;

										{	/* Unsafe/url.scm 171 */
											bool_t BgL_test4491z00_11196;

											{	/* Unsafe/url.scm 171 */
												long BgL_l1z00_9213;

												BgL_l1z00_9213 =
													STRING_LENGTH(((obj_t) BgL_protocolz00_8868));
												if ((BgL_l1z00_9213 == 5L))
													{	/* Unsafe/url.scm 171 */
														int BgL_arg3828z00_9214;

														{	/* Unsafe/url.scm 171 */
															char *BgL_auxz00_11204;
															char *BgL_tmpz00_11201;

															BgL_auxz00_11204 =
																BSTRING_TO_STRING(BGl_string4133z00zz__urlz00);
															BgL_tmpz00_11201 =
																BSTRING_TO_STRING(
																((obj_t) BgL_protocolz00_8868));
															BgL_arg3828z00_9214 =
																memcmp(BgL_tmpz00_11201, BgL_auxz00_11204,
																BgL_l1z00_9213);
														}
														BgL_test4491z00_11196 =
															((long) (BgL_arg3828z00_9214) == 0L);
													}
												else
													{	/* Unsafe/url.scm 171 */
														BgL_test4491z00_11196 = ((bool_t) 0);
													}
											}
											if (BgL_test4491z00_11196)
												{	/* Unsafe/url.scm 171 */
													BgL_portz00_9212 = BINT(443L);
												}
											else
												{	/* Unsafe/url.scm 171 */
													BgL_portz00_9212 = BINT(80L);
												}
										}
										{	/* Unsafe/url.scm 171 */
											obj_t BgL_abspathz00_9215;

											BgL_abspathz00_9215 =
												BGL_PROCEDURE_CALL1
												(BGl_httpzd2abspathzd2grammarz00zz__urlz00,
												((obj_t) BgL_iportz00_8867));
											{	/* Unsafe/url.scm 172 */

												{	/* Unsafe/url.scm 173 */
													obj_t BgL_val1_1301z00_9216;

													BgL_val1_1301z00_9216 = BgL_userinfoz00_9023;
													{	/* Unsafe/url.scm 173 */
														int BgL_tmpz00_11216;

														BgL_tmpz00_11216 = (int) (5L);
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11216);
													}
													{	/* Unsafe/url.scm 173 */
														int BgL_tmpz00_11219;

														BgL_tmpz00_11219 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11219,
															BgL_val1_1301z00_9216);
													}
													{	/* Unsafe/url.scm 173 */
														int BgL_tmpz00_11222;

														BgL_tmpz00_11222 = (int) (2L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11222,
															BgL_hostz00_9210);
													}
													{	/* Unsafe/url.scm 173 */
														int BgL_tmpz00_11225;

														BgL_tmpz00_11225 = (int) (3L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11225,
															BgL_portz00_9212);
													}
													{	/* Unsafe/url.scm 173 */
														int BgL_tmpz00_11228;

														BgL_tmpz00_11228 = (int) (4L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11228,
															BgL_abspathz00_9215);
													}
													return BgL_protocolz00_8868;
												}
											}
										}
									}
								}
								break;
							case 1L:

								{	/* Unsafe/url.scm 165 */
									obj_t BgL_hostz00_9217;

									{	/* Unsafe/url.scm 165 */
										long BgL_arg3173z00_9218;

										{	/* Unsafe/url.scm 165 */
											long BgL_arg3174z00_9219;

											{	/* Unsafe/url.scm 155 */
												obj_t BgL_tmpz00_11231;

												BgL_tmpz00_11231 = ((obj_t) BgL_iportz00_8867);
												BgL_arg3174z00_9219 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11231);
											}
											BgL_arg3173z00_9218 = (BgL_arg3174z00_9219 - 1L);
										}
										BgL_hostz00_9217 =
											BGl_thezd2substringze71z35zz__urlz00(BgL_iportz00_8867,
											(int) (0L), (int) (BgL_arg3173z00_9218));
									}
									{	/* Unsafe/url.scm 166 */
										obj_t BgL_portz00_9220;

										BgL_portz00_9220 =
											BGL_PROCEDURE_CALL1
											(BGl_httpzd2portzd2grammarz00zz__urlz00,
											((obj_t) BgL_iportz00_8867));
										{	/* Unsafe/url.scm 166 */
											obj_t BgL_abspathz00_9221;

											BgL_abspathz00_9221 =
												BGL_PROCEDURE_CALL1
												(BGl_httpzd2abspathzd2grammarz00zz__urlz00,
												((obj_t) BgL_iportz00_8867));
											{	/* Unsafe/url.scm 167 */

												{	/* Unsafe/url.scm 168 */
													obj_t BgL_val1_1306z00_9222;

													BgL_val1_1306z00_9222 = BgL_userinfoz00_9023;
													{	/* Unsafe/url.scm 168 */
														int BgL_tmpz00_11248;

														BgL_tmpz00_11248 = (int) (5L);
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11248);
													}
													{	/* Unsafe/url.scm 168 */
														int BgL_tmpz00_11251;

														BgL_tmpz00_11251 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11251,
															BgL_val1_1306z00_9222);
													}
													{	/* Unsafe/url.scm 168 */
														int BgL_tmpz00_11254;

														BgL_tmpz00_11254 = (int) (2L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11254,
															BgL_hostz00_9217);
													}
													{	/* Unsafe/url.scm 168 */
														int BgL_tmpz00_11257;

														BgL_tmpz00_11257 = (int) (3L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11257,
															BgL_portz00_9220);
													}
													{	/* Unsafe/url.scm 168 */
														int BgL_tmpz00_11260;

														BgL_tmpz00_11260 = (int) (4L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_11260,
															BgL_abspathz00_9221);
													}
													return BgL_protocolz00_8868;
												}
											}
										}
									}
								}
								break;
							case 0L:

								BgL_userinfoz00_9023 =
									BGl_thezd2substringze71z35zz__urlz00(BgL_iportz00_8867,
									(int) (0L), (int) ((-1L)));
								goto BgL_ignorez00_9042;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string4129z00zz__urlz00,
									BGl_string4130z00zz__urlz00, BINT(BgL_matchz00_9202));
							}
					}
				}
			}
		}

	}



/* the-substring~1 */
	obj_t BGl_thezd2substringze71z35zz__urlz00(obj_t BgL_iportz00_8924,
		int BgL_minz00_4265, int BgL_maxz00_4266)
	{
		{	/* Unsafe/url.scm 155 */
			if (((long) (BgL_maxz00_4266) < (long) (BgL_minz00_4265)))
				{	/* Unsafe/url.scm 155 */
					long BgL_arg3061z00_4269;

					{	/* Unsafe/url.scm 155 */
						obj_t BgL_tmpz00_11273;

						BgL_tmpz00_11273 = ((obj_t) BgL_iportz00_8924);
						BgL_arg3061z00_4269 = RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11273);
					}
					{	/* Unsafe/url.scm 155 */
						long BgL_za72za7_7900;

						BgL_za72za7_7900 = (long) (BgL_maxz00_4266);
						BgL_maxz00_4266 = (int) ((BgL_arg3061z00_4269 + BgL_za72za7_7900));
				}}
			else
				{	/* Unsafe/url.scm 155 */
					BFALSE;
				}
			{	/* Unsafe/url.scm 155 */
				bool_t BgL_test4494z00_11279;

				if (((long) (BgL_minz00_4265) >= 0L))
					{	/* Unsafe/url.scm 155 */
						if (((long) (BgL_maxz00_4266) >= (long) (BgL_minz00_4265)))
							{	/* Unsafe/url.scm 155 */
								long BgL_arg3071z00_4280;

								{	/* Unsafe/url.scm 155 */
									obj_t BgL_tmpz00_11287;

									BgL_tmpz00_11287 = ((obj_t) BgL_iportz00_8924);
									BgL_arg3071z00_4280 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11287);
								}
								BgL_test4494z00_11279 =
									((long) (BgL_maxz00_4266) <= BgL_arg3071z00_4280);
							}
						else
							{	/* Unsafe/url.scm 155 */
								BgL_test4494z00_11279 = ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/url.scm 155 */
						BgL_test4494z00_11279 = ((bool_t) 0);
					}
				if (BgL_test4494z00_11279)
					{	/* Unsafe/url.scm 155 */
						long BgL_startz00_7908;
						long BgL_stopz00_7909;

						BgL_startz00_7908 = (long) (BgL_minz00_4265);
						BgL_stopz00_7909 = (long) (BgL_maxz00_4266);
						return
							rgc_buffer_substring(
							((obj_t) BgL_iportz00_8924), BgL_startz00_7908, BgL_stopz00_7909);
					}
				else
					{	/* Unsafe/url.scm 155 */
						obj_t BgL_arg3067z00_4274;
						obj_t BgL_arg3068z00_4275;

						{	/* Unsafe/url.scm 155 */
							obj_t BgL_arg3069z00_4276;

							{	/* Unsafe/url.scm 155 */
								long BgL_arg3057z00_7910;

								{	/* Unsafe/url.scm 155 */
									obj_t BgL_tmpz00_11296;

									BgL_tmpz00_11296 = ((obj_t) BgL_iportz00_8924);
									BgL_arg3057z00_7910 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11296);
								}
								BgL_arg3069z00_4276 =
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_8924), 0L, BgL_arg3057z00_7910);
							}
							{	/* Unsafe/url.scm 155 */
								obj_t BgL_list3070z00_4277;

								BgL_list3070z00_4277 =
									MAKE_YOUNG_PAIR(BgL_arg3069z00_4276, BNIL);
								BgL_arg3067z00_4274 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string4134z00zz__urlz00, BgL_list3070z00_4277);
						}}
						BgL_arg3068z00_4275 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_4265), BINT(BgL_maxz00_4266));
						return
							BGl_errorz00zz__errorz00(BGl_string4135z00zz__urlz00,
							BgL_arg3067z00_4274, BgL_arg3068z00_4275);
					}
			}
		}

	}



/* &<@anonymous:2456> */
	obj_t BGl_z62zc3z04anonymousza32456ze3ze5zz__urlz00(obj_t BgL_envz00_8870,
		obj_t BgL_iportz00_8871)
	{
		{	/* Unsafe/url.scm 140 */
			{
				obj_t BgL_iportz00_9317;
				long BgL_lastzd2matchzd2_9318;
				long BgL_forwardz00_9319;
				long BgL_bufposz00_9320;
				obj_t BgL_iportz00_9302;
				long BgL_lastzd2matchzd2_9303;
				long BgL_forwardz00_9304;
				long BgL_bufposz00_9305;
				obj_t BgL_iportz00_9295;
				long BgL_lastzd2matchzd2_9296;
				long BgL_forwardz00_9297;
				long BgL_bufposz00_9298;
				obj_t BgL_iportz00_9287;
				long BgL_lastzd2matchzd2_9288;
				long BgL_forwardz00_9289;
				long BgL_bufposz00_9290;
				obj_t BgL_iportz00_9279;
				long BgL_lastzd2matchzd2_9280;
				long BgL_forwardz00_9281;
				long BgL_bufposz00_9282;
				obj_t BgL_iportz00_9265;
				long BgL_lastzd2matchzd2_9266;
				long BgL_forwardz00_9267;
				long BgL_bufposz00_9268;
				obj_t BgL_iportz00_9250;
				long BgL_lastzd2matchzd2_9251;
				long BgL_forwardz00_9252;
				long BgL_bufposz00_9253;
				int BgL_minz00_9240;
				int BgL_maxz00_9241;

				RGC_START_MATCH(BgL_iportz00_8871);
				{	/* Unsafe/url.scm 140 */
					long BgL_matchz00_9233;

					{	/* Unsafe/url.scm 140 */
						long BgL_arg2638z00_9234;
						long BgL_arg2640z00_9235;

						BgL_arg2638z00_9234 = RGC_BUFFER_FORWARD(BgL_iportz00_8871);
						BgL_arg2640z00_9235 = RGC_BUFFER_BUFPOS(BgL_iportz00_8871);
						BgL_iportz00_9295 = BgL_iportz00_8871;
						BgL_lastzd2matchzd2_9296 = 3L;
						BgL_forwardz00_9297 = BgL_arg2638z00_9234;
						BgL_bufposz00_9298 = BgL_arg2640z00_9235;
					BgL_statezd20zd21118z00_9230:
						if ((BgL_forwardz00_9297 == BgL_bufposz00_9298))
							{	/* Unsafe/url.scm 140 */
								if (rgc_fill_buffer(BgL_iportz00_9295))
									{	/* Unsafe/url.scm 140 */
										long BgL_arg2488z00_9299;
										long BgL_arg2489z00_9300;

										BgL_arg2488z00_9299 = RGC_BUFFER_FORWARD(BgL_iportz00_9295);
										BgL_arg2489z00_9300 = RGC_BUFFER_BUFPOS(BgL_iportz00_9295);
										{
											long BgL_bufposz00_11317;
											long BgL_forwardz00_11316;

											BgL_forwardz00_11316 = BgL_arg2488z00_9299;
											BgL_bufposz00_11317 = BgL_arg2489z00_9300;
											BgL_bufposz00_9298 = BgL_bufposz00_11317;
											BgL_forwardz00_9297 = BgL_forwardz00_11316;
											goto BgL_statezd20zd21118z00_9230;
										}
									}
								else
									{	/* Unsafe/url.scm 140 */
										BgL_matchz00_9233 = BgL_lastzd2matchzd2_9296;
									}
							}
						else
							{	/* Unsafe/url.scm 140 */
								int BgL_curz00_9301;

								BgL_curz00_9301 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_9295, BgL_forwardz00_9297);
								{	/* Unsafe/url.scm 140 */

									if (((long) (BgL_curz00_9301) == 47L))
										{	/* Unsafe/url.scm 140 */
											BgL_iportz00_9279 = BgL_iportz00_9295;
											BgL_lastzd2matchzd2_9280 = BgL_lastzd2matchzd2_9296;
											BgL_forwardz00_9281 = (1L + BgL_forwardz00_9297);
											BgL_bufposz00_9282 = BgL_bufposz00_9298;
										BgL_statezd23zd21121z00_9228:
											{	/* Unsafe/url.scm 140 */
												long BgL_newzd2matchzd2_9283;

												RGC_STOP_MATCH(BgL_iportz00_9279, BgL_forwardz00_9281);
												BgL_newzd2matchzd2_9283 = 1L;
												if ((BgL_forwardz00_9281 == BgL_bufposz00_9282))
													{	/* Unsafe/url.scm 140 */
														if (rgc_fill_buffer(BgL_iportz00_9279))
															{	/* Unsafe/url.scm 140 */
																long BgL_arg2510z00_9284;
																long BgL_arg2511z00_9285;

																BgL_arg2510z00_9284 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_9279);
																BgL_arg2511z00_9285 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_9279);
																{
																	long BgL_bufposz00_11330;
																	long BgL_forwardz00_11329;

																	BgL_forwardz00_11329 = BgL_arg2510z00_9284;
																	BgL_bufposz00_11330 = BgL_arg2511z00_9285;
																	BgL_bufposz00_9282 = BgL_bufposz00_11330;
																	BgL_forwardz00_9281 = BgL_forwardz00_11329;
																	goto BgL_statezd23zd21121z00_9228;
																}
															}
														else
															{	/* Unsafe/url.scm 140 */
																BgL_matchz00_9233 = BgL_newzd2matchzd2_9283;
															}
													}
												else
													{	/* Unsafe/url.scm 140 */
														int BgL_curz00_9286;

														BgL_curz00_9286 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_9279,
															BgL_forwardz00_9281);
														{	/* Unsafe/url.scm 140 */

															{	/* Unsafe/url.scm 140 */
																bool_t BgL_test4502z00_11332;

																if (((long) (BgL_curz00_9286) == 10L))
																	{	/* Unsafe/url.scm 140 */
																		BgL_test4502z00_11332 = ((bool_t) 1);
																	}
																else
																	{	/* Unsafe/url.scm 140 */
																		if (((long) (BgL_curz00_9286) == 13L))
																			{	/* Unsafe/url.scm 140 */
																				BgL_test4502z00_11332 = ((bool_t) 1);
																			}
																		else
																			{	/* Unsafe/url.scm 140 */
																				BgL_test4502z00_11332 =
																					((long) (BgL_curz00_9286) == 32L);
																	}}
																if (BgL_test4502z00_11332)
																	{	/* Unsafe/url.scm 140 */
																		BgL_matchz00_9233 = BgL_newzd2matchzd2_9283;
																	}
																else
																	{	/* Unsafe/url.scm 140 */
																		BgL_iportz00_9287 = BgL_iportz00_9279;
																		BgL_lastzd2matchzd2_9288 =
																			BgL_newzd2matchzd2_9283;
																		BgL_forwardz00_9289 =
																			(1L + BgL_forwardz00_9281);
																		BgL_bufposz00_9290 = BgL_bufposz00_9282;
																	BgL_statezd24zd21122z00_9229:
																		{	/* Unsafe/url.scm 140 */
																			long BgL_newzd2matchzd2_9291;

																			RGC_STOP_MATCH(BgL_iportz00_9287,
																				BgL_forwardz00_9289);
																			BgL_newzd2matchzd2_9291 = 1L;
																			if (
																				(BgL_forwardz00_9289 ==
																					BgL_bufposz00_9290))
																				{	/* Unsafe/url.scm 140 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_9287))
																						{	/* Unsafe/url.scm 140 */
																							long BgL_arg2501z00_9292;
																							long BgL_arg2502z00_9293;

																							BgL_arg2501z00_9292 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_9287);
																							BgL_arg2502z00_9293 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_9287);
																							{
																								long BgL_bufposz00_11349;
																								long BgL_forwardz00_11348;

																								BgL_forwardz00_11348 =
																									BgL_arg2501z00_9292;
																								BgL_bufposz00_11349 =
																									BgL_arg2502z00_9293;
																								BgL_bufposz00_9290 =
																									BgL_bufposz00_11349;
																								BgL_forwardz00_9289 =
																									BgL_forwardz00_11348;
																								goto
																									BgL_statezd24zd21122z00_9229;
																							}
																						}
																					else
																						{	/* Unsafe/url.scm 140 */
																							BgL_matchz00_9233 =
																								BgL_newzd2matchzd2_9291;
																						}
																				}
																			else
																				{	/* Unsafe/url.scm 140 */
																					int BgL_curz00_9294;

																					BgL_curz00_9294 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_9287,
																						BgL_forwardz00_9289);
																					{	/* Unsafe/url.scm 140 */

																						{	/* Unsafe/url.scm 140 */
																							bool_t BgL_test4507z00_11351;

																							if (
																								((long) (BgL_curz00_9294) ==
																									10L))
																								{	/* Unsafe/url.scm 140 */
																									BgL_test4507z00_11351 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/url.scm 140 */
																									if (
																										((long) (BgL_curz00_9294) ==
																											13L))
																										{	/* Unsafe/url.scm 140 */
																											BgL_test4507z00_11351 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Unsafe/url.scm 140 */
																											BgL_test4507z00_11351 =
																												(
																												(long) (BgL_curz00_9294)
																												== 32L);
																								}}
																							if (BgL_test4507z00_11351)
																								{	/* Unsafe/url.scm 140 */
																									BgL_matchz00_9233 =
																										BgL_newzd2matchzd2_9291;
																								}
																							else
																								{
																									long BgL_forwardz00_11361;
																									long
																										BgL_lastzd2matchzd2_11360;
																									BgL_lastzd2matchzd2_11360 =
																										BgL_newzd2matchzd2_9291;
																									BgL_forwardz00_11361 =
																										(1L + BgL_forwardz00_9289);
																									BgL_forwardz00_9289 =
																										BgL_forwardz00_11361;
																									BgL_lastzd2matchzd2_9288 =
																										BgL_lastzd2matchzd2_11360;
																									goto
																										BgL_statezd24zd21122z00_9229;
																								}
																						}
																					}
																				}
																		}
																	}
															}
														}
													}
											}
										}
									else
										{	/* Unsafe/url.scm 140 */
											if (((long) (BgL_curz00_9301) == 42L))
												{	/* Unsafe/url.scm 140 */
													BgL_iportz00_9302 = BgL_iportz00_9295;
													BgL_lastzd2matchzd2_9303 = BgL_lastzd2matchzd2_9296;
													BgL_forwardz00_9304 = (1L + BgL_forwardz00_9297);
													BgL_bufposz00_9305 = BgL_bufposz00_9298;
												BgL_statezd22zd21120z00_9231:
													{	/* Unsafe/url.scm 140 */
														long BgL_newzd2matchzd2_9306;

														RGC_STOP_MATCH(BgL_iportz00_9302,
															BgL_forwardz00_9304);
														BgL_newzd2matchzd2_9306 = 0L;
														if ((BgL_forwardz00_9304 == BgL_bufposz00_9305))
															{	/* Unsafe/url.scm 140 */
																if (rgc_fill_buffer(BgL_iportz00_9302))
																	{	/* Unsafe/url.scm 140 */
																		long BgL_arg2478z00_9307;
																		long BgL_arg2479z00_9308;

																		BgL_arg2478z00_9307 =
																			RGC_BUFFER_FORWARD(BgL_iportz00_9302);
																		BgL_arg2479z00_9308 =
																			RGC_BUFFER_BUFPOS(BgL_iportz00_9302);
																		{
																			long BgL_bufposz00_11376;
																			long BgL_forwardz00_11375;

																			BgL_forwardz00_11375 =
																				BgL_arg2478z00_9307;
																			BgL_bufposz00_11376 = BgL_arg2479z00_9308;
																			BgL_bufposz00_9305 = BgL_bufposz00_11376;
																			BgL_forwardz00_9304 =
																				BgL_forwardz00_11375;
																			goto BgL_statezd22zd21120z00_9231;
																		}
																	}
																else
																	{	/* Unsafe/url.scm 140 */
																		BgL_matchz00_9233 = BgL_newzd2matchzd2_9306;
																	}
															}
														else
															{	/* Unsafe/url.scm 140 */
																int BgL_curz00_9309;

																BgL_curz00_9309 =
																	RGC_BUFFER_GET_CHAR(BgL_iportz00_9302,
																	BgL_forwardz00_9304);
																{	/* Unsafe/url.scm 140 */

																	if (((long) (BgL_curz00_9309) == 58L))
																		{	/* Unsafe/url.scm 140 */
																			long BgL_arg2481z00_9310;

																			BgL_arg2481z00_9310 =
																				(1L + BgL_forwardz00_9304);
																			{
																				long BgL_forwardz00_9312;
																				long BgL_bufposz00_9313;

																				BgL_forwardz00_9312 =
																					BgL_arg2481z00_9310;
																				BgL_bufposz00_9313 = BgL_bufposz00_9305;
																			BgL_statezd27zd21125z00_9311:
																				if (
																					(BgL_forwardz00_9312 ==
																						BgL_bufposz00_9313))
																					{	/* Unsafe/url.scm 140 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_9302))
																							{	/* Unsafe/url.scm 140 */
																								long BgL_arg2460z00_9314;
																								long BgL_arg2461z00_9315;

																								BgL_arg2460z00_9314 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_9302);
																								BgL_arg2461z00_9315 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_9302);
																								{
																									long BgL_bufposz00_11389;
																									long BgL_forwardz00_11388;

																									BgL_forwardz00_11388 =
																										BgL_arg2460z00_9314;
																									BgL_bufposz00_11389 =
																										BgL_arg2461z00_9315;
																									BgL_bufposz00_9313 =
																										BgL_bufposz00_11389;
																									BgL_forwardz00_9312 =
																										BgL_forwardz00_11388;
																									goto
																										BgL_statezd27zd21125z00_9311;
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 140 */
																								BgL_matchz00_9233 =
																									BgL_newzd2matchzd2_9306;
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 140 */
																						int BgL_curz00_9316;

																						BgL_curz00_9316 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_9302,
																							BgL_forwardz00_9312);
																						{	/* Unsafe/url.scm 140 */

																							if (
																								((long) (BgL_curz00_9316) ==
																									47L))
																								{	/* Unsafe/url.scm 140 */
																									BgL_iportz00_9317 =
																										BgL_iportz00_9302;
																									BgL_lastzd2matchzd2_9318 =
																										BgL_newzd2matchzd2_9306;
																									BgL_forwardz00_9319 =
																										(1L + BgL_forwardz00_9312);
																									BgL_bufposz00_9320 =
																										BgL_bufposz00_9313;
																								BgL_statezd28zd21126z00_9232:
																									if (
																										(BgL_forwardz00_9319 ==
																											BgL_bufposz00_9320))
																										{	/* Unsafe/url.scm 140 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_9317))
																												{	/* Unsafe/url.scm 140 */
																													long
																														BgL_arg2470z00_9321;
																													long
																														BgL_arg2472z00_9322;
																													BgL_arg2470z00_9321 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_9317);
																													BgL_arg2472z00_9322 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_9317);
																													if (
																														(BgL_arg2470z00_9321
																															==
																															BgL_arg2472z00_9322))
																														{	/* Unsafe/url.scm 140 */
																															if (rgc_fill_buffer(BgL_iportz00_9317))
																																{	/* Unsafe/url.scm 140 */
																																	long
																																		BgL_arg2470z00_9323;
																																	long
																																		BgL_arg2472z00_9324;
																																	BgL_arg2470z00_9323
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_9317);
																																	BgL_arg2472z00_9324
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_9317);
																																	{
																																		long
																																			BgL_bufposz00_11407;
																																		long
																																			BgL_forwardz00_11406;
																																		BgL_forwardz00_11406
																																			=
																																			BgL_arg2470z00_9323;
																																		BgL_bufposz00_11407
																																			=
																																			BgL_arg2472z00_9324;
																																		BgL_bufposz00_9320
																																			=
																																			BgL_bufposz00_11407;
																																		BgL_forwardz00_9319
																																			=
																																			BgL_forwardz00_11406;
																																		goto
																																			BgL_statezd28zd21126z00_9232;
																																	}
																																}
																															else
																																{	/* Unsafe/url.scm 140 */
																																	BgL_matchz00_9233
																																		=
																																		BgL_lastzd2matchzd2_9318;
																																}
																														}
																													else
																														{	/* Unsafe/url.scm 140 */
																															int
																																BgL_curz00_9325;
																															BgL_curz00_9325 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_9317,
																																BgL_arg2470z00_9321);
																															{	/* Unsafe/url.scm 140 */

																																if (
																																	((long)
																																		(BgL_curz00_9325)
																																		== 47L))
																																	{	/* Unsafe/url.scm 140 */
																																		long
																																			BgL_arg2474z00_9326;
																																		BgL_arg2474z00_9326
																																			=
																																			(1L +
																																			BgL_arg2470z00_9321);
																																		{	/* Unsafe/url.scm 140 */
																																			long
																																				BgL_newzd2matchzd2_9327;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_9317,
																																				BgL_arg2474z00_9326);
																																			BgL_newzd2matchzd2_9327
																																				= 2L;
																																			BgL_matchz00_9233
																																				=
																																				BgL_newzd2matchzd2_9327;
																																	}}
																																else
																																	{	/* Unsafe/url.scm 140 */
																																		BgL_matchz00_9233
																																			=
																																			BgL_lastzd2matchzd2_9318;
																																	}
																															}
																														}
																												}
																											else
																												{	/* Unsafe/url.scm 140 */
																													BgL_matchz00_9233 =
																														BgL_lastzd2matchzd2_9318;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 140 */
																											int BgL_curz00_9328;

																											BgL_curz00_9328 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_9317,
																												BgL_forwardz00_9319);
																											{	/* Unsafe/url.scm 140 */

																												if (
																													((long)
																														(BgL_curz00_9328) ==
																														47L))
																													{	/* Unsafe/url.scm 140 */
																														long
																															BgL_arg2474z00_9329;
																														BgL_arg2474z00_9329
																															=
																															(1L +
																															BgL_forwardz00_9319);
																														{	/* Unsafe/url.scm 140 */
																															long
																																BgL_newzd2matchzd2_9330;
																															RGC_STOP_MATCH
																																(BgL_iportz00_9317,
																																BgL_arg2474z00_9329);
																															BgL_newzd2matchzd2_9330
																																= 2L;
																															BgL_matchz00_9233
																																=
																																BgL_newzd2matchzd2_9330;
																													}}
																												else
																													{	/* Unsafe/url.scm 140 */
																														BgL_matchz00_9233 =
																															BgL_lastzd2matchzd2_9318;
																													}
																											}
																										}
																								}
																							else
																								{	/* Unsafe/url.scm 140 */
																									BgL_matchz00_9233 =
																										BgL_newzd2matchzd2_9306;
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/url.scm 140 */
																			BgL_iportz00_9265 = BgL_iportz00_9302;
																			BgL_lastzd2matchzd2_9266 =
																				BgL_newzd2matchzd2_9306;
																			BgL_forwardz00_9267 =
																				(1L + BgL_forwardz00_9304);
																			BgL_bufposz00_9268 = BgL_bufposz00_9305;
																		BgL_statezd26zd21124z00_9227:
																			if (
																				(BgL_forwardz00_9267 ==
																					BgL_bufposz00_9268))
																				{	/* Unsafe/url.scm 140 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_9265))
																						{	/* Unsafe/url.scm 140 */
																							long BgL_arg2519z00_9269;
																							long BgL_arg2520z00_9270;

																							BgL_arg2519z00_9269 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_9265);
																							BgL_arg2520z00_9270 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_9265);
																							{
																								long BgL_bufposz00_11428;
																								long BgL_forwardz00_11427;

																								BgL_forwardz00_11427 =
																									BgL_arg2519z00_9269;
																								BgL_bufposz00_11428 =
																									BgL_arg2520z00_9270;
																								BgL_bufposz00_9268 =
																									BgL_bufposz00_11428;
																								BgL_forwardz00_9267 =
																									BgL_forwardz00_11427;
																								goto
																									BgL_statezd26zd21124z00_9227;
																							}
																						}
																					else
																						{	/* Unsafe/url.scm 140 */
																							BgL_matchz00_9233 =
																								BgL_lastzd2matchzd2_9266;
																						}
																				}
																			else
																				{	/* Unsafe/url.scm 140 */
																					int BgL_curz00_9271;

																					BgL_curz00_9271 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_9265,
																						BgL_forwardz00_9267);
																					{	/* Unsafe/url.scm 140 */

																						if (
																							((long) (BgL_curz00_9271) == 58L))
																							{	/* Unsafe/url.scm 140 */
																								long BgL_arg2524z00_9272;

																								BgL_arg2524z00_9272 =
																									(1L + BgL_forwardz00_9267);
																								{
																									long BgL_forwardz00_9274;
																									long BgL_bufposz00_9275;

																									BgL_forwardz00_9274 =
																										BgL_arg2524z00_9272;
																									BgL_bufposz00_9275 =
																										BgL_bufposz00_9268;
																								BgL_statezd27zd21125z00_9273:
																									if (
																										(BgL_forwardz00_9274 ==
																											BgL_bufposz00_9275))
																										{	/* Unsafe/url.scm 140 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_9265))
																												{	/* Unsafe/url.scm 140 */
																													long
																														BgL_arg2460z00_9276;
																													long
																														BgL_arg2461z00_9277;
																													BgL_arg2460z00_9276 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_9265);
																													BgL_arg2461z00_9277 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_9265);
																													{
																														long
																															BgL_bufposz00_11441;
																														long
																															BgL_forwardz00_11440;
																														BgL_forwardz00_11440
																															=
																															BgL_arg2460z00_9276;
																														BgL_bufposz00_11441
																															=
																															BgL_arg2461z00_9277;
																														BgL_bufposz00_9275 =
																															BgL_bufposz00_11441;
																														BgL_forwardz00_9274
																															=
																															BgL_forwardz00_11440;
																														goto
																															BgL_statezd27zd21125z00_9273;
																													}
																												}
																											else
																												{	/* Unsafe/url.scm 140 */
																													BgL_matchz00_9233 =
																														BgL_lastzd2matchzd2_9266;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 140 */
																											int BgL_curz00_9278;

																											BgL_curz00_9278 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_9265,
																												BgL_forwardz00_9274);
																											{	/* Unsafe/url.scm 140 */

																												if (
																													((long)
																														(BgL_curz00_9278) ==
																														47L))
																													{
																														long
																															BgL_bufposz00_11450;
																														long
																															BgL_forwardz00_11448;
																														long
																															BgL_lastzd2matchzd2_11447;
																														obj_t
																															BgL_iportz00_11446;
																														BgL_iportz00_11446 =
																															BgL_iportz00_9265;
																														BgL_lastzd2matchzd2_11447
																															=
																															BgL_lastzd2matchzd2_9266;
																														BgL_forwardz00_11448
																															=
																															(1L +
																															BgL_forwardz00_9274);
																														BgL_bufposz00_11450
																															=
																															BgL_bufposz00_9275;
																														BgL_bufposz00_9320 =
																															BgL_bufposz00_11450;
																														BgL_forwardz00_9319
																															=
																															BgL_forwardz00_11448;
																														BgL_lastzd2matchzd2_9318
																															=
																															BgL_lastzd2matchzd2_11447;
																														BgL_iportz00_9317 =
																															BgL_iportz00_11446;
																														goto
																															BgL_statezd28zd21126z00_9232;
																													}
																												else
																													{	/* Unsafe/url.scm 140 */
																														BgL_matchz00_9233 =
																															BgL_lastzd2matchzd2_9266;
																													}
																											}
																										}
																								}
																							}
																						else
																							{
																								long BgL_forwardz00_11451;

																								BgL_forwardz00_11451 =
																									(1L + BgL_forwardz00_9267);
																								BgL_forwardz00_9267 =
																									BgL_forwardz00_11451;
																								goto
																									BgL_statezd26zd21124z00_9227;
																							}
																					}
																				}
																		}
																}
															}
													}
												}
											else
												{	/* Unsafe/url.scm 140 */
													BgL_iportz00_9250 = BgL_iportz00_9295;
													BgL_lastzd2matchzd2_9251 = BgL_lastzd2matchzd2_9296;
													BgL_forwardz00_9252 = (1L + BgL_forwardz00_9297);
													BgL_bufposz00_9253 = BgL_bufposz00_9298;
												BgL_statezd21zd21119z00_9226:
													{	/* Unsafe/url.scm 140 */
														long BgL_newzd2matchzd2_9254;

														RGC_STOP_MATCH(BgL_iportz00_9250,
															BgL_forwardz00_9252);
														BgL_newzd2matchzd2_9254 = 3L;
														if ((BgL_forwardz00_9252 == BgL_bufposz00_9253))
															{	/* Unsafe/url.scm 140 */
																if (rgc_fill_buffer(BgL_iportz00_9250))
																	{	/* Unsafe/url.scm 140 */
																		long BgL_arg2530z00_9255;
																		long BgL_arg2531z00_9256;

																		BgL_arg2530z00_9255 =
																			RGC_BUFFER_FORWARD(BgL_iportz00_9250);
																		BgL_arg2531z00_9256 =
																			RGC_BUFFER_BUFPOS(BgL_iportz00_9250);
																		{
																			long BgL_bufposz00_11463;
																			long BgL_forwardz00_11462;

																			BgL_forwardz00_11462 =
																				BgL_arg2530z00_9255;
																			BgL_bufposz00_11463 = BgL_arg2531z00_9256;
																			BgL_bufposz00_9253 = BgL_bufposz00_11463;
																			BgL_forwardz00_9252 =
																				BgL_forwardz00_11462;
																			goto BgL_statezd21zd21119z00_9226;
																		}
																	}
																else
																	{	/* Unsafe/url.scm 140 */
																		BgL_matchz00_9233 = BgL_newzd2matchzd2_9254;
																	}
															}
														else
															{	/* Unsafe/url.scm 140 */
																int BgL_curz00_9257;

																BgL_curz00_9257 =
																	RGC_BUFFER_GET_CHAR(BgL_iportz00_9250,
																	BgL_forwardz00_9252);
																{	/* Unsafe/url.scm 140 */

																	if (((long) (BgL_curz00_9257) == 58L))
																		{	/* Unsafe/url.scm 140 */
																			long BgL_arg2533z00_9258;

																			BgL_arg2533z00_9258 =
																				(1L + BgL_forwardz00_9252);
																			{
																				long BgL_forwardz00_9260;
																				long BgL_bufposz00_9261;

																				BgL_forwardz00_9260 =
																					BgL_arg2533z00_9258;
																				BgL_bufposz00_9261 = BgL_bufposz00_9253;
																			BgL_statezd27zd21125z00_9259:
																				if (
																					(BgL_forwardz00_9260 ==
																						BgL_bufposz00_9261))
																					{	/* Unsafe/url.scm 140 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_9250))
																							{	/* Unsafe/url.scm 140 */
																								long BgL_arg2460z00_9262;
																								long BgL_arg2461z00_9263;

																								BgL_arg2460z00_9262 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_9250);
																								BgL_arg2461z00_9263 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_9250);
																								{
																									long BgL_bufposz00_11476;
																									long BgL_forwardz00_11475;

																									BgL_forwardz00_11475 =
																										BgL_arg2460z00_9262;
																									BgL_bufposz00_11476 =
																										BgL_arg2461z00_9263;
																									BgL_bufposz00_9261 =
																										BgL_bufposz00_11476;
																									BgL_forwardz00_9260 =
																										BgL_forwardz00_11475;
																									goto
																										BgL_statezd27zd21125z00_9259;
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 140 */
																								BgL_matchz00_9233 =
																									BgL_newzd2matchzd2_9254;
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 140 */
																						int BgL_curz00_9264;

																						BgL_curz00_9264 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_9250,
																							BgL_forwardz00_9260);
																						{	/* Unsafe/url.scm 140 */

																							if (
																								((long) (BgL_curz00_9264) ==
																									47L))
																								{
																									long BgL_bufposz00_11485;
																									long BgL_forwardz00_11483;
																									long
																										BgL_lastzd2matchzd2_11482;
																									obj_t BgL_iportz00_11481;

																									BgL_iportz00_11481 =
																										BgL_iportz00_9250;
																									BgL_lastzd2matchzd2_11482 =
																										BgL_newzd2matchzd2_9254;
																									BgL_forwardz00_11483 =
																										(1L + BgL_forwardz00_9260);
																									BgL_bufposz00_11485 =
																										BgL_bufposz00_9261;
																									BgL_bufposz00_9320 =
																										BgL_bufposz00_11485;
																									BgL_forwardz00_9319 =
																										BgL_forwardz00_11483;
																									BgL_lastzd2matchzd2_9318 =
																										BgL_lastzd2matchzd2_11482;
																									BgL_iportz00_9317 =
																										BgL_iportz00_11481;
																									goto
																										BgL_statezd28zd21126z00_9232;
																								}
																							else
																								{	/* Unsafe/url.scm 140 */
																									BgL_matchz00_9233 =
																										BgL_newzd2matchzd2_9254;
																								}
																						}
																					}
																			}
																		}
																	else
																		{
																			long BgL_bufposz00_11490;
																			long BgL_forwardz00_11488;
																			long BgL_lastzd2matchzd2_11487;
																			obj_t BgL_iportz00_11486;

																			BgL_iportz00_11486 = BgL_iportz00_9250;
																			BgL_lastzd2matchzd2_11487 =
																				BgL_newzd2matchzd2_9254;
																			BgL_forwardz00_11488 =
																				(1L + BgL_forwardz00_9252);
																			BgL_bufposz00_11490 = BgL_bufposz00_9253;
																			BgL_bufposz00_9268 = BgL_bufposz00_11490;
																			BgL_forwardz00_9267 =
																				BgL_forwardz00_11488;
																			BgL_lastzd2matchzd2_9266 =
																				BgL_lastzd2matchzd2_11487;
																			BgL_iportz00_9265 = BgL_iportz00_11486;
																			goto BgL_statezd26zd21124z00_9227;
																		}
																}
															}
													}
												}
										}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_8871);
					switch (BgL_matchz00_9233)
						{
						case 3L:

							{	/* Unsafe/url.scm 148 */
								int BgL_arg2631z00_9236;

								BgL_arg2631z00_9236 = RGC_BUFFER_BYTE(BgL_iportz00_8871);
								rgc_buffer_unget_char(BgL_iportz00_8871, BgL_arg2631z00_9236);
							}
							return
								BGL_PROCEDURE_CALL3
								(BGl_absolutezd2httpzd2urizd2grammarzd2zz__urlz00,
								BgL_iportz00_8871, BGl_string4136z00zz__urlz00, BFALSE);
							break;
						case 2L:

							{	/* Unsafe/url.scm 146 */
								obj_t BgL_arg2636z00_9237;

								BgL_minz00_9240 = (int) (0L);
								BgL_maxz00_9241 = (int) ((-3L));
								if (((long) (BgL_maxz00_9241) < (long) (BgL_minz00_9240)))
									{	/* Unsafe/url.scm 140 */
										long BgL_arg2545z00_9242;

										BgL_arg2545z00_9242 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8871);
										{	/* Unsafe/url.scm 140 */
											long BgL_za72za7_9243;

											BgL_za72za7_9243 = (long) (BgL_maxz00_9241);
											BgL_maxz00_9241 =
												(int) ((BgL_arg2545z00_9242 + BgL_za72za7_9243));
									}}
								else
									{	/* Unsafe/url.scm 140 */
										BFALSE;
									}
								{	/* Unsafe/url.scm 140 */
									bool_t BgL_test4536z00_11509;

									if (((long) (BgL_minz00_9240) >= 0L))
										{	/* Unsafe/url.scm 140 */
											if (
												((long) (BgL_maxz00_9241) >= (long) (BgL_minz00_9240)))
												{	/* Unsafe/url.scm 140 */
													long BgL_arg2557z00_9244;

													BgL_arg2557z00_9244 =
														RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8871);
													BgL_test4536z00_11509 =
														((long) (BgL_maxz00_9241) <= BgL_arg2557z00_9244);
												}
											else
												{	/* Unsafe/url.scm 140 */
													BgL_test4536z00_11509 = ((bool_t) 0);
												}
										}
									else
										{	/* Unsafe/url.scm 140 */
											BgL_test4536z00_11509 = ((bool_t) 0);
										}
									if (BgL_test4536z00_11509)
										{	/* Unsafe/url.scm 140 */
											BgL_arg2636z00_9237 =
												rgc_buffer_substring(BgL_iportz00_8871,
												(long) (BgL_minz00_9240), (long) (BgL_maxz00_9241));
										}
									else
										{	/* Unsafe/url.scm 140 */
											obj_t BgL_arg2550z00_9245;
											obj_t BgL_arg2552z00_9246;

											{	/* Unsafe/url.scm 140 */
												obj_t BgL_arg2555z00_9247;

												{	/* Unsafe/url.scm 140 */
													long BgL_arg2542z00_9248;

													BgL_arg2542z00_9248 =
														RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8871);
													BgL_arg2555z00_9247 =
														rgc_buffer_substring(BgL_iportz00_8871, 0L,
														BgL_arg2542z00_9248);
												}
												{	/* Unsafe/url.scm 140 */
													obj_t BgL_list2556z00_9249;

													BgL_list2556z00_9249 =
														MAKE_YOUNG_PAIR(BgL_arg2555z00_9247, BNIL);
													BgL_arg2550z00_9245 =
														BGl_formatz00zz__r4_output_6_10_3z00
														(BGl_string4134z00zz__urlz00, BgL_list2556z00_9249);
											}}
											BgL_arg2552z00_9246 =
												MAKE_YOUNG_PAIR(BINT(BgL_minz00_9240),
												BINT(BgL_maxz00_9241));
											BgL_arg2636z00_9237 =
												BGl_errorz00zz__errorz00(BGl_string4135z00zz__urlz00,
												BgL_arg2550z00_9245, BgL_arg2552z00_9246);
								}}
								return
									BGL_PROCEDURE_CALL3
									(BGl_absolutezd2httpzd2urizd2grammarzd2zz__urlz00,
									BgL_iportz00_8871, BgL_arg2636z00_9237, BFALSE);
							}
							break;
						case 1L:

							{	/* Unsafe/url.scm 144 */
								obj_t BgL_val4_1284z00_9238;

								{	/* Unsafe/url.scm 140 */
									long BgL_arg2542z00_9239;

									BgL_arg2542z00_9239 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8871);
									BgL_val4_1284z00_9238 =
										rgc_buffer_substring(BgL_iportz00_8871, 0L,
										BgL_arg2542z00_9239);
								}
								{	/* Unsafe/url.scm 144 */
									int BgL_tmpz00_11541;

									BgL_tmpz00_11541 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11541);
								}
								{	/* Unsafe/url.scm 144 */
									int BgL_tmpz00_11544;

									BgL_tmpz00_11544 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_11544, BFALSE);
								}
								{	/* Unsafe/url.scm 144 */
									int BgL_tmpz00_11547;

									BgL_tmpz00_11547 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_11547, BFALSE);
								}
								{	/* Unsafe/url.scm 144 */
									int BgL_tmpz00_11550;

									BgL_tmpz00_11550 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_11550, BFALSE);
								}
								{	/* Unsafe/url.scm 144 */
									int BgL_tmpz00_11553;

									BgL_tmpz00_11553 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_11553, BgL_val4_1284z00_9238);
								}
								return BGl_string4137z00zz__urlz00;
							}
							break;
						case 0L:

							{	/* Unsafe/url.scm 142 */
								int BgL_tmpz00_11556;

								BgL_tmpz00_11556 = (int) (5L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11556);
							}
							{	/* Unsafe/url.scm 142 */
								int BgL_tmpz00_11559;

								BgL_tmpz00_11559 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_11559, BFALSE);
							}
							{	/* Unsafe/url.scm 142 */
								int BgL_tmpz00_11562;

								BgL_tmpz00_11562 = (int) (2L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_11562, BFALSE);
							}
							{	/* Unsafe/url.scm 142 */
								int BgL_tmpz00_11565;

								BgL_tmpz00_11565 = (int) (3L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_11565, BFALSE);
							}
							{	/* Unsafe/url.scm 142 */
								int BgL_tmpz00_11568;

								BgL_tmpz00_11568 = (int) (4L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_11568,
									BGl_string4137z00zz__urlz00);
							}
							return BGl_string4137z00zz__urlz00;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4129z00zz__urlz00,
								BGl_string4130z00zz__urlz00, BINT(BgL_matchz00_9233));
						}
				}
			}
		}

	}



/* &<@anonymous:1728> */
	obj_t BGl_z62zc3z04anonymousza31728ze3ze5zz__urlz00(obj_t BgL_envz00_8872,
		obj_t BgL_iportz00_8873, obj_t BgL_protocolz00_8874,
		obj_t BgL_userinfoz00_8875)
	{
		{	/* Unsafe/url.scm 110 */
			{	/* Unsafe/url.scm 110 */
				obj_t BgL_userinfoz00_9331;

				BgL_userinfoz00_9331 = BgL_userinfoz00_8875;
				{
					obj_t BgL_iportz00_9641;
					long BgL_lastzd2matchzd2_9642;
					long BgL_forwardz00_9643;
					long BgL_bufposz00_9644;
					obj_t BgL_iportz00_9631;
					long BgL_lastzd2matchzd2_9632;
					long BgL_forwardz00_9633;
					long BgL_bufposz00_9634;
					obj_t BgL_iportz00_9623;
					long BgL_lastzd2matchzd2_9624;
					long BgL_forwardz00_9625;
					long BgL_bufposz00_9626;
					obj_t BgL_iportz00_9608;
					long BgL_lastzd2matchzd2_9609;
					long BgL_forwardz00_9610;
					long BgL_bufposz00_9611;
					obj_t BgL_iportz00_9593;
					long BgL_lastzd2matchzd2_9594;
					long BgL_forwardz00_9595;
					long BgL_bufposz00_9596;
					obj_t BgL_iportz00_9586;
					long BgL_lastzd2matchzd2_9587;
					long BgL_forwardz00_9588;
					long BgL_bufposz00_9589;
					obj_t BgL_iportz00_9578;
					long BgL_lastzd2matchzd2_9579;
					long BgL_forwardz00_9580;
					long BgL_bufposz00_9581;
					obj_t BgL_iportz00_9570;
					long BgL_lastzd2matchzd2_9571;
					long BgL_forwardz00_9572;
					long BgL_bufposz00_9573;
					obj_t BgL_iportz00_9562;
					long BgL_lastzd2matchzd2_9563;
					long BgL_forwardz00_9564;
					long BgL_bufposz00_9565;
					obj_t BgL_iportz00_9554;
					long BgL_lastzd2matchzd2_9555;
					long BgL_forwardz00_9556;
					long BgL_bufposz00_9557;
					obj_t BgL_iportz00_9544;
					long BgL_lastzd2matchzd2_9545;
					long BgL_forwardz00_9546;
					long BgL_bufposz00_9547;
					obj_t BgL_iportz00_9534;
					long BgL_lastzd2matchzd2_9535;
					long BgL_forwardz00_9536;
					long BgL_bufposz00_9537;
					obj_t BgL_iportz00_9524;
					long BgL_lastzd2matchzd2_9525;
					long BgL_forwardz00_9526;
					long BgL_bufposz00_9527;
					obj_t BgL_iportz00_9514;
					long BgL_lastzd2matchzd2_9515;
					long BgL_forwardz00_9516;
					long BgL_bufposz00_9517;
					obj_t BgL_iportz00_9506;
					long BgL_lastzd2matchzd2_9507;
					long BgL_forwardz00_9508;
					long BgL_bufposz00_9509;
					obj_t BgL_iportz00_9498;
					long BgL_lastzd2matchzd2_9499;
					long BgL_forwardz00_9500;
					long BgL_bufposz00_9501;
					obj_t BgL_iportz00_9488;
					long BgL_lastzd2matchzd2_9489;
					long BgL_forwardz00_9490;
					long BgL_bufposz00_9491;
					obj_t BgL_iportz00_9480;
					long BgL_lastzd2matchzd2_9481;
					long BgL_forwardz00_9482;
					long BgL_bufposz00_9483;
					obj_t BgL_iportz00_9472;
					long BgL_lastzd2matchzd2_9473;
					long BgL_forwardz00_9474;
					long BgL_bufposz00_9475;
					obj_t BgL_iportz00_9462;
					long BgL_lastzd2matchzd2_9463;
					long BgL_forwardz00_9464;
					long BgL_bufposz00_9465;
					obj_t BgL_iportz00_9452;
					long BgL_lastzd2matchzd2_9453;
					long BgL_forwardz00_9454;
					long BgL_bufposz00_9455;
					obj_t BgL_iportz00_9442;
					long BgL_lastzd2matchzd2_9443;
					long BgL_forwardz00_9444;
					long BgL_bufposz00_9445;
					obj_t BgL_iportz00_9427;
					long BgL_lastzd2matchzd2_9428;
					long BgL_forwardz00_9429;
					long BgL_bufposz00_9430;
					obj_t BgL_iportz00_9412;
					long BgL_lastzd2matchzd2_9413;
					long BgL_forwardz00_9414;
					long BgL_bufposz00_9415;
					obj_t BgL_iportz00_9398;
					long BgL_lastzd2matchzd2_9399;
					long BgL_forwardz00_9400;
					long BgL_bufposz00_9401;
					obj_t BgL_iportz00_9390;
					long BgL_lastzd2matchzd2_9391;
					long BgL_forwardz00_9392;
					long BgL_bufposz00_9393;
					obj_t BgL_iportz00_9380;
					long BgL_lastzd2matchzd2_9381;
					long BgL_forwardz00_9382;
					long BgL_bufposz00_9383;
					obj_t BgL_iportz00_9373;
					long BgL_lastzd2matchzd2_9374;
					long BgL_forwardz00_9375;
					long BgL_bufposz00_9376;
					obj_t BgL_iportz00_9363;
					long BgL_lastzd2matchzd2_9364;
					long BgL_forwardz00_9365;
					long BgL_bufposz00_9366;

				BgL_ignorez00_9362:
					{	/* Unsafe/url.scm 110 */
						obj_t BgL_tmpz00_11574;

						BgL_tmpz00_11574 = ((obj_t) BgL_iportz00_8873);
						RGC_START_MATCH(BgL_tmpz00_11574);
					}
					{	/* Unsafe/url.scm 110 */
						long BgL_matchz00_9649;

						{	/* Unsafe/url.scm 110 */
							long BgL_arg2454z00_9650;
							long BgL_arg2455z00_9651;

							{	/* Unsafe/url.scm 110 */
								obj_t BgL_tmpz00_11577;

								BgL_tmpz00_11577 = ((obj_t) BgL_iportz00_8873);
								BgL_arg2454z00_9650 = RGC_BUFFER_FORWARD(BgL_tmpz00_11577);
							}
							{	/* Unsafe/url.scm 110 */
								obj_t BgL_tmpz00_11580;

								BgL_tmpz00_11580 = ((obj_t) BgL_iportz00_8873);
								BgL_arg2455z00_9651 = RGC_BUFFER_BUFPOS(BgL_tmpz00_11580);
							}
							BgL_iportz00_9373 = BgL_iportz00_8873;
							BgL_lastzd2matchzd2_9374 = 5L;
							BgL_forwardz00_9375 = BgL_arg2454z00_9650;
							BgL_bufposz00_9376 = BgL_arg2455z00_9651;
						BgL_statezd20zd21060z00_9333:
							if ((BgL_forwardz00_9375 == BgL_bufposz00_9376))
								{	/* Unsafe/url.scm 110 */
									if (rgc_fill_buffer(((obj_t) BgL_iportz00_9373)))
										{	/* Unsafe/url.scm 110 */
											long BgL_arg1747z00_9377;
											long BgL_arg1748z00_9378;

											{	/* Unsafe/url.scm 110 */
												obj_t BgL_tmpz00_11588;

												BgL_tmpz00_11588 = ((obj_t) BgL_iportz00_9373);
												BgL_arg1747z00_9377 =
													RGC_BUFFER_FORWARD(BgL_tmpz00_11588);
											}
											{	/* Unsafe/url.scm 110 */
												obj_t BgL_tmpz00_11591;

												BgL_tmpz00_11591 = ((obj_t) BgL_iportz00_9373);
												BgL_arg1748z00_9378 =
													RGC_BUFFER_BUFPOS(BgL_tmpz00_11591);
											}
											{
												long BgL_bufposz00_11595;
												long BgL_forwardz00_11594;

												BgL_forwardz00_11594 = BgL_arg1747z00_9377;
												BgL_bufposz00_11595 = BgL_arg1748z00_9378;
												BgL_bufposz00_9376 = BgL_bufposz00_11595;
												BgL_forwardz00_9375 = BgL_forwardz00_11594;
												goto BgL_statezd20zd21060z00_9333;
											}
										}
									else
										{	/* Unsafe/url.scm 110 */
											BgL_matchz00_9649 = BgL_lastzd2matchzd2_9374;
										}
								}
							else
								{	/* Unsafe/url.scm 110 */
									int BgL_curz00_9379;

									{	/* Unsafe/url.scm 110 */
										obj_t BgL_tmpz00_11596;

										BgL_tmpz00_11596 = ((obj_t) BgL_iportz00_9373);
										BgL_curz00_9379 =
											RGC_BUFFER_GET_CHAR(BgL_tmpz00_11596,
											BgL_forwardz00_9375);
									}
									{	/* Unsafe/url.scm 110 */

										if (((long) (BgL_curz00_9379) == 64L))
											{	/* Unsafe/url.scm 110 */
												BgL_iportz00_9608 = BgL_iportz00_9373;
												BgL_lastzd2matchzd2_9609 = BgL_lastzd2matchzd2_9374;
												BgL_forwardz00_9610 = (1L + BgL_forwardz00_9375);
												BgL_bufposz00_9611 = BgL_bufposz00_9376;
											BgL_statezd28zd21068z00_9357:
												{	/* Unsafe/url.scm 110 */
													long BgL_newzd2matchzd2_9612;

													{	/* Unsafe/url.scm 110 */
														obj_t BgL_tmpz00_11602;

														BgL_tmpz00_11602 = ((obj_t) BgL_iportz00_9608);
														RGC_STOP_MATCH(BgL_tmpz00_11602,
															BgL_forwardz00_9610);
													}
													BgL_newzd2matchzd2_9612 = 0L;
													if ((BgL_forwardz00_9610 == BgL_bufposz00_9611))
														{	/* Unsafe/url.scm 110 */
															if (rgc_fill_buffer(((obj_t) BgL_iportz00_9608)))
																{	/* Unsafe/url.scm 110 */
																	long BgL_arg2249z00_9613;
																	long BgL_arg2250z00_9614;

																	{	/* Unsafe/url.scm 110 */
																		obj_t BgL_tmpz00_11610;

																		BgL_tmpz00_11610 =
																			((obj_t) BgL_iportz00_9608);
																		BgL_arg2249z00_9613 =
																			RGC_BUFFER_FORWARD(BgL_tmpz00_11610);
																	}
																	{	/* Unsafe/url.scm 110 */
																		obj_t BgL_tmpz00_11613;

																		BgL_tmpz00_11613 =
																			((obj_t) BgL_iportz00_9608);
																		BgL_arg2250z00_9614 =
																			RGC_BUFFER_BUFPOS(BgL_tmpz00_11613);
																	}
																	{
																		long BgL_bufposz00_11617;
																		long BgL_forwardz00_11616;

																		BgL_forwardz00_11616 = BgL_arg2249z00_9613;
																		BgL_bufposz00_11617 = BgL_arg2250z00_9614;
																		BgL_bufposz00_9611 = BgL_bufposz00_11617;
																		BgL_forwardz00_9610 = BgL_forwardz00_11616;
																		goto BgL_statezd28zd21068z00_9357;
																	}
																}
															else
																{	/* Unsafe/url.scm 110 */
																	BgL_matchz00_9649 = BgL_newzd2matchzd2_9612;
																}
														}
													else
														{	/* Unsafe/url.scm 110 */
															int BgL_curz00_9615;

															{	/* Unsafe/url.scm 110 */
																obj_t BgL_tmpz00_11618;

																BgL_tmpz00_11618 = ((obj_t) BgL_iportz00_9608);
																BgL_curz00_9615 =
																	RGC_BUFFER_GET_CHAR(BgL_tmpz00_11618,
																	BgL_forwardz00_9610);
															}
															{	/* Unsafe/url.scm 110 */

																if (((long) (BgL_curz00_9615) == 64L))
																	{	/* Unsafe/url.scm 110 */
																		BgL_iportz00_9412 = BgL_iportz00_9608;
																		BgL_lastzd2matchzd2_9413 =
																			BgL_newzd2matchzd2_9612;
																		BgL_forwardz00_9414 =
																			(1L + BgL_forwardz00_9610);
																		BgL_bufposz00_9415 = BgL_bufposz00_9611;
																	BgL_statezd212zd21072z00_9337:
																		{	/* Unsafe/url.scm 110 */
																			long BgL_newzd2matchzd2_9416;

																			{	/* Unsafe/url.scm 110 */
																				obj_t BgL_tmpz00_11624;

																				BgL_tmpz00_11624 =
																					((obj_t) BgL_iportz00_9412);
																				RGC_STOP_MATCH(BgL_tmpz00_11624,
																					BgL_forwardz00_9414);
																			}
																			BgL_newzd2matchzd2_9416 = 0L;
																			if (
																				(BgL_forwardz00_9414 ==
																					BgL_bufposz00_9415))
																				{	/* Unsafe/url.scm 110 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_9412)))
																						{	/* Unsafe/url.scm 110 */
																							long BgL_arg1865z00_9417;
																							long BgL_arg1866z00_9418;

																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_11632;

																								BgL_tmpz00_11632 =
																									((obj_t) BgL_iportz00_9412);
																								BgL_arg1865z00_9417 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_11632);
																							}
																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_11635;

																								BgL_tmpz00_11635 =
																									((obj_t) BgL_iportz00_9412);
																								BgL_arg1866z00_9418 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_11635);
																							}
																							{
																								long BgL_bufposz00_11639;
																								long BgL_forwardz00_11638;

																								BgL_forwardz00_11638 =
																									BgL_arg1865z00_9417;
																								BgL_bufposz00_11639 =
																									BgL_arg1866z00_9418;
																								BgL_bufposz00_9415 =
																									BgL_bufposz00_11639;
																								BgL_forwardz00_9414 =
																									BgL_forwardz00_11638;
																								goto
																									BgL_statezd212zd21072z00_9337;
																							}
																						}
																					else
																						{	/* Unsafe/url.scm 110 */
																							BgL_matchz00_9649 =
																								BgL_newzd2matchzd2_9416;
																						}
																				}
																			else
																				{	/* Unsafe/url.scm 110 */
																					int BgL_curz00_9419;

																					{	/* Unsafe/url.scm 110 */
																						obj_t BgL_tmpz00_11640;

																						BgL_tmpz00_11640 =
																							((obj_t) BgL_iportz00_9412);
																						BgL_curz00_9419 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_11640,
																							BgL_forwardz00_9414);
																					}
																					{	/* Unsafe/url.scm 110 */

																						if (
																							((long) (BgL_curz00_9419) == 64L))
																							{
																								long BgL_forwardz00_11647;
																								long BgL_lastzd2matchzd2_11646;

																								BgL_lastzd2matchzd2_11646 =
																									BgL_newzd2matchzd2_9416;
																								BgL_forwardz00_11647 =
																									(1L + BgL_forwardz00_9414);
																								BgL_forwardz00_9414 =
																									BgL_forwardz00_11647;
																								BgL_lastzd2matchzd2_9413 =
																									BgL_lastzd2matchzd2_11646;
																								goto
																									BgL_statezd212zd21072z00_9337;
																							}
																						else
																							{	/* Unsafe/url.scm 110 */
																								if (
																									((long) (BgL_curz00_9419) ==
																										60L))
																									{	/* Unsafe/url.scm 110 */
																										long BgL_arg1870z00_9420;

																										BgL_arg1870z00_9420 =
																											(1L +
																											BgL_forwardz00_9414);
																										{
																											long BgL_forwardz00_9422;
																											long BgL_bufposz00_9423;

																											BgL_forwardz00_9422 =
																												BgL_arg1870z00_9420;
																											BgL_bufposz00_9423 =
																												BgL_bufposz00_9415;
																										BgL_statezd211zd21071z00_9421:
																											if (
																												(BgL_forwardz00_9422 ==
																													BgL_bufposz00_9423))
																												{	/* Unsafe/url.scm 110 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_9412)))
																														{	/* Unsafe/url.scm 110 */
																															long
																																BgL_arg1732z00_9424;
																															long
																																BgL_arg1733z00_9425;
																															{	/* Unsafe/url.scm 110 */
																																obj_t
																																	BgL_tmpz00_11658;
																																BgL_tmpz00_11658
																																	=
																																	((obj_t)
																																	BgL_iportz00_9412);
																																BgL_arg1732z00_9424
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_11658);
																															}
																															{	/* Unsafe/url.scm 110 */
																																obj_t
																																	BgL_tmpz00_11661;
																																BgL_tmpz00_11661
																																	=
																																	((obj_t)
																																	BgL_iportz00_9412);
																																BgL_arg1733z00_9425
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_11661);
																															}
																															{
																																long
																																	BgL_bufposz00_11665;
																																long
																																	BgL_forwardz00_11664;
																																BgL_forwardz00_11664
																																	=
																																	BgL_arg1732z00_9424;
																																BgL_bufposz00_11665
																																	=
																																	BgL_arg1733z00_9425;
																																BgL_bufposz00_9423
																																	=
																																	BgL_bufposz00_11665;
																																BgL_forwardz00_9422
																																	=
																																	BgL_forwardz00_11664;
																																goto
																																	BgL_statezd211zd21071z00_9421;
																															}
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															BgL_matchz00_9649
																																=
																																BgL_newzd2matchzd2_9416;
																														}
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													int BgL_curz00_9426;

																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_11666;
																														BgL_tmpz00_11666 =
																															((obj_t)
																															BgL_iportz00_9412);
																														BgL_curz00_9426 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_11666,
																															BgL_forwardz00_9422);
																													}
																													{	/* Unsafe/url.scm 110 */

																														if (
																															((long)
																																(BgL_curz00_9426)
																																== 62L))
																															{	/* Unsafe/url.scm 110 */
																																BgL_iportz00_9363
																																	=
																																	BgL_iportz00_9412;
																																BgL_lastzd2matchzd2_9364
																																	=
																																	BgL_newzd2matchzd2_9416;
																																BgL_forwardz00_9365
																																	=
																																	(1L +
																																	BgL_forwardz00_9422);
																																BgL_bufposz00_9366
																																	=
																																	BgL_bufposz00_9423;
																															BgL_statezd214zd21074z00_9332:
																																if (
																																	(BgL_forwardz00_9365
																																		==
																																		BgL_bufposz00_9366))
																																	{	/* Unsafe/url.scm 110 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_9363)))
																																			{	/* Unsafe/url.scm 110 */
																																				long
																																					BgL_arg1739z00_9367;
																																				long
																																					BgL_arg1740z00_9368;
																																				{	/* Unsafe/url.scm 110 */
																																					obj_t
																																						BgL_tmpz00_11677;
																																					BgL_tmpz00_11677
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_9363);
																																					BgL_arg1739z00_9367
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_11677);
																																				}
																																				{	/* Unsafe/url.scm 110 */
																																					obj_t
																																						BgL_tmpz00_11680;
																																					BgL_tmpz00_11680
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_9363);
																																					BgL_arg1740z00_9368
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_11680);
																																				}
																																				if (
																																					(BgL_arg1739z00_9367
																																						==
																																						BgL_arg1740z00_9368))
																																					{	/* Unsafe/url.scm 110 */
																																						if (rgc_fill_buffer(((obj_t) BgL_iportz00_9363)))
																																							{	/* Unsafe/url.scm 110 */
																																								long
																																									BgL_arg1739z00_9369;
																																								long
																																									BgL_arg1740z00_9370;
																																								{	/* Unsafe/url.scm 110 */
																																									obj_t
																																										BgL_tmpz00_11688;
																																									BgL_tmpz00_11688
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_9363);
																																									BgL_arg1739z00_9369
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_tmpz00_11688);
																																								}
																																								{	/* Unsafe/url.scm 110 */
																																									obj_t
																																										BgL_tmpz00_11691;
																																									BgL_tmpz00_11691
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_9363);
																																									BgL_arg1740z00_9370
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_tmpz00_11691);
																																								}
																																								{
																																									long
																																										BgL_bufposz00_11695;
																																									long
																																										BgL_forwardz00_11694;
																																									BgL_forwardz00_11694
																																										=
																																										BgL_arg1739z00_9369;
																																									BgL_bufposz00_11695
																																										=
																																										BgL_arg1740z00_9370;
																																									BgL_bufposz00_9366
																																										=
																																										BgL_bufposz00_11695;
																																									BgL_forwardz00_9365
																																										=
																																										BgL_forwardz00_11694;
																																									goto
																																										BgL_statezd214zd21074z00_9332;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_matchz00_9649
																																									=
																																									BgL_lastzd2matchzd2_9364;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/url.scm 110 */
																																						int
																																							BgL_curz00_9371;
																																						{	/* Unsafe/url.scm 110 */
																																							obj_t
																																								BgL_tmpz00_11696;
																																							BgL_tmpz00_11696
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_9363);
																																							BgL_curz00_9371
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_tmpz00_11696,
																																								BgL_arg1739z00_9367);
																																						}
																																						{	/* Unsafe/url.scm 110 */

																																							if (((long) (BgL_curz00_9371) == 32L))
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_iportz00_9398
																																										=
																																										BgL_iportz00_9363;
																																									BgL_lastzd2matchzd2_9399
																																										=
																																										BgL_lastzd2matchzd2_9364;
																																									BgL_forwardz00_9400
																																										=
																																										(1L
																																										+
																																										BgL_arg1739z00_9367);
																																									BgL_bufposz00_9401
																																										=
																																										BgL_arg1740z00_9368;
																																								BgL_statezd29zd21069z00_9336:
																																									if ((BgL_forwardz00_9400 == BgL_bufposz00_9401))
																																										{	/* Unsafe/url.scm 110 */
																																											if (rgc_fill_buffer(((obj_t) BgL_iportz00_9398)))
																																												{	/* Unsafe/url.scm 110 */
																																													long
																																														BgL_arg1837z00_9402;
																																													long
																																														BgL_arg1839z00_9403;
																																													{	/* Unsafe/url.scm 110 */
																																														obj_t
																																															BgL_tmpz00_11707;
																																														BgL_tmpz00_11707
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_9398);
																																														BgL_arg1837z00_9402
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_tmpz00_11707);
																																													}
																																													{	/* Unsafe/url.scm 110 */
																																														obj_t
																																															BgL_tmpz00_11710;
																																														BgL_tmpz00_11710
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_9398);
																																														BgL_arg1839z00_9403
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_tmpz00_11710);
																																													}
																																													{
																																														long
																																															BgL_bufposz00_11714;
																																														long
																																															BgL_forwardz00_11713;
																																														BgL_forwardz00_11713
																																															=
																																															BgL_arg1837z00_9402;
																																														BgL_bufposz00_11714
																																															=
																																															BgL_arg1839z00_9403;
																																														BgL_bufposz00_9401
																																															=
																																															BgL_bufposz00_11714;
																																														BgL_forwardz00_9400
																																															=
																																															BgL_forwardz00_11713;
																																														goto
																																															BgL_statezd29zd21069z00_9336;
																																													}
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_matchz00_9649
																																														=
																																														BgL_lastzd2matchzd2_9399;
																																												}
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											int
																																												BgL_curz00_9404;
																																											{	/* Unsafe/url.scm 110 */
																																												obj_t
																																													BgL_tmpz00_11715;
																																												BgL_tmpz00_11715
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_9398);
																																												BgL_curz00_9404
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_tmpz00_11715,
																																													BgL_forwardz00_9400);
																																											}
																																											{	/* Unsafe/url.scm 110 */

																																												if (((long) (BgL_curz00_9404) == 64L))
																																													{
																																														long
																																															BgL_bufposz00_11725;
																																														long
																																															BgL_forwardz00_11723;
																																														long
																																															BgL_lastzd2matchzd2_11722;
																																														obj_t
																																															BgL_iportz00_11721;
																																														BgL_iportz00_11721
																																															=
																																															BgL_iportz00_9398;
																																														BgL_lastzd2matchzd2_11722
																																															=
																																															BgL_lastzd2matchzd2_9399;
																																														BgL_forwardz00_11723
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_9400);
																																														BgL_bufposz00_11725
																																															=
																																															BgL_bufposz00_9401;
																																														BgL_bufposz00_9415
																																															=
																																															BgL_bufposz00_11725;
																																														BgL_forwardz00_9414
																																															=
																																															BgL_forwardz00_11723;
																																														BgL_lastzd2matchzd2_9413
																																															=
																																															BgL_lastzd2matchzd2_11722;
																																														BgL_iportz00_9412
																																															=
																																															BgL_iportz00_11721;
																																														goto
																																															BgL_statezd212zd21072z00_9337;
																																													}
																																												else
																																													{	/* Unsafe/url.scm 110 */
																																														if (((long) (BgL_curz00_9404) == 60L))
																																															{	/* Unsafe/url.scm 110 */
																																																long
																																																	BgL_arg1845z00_9405;
																																																BgL_arg1845z00_9405
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_9400);
																																																{
																																																	long
																																																		BgL_forwardz00_9407;
																																																	long
																																																		BgL_bufposz00_9408;
																																																	BgL_forwardz00_9407
																																																		=
																																																		BgL_arg1845z00_9405;
																																																	BgL_bufposz00_9408
																																																		=
																																																		BgL_bufposz00_9401;
																																																BgL_statezd211zd21071z00_9406:
																																																	if ((BgL_forwardz00_9407 == BgL_bufposz00_9408))
																																																		{	/* Unsafe/url.scm 110 */
																																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_9398)))
																																																				{	/* Unsafe/url.scm 110 */
																																																					long
																																																						BgL_arg1732z00_9409;
																																																					long
																																																						BgL_arg1733z00_9410;
																																																					{	/* Unsafe/url.scm 110 */
																																																						obj_t
																																																							BgL_tmpz00_11735;
																																																						BgL_tmpz00_11735
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_9398);
																																																						BgL_arg1732z00_9409
																																																							=
																																																							RGC_BUFFER_FORWARD
																																																							(BgL_tmpz00_11735);
																																																					}
																																																					{	/* Unsafe/url.scm 110 */
																																																						obj_t
																																																							BgL_tmpz00_11738;
																																																						BgL_tmpz00_11738
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_9398);
																																																						BgL_arg1733z00_9410
																																																							=
																																																							RGC_BUFFER_BUFPOS
																																																							(BgL_tmpz00_11738);
																																																					}
																																																					{
																																																						long
																																																							BgL_bufposz00_11742;
																																																						long
																																																							BgL_forwardz00_11741;
																																																						BgL_forwardz00_11741
																																																							=
																																																							BgL_arg1732z00_9409;
																																																						BgL_bufposz00_11742
																																																							=
																																																							BgL_arg1733z00_9410;
																																																						BgL_bufposz00_9408
																																																							=
																																																							BgL_bufposz00_11742;
																																																						BgL_forwardz00_9407
																																																							=
																																																							BgL_forwardz00_11741;
																																																						goto
																																																							BgL_statezd211zd21071z00_9406;
																																																					}
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_matchz00_9649
																																																						=
																																																						BgL_lastzd2matchzd2_9399;
																																																				}
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			int
																																																				BgL_curz00_9411;
																																																			{	/* Unsafe/url.scm 110 */
																																																				obj_t
																																																					BgL_tmpz00_11743;
																																																				BgL_tmpz00_11743
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_9398);
																																																				BgL_curz00_9411
																																																					=
																																																					RGC_BUFFER_GET_CHAR
																																																					(BgL_tmpz00_11743,
																																																					BgL_forwardz00_9407);
																																																			}
																																																			{	/* Unsafe/url.scm 110 */

																																																				if (((long) (BgL_curz00_9411) == 62L))
																																																					{
																																																						long
																																																							BgL_bufposz00_11753;
																																																						long
																																																							BgL_forwardz00_11751;
																																																						long
																																																							BgL_lastzd2matchzd2_11750;
																																																						obj_t
																																																							BgL_iportz00_11749;
																																																						BgL_iportz00_11749
																																																							=
																																																							BgL_iportz00_9398;
																																																						BgL_lastzd2matchzd2_11750
																																																							=
																																																							BgL_lastzd2matchzd2_9399;
																																																						BgL_forwardz00_11751
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_9407);
																																																						BgL_bufposz00_11753
																																																							=
																																																							BgL_bufposz00_9408;
																																																						BgL_bufposz00_9366
																																																							=
																																																							BgL_bufposz00_11753;
																																																						BgL_forwardz00_9365
																																																							=
																																																							BgL_forwardz00_11751;
																																																						BgL_lastzd2matchzd2_9364
																																																							=
																																																							BgL_lastzd2matchzd2_11750;
																																																						BgL_iportz00_9363
																																																							=
																																																							BgL_iportz00_11749;
																																																						goto
																																																							BgL_statezd214zd21074z00_9332;
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 110 */
																																																						BgL_matchz00_9649
																																																							=
																																																							BgL_lastzd2matchzd2_9399;
																																																					}
																																																			}
																																																		}
																																																}
																																															}
																																														else
																																															{	/* Unsafe/url.scm 110 */
																																																if (((long) (BgL_curz00_9404) == 37L))
																																																	{	/* Unsafe/url.scm 110 */
																																																		BgL_iportz00_9586
																																																			=
																																																			BgL_iportz00_9398;
																																																		BgL_lastzd2matchzd2_9587
																																																			=
																																																			BgL_lastzd2matchzd2_9399;
																																																		BgL_forwardz00_9588
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_9400);
																																																		BgL_bufposz00_9589
																																																			=
																																																			BgL_bufposz00_9401;
																																																	BgL_statezd210zd21070z00_9355:
																																																		if ((BgL_forwardz00_9588 == BgL_bufposz00_9589))
																																																			{	/* Unsafe/url.scm 110 */
																																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_9586)))
																																																					{	/* Unsafe/url.scm 110 */
																																																						long
																																																							BgL_arg2213z00_9590;
																																																						long
																																																							BgL_arg2214z00_9591;
																																																						{	/* Unsafe/url.scm 110 */
																																																							obj_t
																																																								BgL_tmpz00_11762;
																																																							BgL_tmpz00_11762
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_9586);
																																																							BgL_arg2213z00_9590
																																																								=
																																																								RGC_BUFFER_FORWARD
																																																								(BgL_tmpz00_11762);
																																																						}
																																																						{	/* Unsafe/url.scm 110 */
																																																							obj_t
																																																								BgL_tmpz00_11765;
																																																							BgL_tmpz00_11765
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_9586);
																																																							BgL_arg2214z00_9591
																																																								=
																																																								RGC_BUFFER_BUFPOS
																																																								(BgL_tmpz00_11765);
																																																						}
																																																						{
																																																							long
																																																								BgL_bufposz00_11769;
																																																							long
																																																								BgL_forwardz00_11768;
																																																							BgL_forwardz00_11768
																																																								=
																																																								BgL_arg2213z00_9590;
																																																							BgL_bufposz00_11769
																																																								=
																																																								BgL_arg2214z00_9591;
																																																							BgL_bufposz00_9589
																																																								=
																																																								BgL_bufposz00_11769;
																																																							BgL_forwardz00_9588
																																																								=
																																																								BgL_forwardz00_11768;
																																																							goto
																																																								BgL_statezd210zd21070z00_9355;
																																																						}
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 110 */
																																																						BgL_matchz00_9649
																																																							=
																																																							BgL_lastzd2matchzd2_9587;
																																																					}
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 110 */
																																																				int
																																																					BgL_curz00_9592;
																																																				{	/* Unsafe/url.scm 110 */
																																																					obj_t
																																																						BgL_tmpz00_11770;
																																																					BgL_tmpz00_11770
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_9586);
																																																					BgL_curz00_9592
																																																						=
																																																						RGC_BUFFER_GET_CHAR
																																																						(BgL_tmpz00_11770,
																																																						BgL_forwardz00_9588);
																																																				}
																																																				{	/* Unsafe/url.scm 110 */

																																																					{	/* Unsafe/url.scm 110 */
																																																						bool_t
																																																							BgL_test4567z00_11773;
																																																						{	/* Unsafe/url.scm 110 */
																																																							bool_t
																																																								BgL_test4568z00_11774;
																																																							if (((long) (BgL_curz00_9592) >= 48L))
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4568z00_11774
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9592)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4568z00_11774
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test4568z00_11774)
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4567z00_11773
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									bool_t
																																																										BgL_test4570z00_11780;
																																																									if (((long) (BgL_curz00_9592) >= 65L))
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4570z00_11780
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9592)
																																																												<
																																																												71L);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4570z00_11780
																																																												=
																																																												(
																																																												(bool_t)
																																																												0);
																																																										}
																																																									if (BgL_test4570z00_11780)
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4567z00_11773
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											if (((long) (BgL_curz00_9592) >= 97L))
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4567z00_11773
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9592)
																																																														<
																																																														103L);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4567z00_11773
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																										}
																																																								}
																																																						}
																																																						if (BgL_test4567z00_11773)
																																																							{	/* Unsafe/url.scm 110 */
																																																								BgL_iportz00_9641
																																																									=
																																																									BgL_iportz00_9586;
																																																								BgL_lastzd2matchzd2_9642
																																																									=
																																																									BgL_lastzd2matchzd2_9587;
																																																								BgL_forwardz00_9643
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_9588);
																																																								BgL_bufposz00_9644
																																																									=
																																																									BgL_bufposz00_9589;
																																																							BgL_statezd215zd21075z00_9360:
																																																								if ((BgL_forwardz00_9643 == BgL_bufposz00_9644))
																																																									{	/* Unsafe/url.scm 110 */
																																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_9641)))
																																																											{	/* Unsafe/url.scm 110 */
																																																												long
																																																													BgL_arg2328z00_9645;
																																																												long
																																																													BgL_arg2329z00_9646;
																																																												{	/* Unsafe/url.scm 110 */
																																																													obj_t
																																																														BgL_tmpz00_11796;
																																																													BgL_tmpz00_11796
																																																														=
																																																														(
																																																														(obj_t)
																																																														BgL_iportz00_9641);
																																																													BgL_arg2328z00_9645
																																																														=
																																																														RGC_BUFFER_FORWARD
																																																														(BgL_tmpz00_11796);
																																																												}
																																																												{	/* Unsafe/url.scm 110 */
																																																													obj_t
																																																														BgL_tmpz00_11799;
																																																													BgL_tmpz00_11799
																																																														=
																																																														(
																																																														(obj_t)
																																																														BgL_iportz00_9641);
																																																													BgL_arg2329z00_9646
																																																														=
																																																														RGC_BUFFER_BUFPOS
																																																														(BgL_tmpz00_11799);
																																																												}
																																																												{
																																																													long
																																																														BgL_bufposz00_11803;
																																																													long
																																																														BgL_forwardz00_11802;
																																																													BgL_forwardz00_11802
																																																														=
																																																														BgL_arg2328z00_9645;
																																																													BgL_bufposz00_11803
																																																														=
																																																														BgL_arg2329z00_9646;
																																																													BgL_bufposz00_9644
																																																														=
																																																														BgL_bufposz00_11803;
																																																													BgL_forwardz00_9643
																																																														=
																																																														BgL_forwardz00_11802;
																																																													goto
																																																														BgL_statezd215zd21075z00_9360;
																																																												}
																																																											}
																																																										else
																																																											{	/* Unsafe/url.scm 110 */
																																																												BgL_matchz00_9649
																																																													=
																																																													BgL_lastzd2matchzd2_9642;
																																																											}
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 110 */
																																																										int
																																																											BgL_curz00_9647;
																																																										{	/* Unsafe/url.scm 110 */
																																																											obj_t
																																																												BgL_tmpz00_11804;
																																																											BgL_tmpz00_11804
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_9641);
																																																											BgL_curz00_9647
																																																												=
																																																												RGC_BUFFER_GET_CHAR
																																																												(BgL_tmpz00_11804,
																																																												BgL_forwardz00_9643);
																																																										}
																																																										{	/* Unsafe/url.scm 110 */

																																																											{	/* Unsafe/url.scm 110 */
																																																												bool_t
																																																													BgL_test4575z00_11807;
																																																												{	/* Unsafe/url.scm 110 */
																																																													bool_t
																																																														BgL_test4576z00_11808;
																																																													if (((long) (BgL_curz00_9647) >= 48L))
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4576z00_11808
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9647)
																																																																<
																																																																58L);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4576z00_11808
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test4576z00_11808)
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4575z00_11807
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															bool_t
																																																																BgL_test4578z00_11814;
																																																															if (((long) (BgL_curz00_9647) >= 65L))
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4578z00_11814
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_9647)
																																																																		<
																																																																		71L);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4578z00_11814
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															if (BgL_test4578z00_11814)
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4575z00_11807
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	if (((long) (BgL_curz00_9647) >= 97L))
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			BgL_test4575z00_11807
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_9647)
																																																																				<
																																																																				103L);
																																																																		}
																																																																	else
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			BgL_test4575z00_11807
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				0);
																																																																		}
																																																																}
																																																														}
																																																												}
																																																												if (BgL_test4575z00_11807)
																																																													{
																																																														long
																																																															BgL_bufposz00_11829;
																																																														long
																																																															BgL_forwardz00_11827;
																																																														long
																																																															BgL_lastzd2matchzd2_11826;
																																																														obj_t
																																																															BgL_iportz00_11825;
																																																														BgL_iportz00_11825
																																																															=
																																																															BgL_iportz00_9641;
																																																														BgL_lastzd2matchzd2_11826
																																																															=
																																																															BgL_lastzd2matchzd2_9642;
																																																														BgL_forwardz00_11827
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_9643);
																																																														BgL_bufposz00_11829
																																																															=
																																																															BgL_bufposz00_9644;
																																																														BgL_bufposz00_9401
																																																															=
																																																															BgL_bufposz00_11829;
																																																														BgL_forwardz00_9400
																																																															=
																																																															BgL_forwardz00_11827;
																																																														BgL_lastzd2matchzd2_9399
																																																															=
																																																															BgL_lastzd2matchzd2_11826;
																																																														BgL_iportz00_9398
																																																															=
																																																															BgL_iportz00_11825;
																																																														goto
																																																															BgL_statezd29zd21069z00_9336;
																																																													}
																																																												else
																																																													{	/* Unsafe/url.scm 110 */
																																																														BgL_matchz00_9649
																																																															=
																																																															BgL_lastzd2matchzd2_9642;
																																																													}
																																																											}
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Unsafe/url.scm 110 */
																																																								BgL_matchz00_9649
																																																									=
																																																									BgL_lastzd2matchzd2_9587;
																																																							}
																																																					}
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 110 */
																																																		bool_t
																																																			BgL_test4581z00_11832;
																																																		{	/* Unsafe/url.scm 110 */
																																																			bool_t
																																																				BgL_test4582z00_11833;
																																																			if (((long) (BgL_curz00_9404) == 33L))
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4582z00_11833
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4582z00_11833
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9404)
																																																						==
																																																						32L);
																																																				}
																																																			if (BgL_test4582z00_11833)
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4581z00_11832
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					if (((long) (BgL_curz00_9404) == 36L))
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4581z00_11832
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							bool_t
																																																								BgL_test4585z00_11842;
																																																							if (((long) (BgL_curz00_9404) >= 38L))
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4585z00_11842
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9404)
																																																										<
																																																										60L);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4585z00_11842
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test4585z00_11842)
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4581z00_11832
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									if (((long) (BgL_curz00_9404) == 61L))
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4581z00_11832
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											bool_t
																																																												BgL_test4588z00_11851;
																																																											if (((long) (BgL_curz00_9404) >= 65L))
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4588z00_11851
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9404)
																																																														<
																																																														91L);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4588z00_11851
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test4588z00_11851)
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4581z00_11832
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													if (((long) (BgL_curz00_9404) == 95L))
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4581z00_11832
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															bool_t
																																																																BgL_test4591z00_11860;
																																																															if (((long) (BgL_curz00_9404) >= 97L))
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4591z00_11860
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_9404)
																																																																		<
																																																																		123L);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4591z00_11860
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															if (BgL_test4591z00_11860)
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4581z00_11832
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	if (((long) (BgL_curz00_9404) == 124L))
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			BgL_test4581z00_11832
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			BgL_test4581z00_11832
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_9404)
																																																																				==
																																																																				126L);
																																																		}}}}}}}}}
																																																		if (BgL_test4581z00_11832)
																																																			{
																																																				long
																																																					BgL_forwardz00_11871;
																																																				BgL_forwardz00_11871
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_9400);
																																																				BgL_forwardz00_9400
																																																					=
																																																					BgL_forwardz00_11871;
																																																				goto
																																																					BgL_statezd29zd21069z00_9336;
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 110 */
																																																				BgL_matchz00_9649
																																																					=
																																																					BgL_lastzd2matchzd2_9399;
																																																			}
																																																	}
																																															}
																																													}
																																											}
																																										}
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_matchz00_9649
																																										=
																																										BgL_lastzd2matchzd2_9364;
																																								}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Unsafe/url.scm 110 */
																																				BgL_matchz00_9649
																																					=
																																					BgL_lastzd2matchzd2_9364;
																																			}
																																	}
																																else
																																	{	/* Unsafe/url.scm 110 */
																																		int
																																			BgL_curz00_9372;
																																		{	/* Unsafe/url.scm 110 */
																																			obj_t
																																				BgL_tmpz00_11874;
																																			BgL_tmpz00_11874
																																				=
																																				((obj_t)
																																				BgL_iportz00_9363);
																																			BgL_curz00_9372
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_11874,
																																				BgL_forwardz00_9365);
																																		}
																																		{	/* Unsafe/url.scm 110 */

																																			if (
																																				((long)
																																					(BgL_curz00_9372)
																																					==
																																					32L))
																																				{
																																					long
																																						BgL_bufposz00_11884;
																																					long
																																						BgL_forwardz00_11882;
																																					long
																																						BgL_lastzd2matchzd2_11881;
																																					obj_t
																																						BgL_iportz00_11880;
																																					BgL_iportz00_11880
																																						=
																																						BgL_iportz00_9363;
																																					BgL_lastzd2matchzd2_11881
																																						=
																																						BgL_lastzd2matchzd2_9364;
																																					BgL_forwardz00_11882
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_9365);
																																					BgL_bufposz00_11884
																																						=
																																						BgL_bufposz00_9366;
																																					BgL_bufposz00_9401
																																						=
																																						BgL_bufposz00_11884;
																																					BgL_forwardz00_9400
																																						=
																																						BgL_forwardz00_11882;
																																					BgL_lastzd2matchzd2_9399
																																						=
																																						BgL_lastzd2matchzd2_11881;
																																					BgL_iportz00_9398
																																						=
																																						BgL_iportz00_11880;
																																					goto
																																						BgL_statezd29zd21069z00_9336;
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_matchz00_9649
																																						=
																																						BgL_lastzd2matchzd2_9364;
																																				}
																																		}
																																	}
																															}
																														else
																															{	/* Unsafe/url.scm 110 */
																																BgL_matchz00_9649
																																	=
																																	BgL_newzd2matchzd2_9416;
																															}
																													}
																												}
																										}
																									}
																								else
																									{	/* Unsafe/url.scm 110 */
																										if (
																											((long) (BgL_curz00_9419)
																												== 37L))
																											{
																												long
																													BgL_bufposz00_11893;
																												long
																													BgL_forwardz00_11891;
																												long
																													BgL_lastzd2matchzd2_11890;
																												obj_t
																													BgL_iportz00_11889;
																												BgL_iportz00_11889 =
																													BgL_iportz00_9412;
																												BgL_lastzd2matchzd2_11890
																													=
																													BgL_newzd2matchzd2_9416;
																												BgL_forwardz00_11891 =
																													(1L +
																													BgL_forwardz00_9414);
																												BgL_bufposz00_11893 =
																													BgL_bufposz00_9415;
																												BgL_bufposz00_9589 =
																													BgL_bufposz00_11893;
																												BgL_forwardz00_9588 =
																													BgL_forwardz00_11891;
																												BgL_lastzd2matchzd2_9587
																													=
																													BgL_lastzd2matchzd2_11890;
																												BgL_iportz00_9586 =
																													BgL_iportz00_11889;
																												goto
																													BgL_statezd210zd21070z00_9355;
																											}
																										else
																											{	/* Unsafe/url.scm 110 */
																												bool_t
																													BgL_test4596z00_11894;
																												{	/* Unsafe/url.scm 110 */
																													bool_t
																														BgL_test4597z00_11895;
																													if (((long)
																															(BgL_curz00_9419)
																															== 33L))
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4597z00_11895
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4597z00_11895
																																=
																																((long)
																																(BgL_curz00_9419)
																																== 32L);
																														}
																													if (BgL_test4597z00_11895)
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4596z00_11894
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															if (
																																((long)
																																	(BgL_curz00_9419)
																																	== 36L))
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4596z00_11894
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	bool_t
																																		BgL_test4600z00_11904;
																																	if (((long)
																																			(BgL_curz00_9419)
																																			>= 38L))
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4600z00_11904
																																				=
																																				((long)
																																				(BgL_curz00_9419)
																																				< 60L);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4600z00_11904
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test4600z00_11904)
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4596z00_11894
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			if (
																																				((long)
																																					(BgL_curz00_9419)
																																					==
																																					61L))
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4596z00_11894
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					bool_t
																																						BgL_test4603z00_11913;
																																					if ((
																																							(long)
																																							(BgL_curz00_9419)
																																							>=
																																							65L))
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4603z00_11913
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9419)
																																								<
																																								91L);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4603z00_11913
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test4603z00_11913)
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4596z00_11894
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							if (((long) (BgL_curz00_9419) == 95L))
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4596z00_11894
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									bool_t
																																										BgL_test4606z00_11922;
																																									if (((long) (BgL_curz00_9419) >= 97L))
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4606z00_11922
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9419)
																																												<
																																												123L);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4606z00_11922
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test4606z00_11922)
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4596z00_11894
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											if (((long) (BgL_curz00_9419) == 124L))
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4596z00_11894
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4596z00_11894
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_9419)
																																														==
																																														126L);
																												}}}}}}}}}
																												if (BgL_test4596z00_11894)
																													{
																														long
																															BgL_bufposz00_11937;
																														long
																															BgL_forwardz00_11935;
																														long
																															BgL_lastzd2matchzd2_11934;
																														obj_t
																															BgL_iportz00_11933;
																														BgL_iportz00_11933 =
																															BgL_iportz00_9412;
																														BgL_lastzd2matchzd2_11934
																															=
																															BgL_newzd2matchzd2_9416;
																														BgL_forwardz00_11935
																															=
																															(1L +
																															BgL_forwardz00_9414);
																														BgL_bufposz00_11937
																															=
																															BgL_bufposz00_9415;
																														BgL_bufposz00_9401 =
																															BgL_bufposz00_11937;
																														BgL_forwardz00_9400
																															=
																															BgL_forwardz00_11935;
																														BgL_lastzd2matchzd2_9399
																															=
																															BgL_lastzd2matchzd2_11934;
																														BgL_iportz00_9398 =
																															BgL_iportz00_11933;
																														goto
																															BgL_statezd29zd21069z00_9336;
																													}
																												else
																													{	/* Unsafe/url.scm 110 */
																														BgL_matchz00_9649 =
																															BgL_newzd2matchzd2_9416;
																													}
																											}
																									}
																							}
																					}
																				}
																		}
																	}
																else
																	{	/* Unsafe/url.scm 110 */
																		if (((long) (BgL_curz00_9615) == 60L))
																			{	/* Unsafe/url.scm 110 */
																				long BgL_arg2254z00_9616;

																				BgL_arg2254z00_9616 =
																					(1L + BgL_forwardz00_9610);
																				{
																					long BgL_forwardz00_9618;
																					long BgL_bufposz00_9619;

																					BgL_forwardz00_9618 =
																						BgL_arg2254z00_9616;
																					BgL_bufposz00_9619 =
																						BgL_bufposz00_9611;
																				BgL_statezd211zd21071z00_9617:
																					if (
																						(BgL_forwardz00_9618 ==
																							BgL_bufposz00_9619))
																						{	/* Unsafe/url.scm 110 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_9608)))
																								{	/* Unsafe/url.scm 110 */
																									long BgL_arg1732z00_9620;
																									long BgL_arg1733z00_9621;

																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_11948;

																										BgL_tmpz00_11948 =
																											((obj_t)
																											BgL_iportz00_9608);
																										BgL_arg1732z00_9620 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_11948);
																									}
																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_11951;

																										BgL_tmpz00_11951 =
																											((obj_t)
																											BgL_iportz00_9608);
																										BgL_arg1733z00_9621 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_11951);
																									}
																									{
																										long BgL_bufposz00_11955;
																										long BgL_forwardz00_11954;

																										BgL_forwardz00_11954 =
																											BgL_arg1732z00_9620;
																										BgL_bufposz00_11955 =
																											BgL_arg1733z00_9621;
																										BgL_bufposz00_9619 =
																											BgL_bufposz00_11955;
																										BgL_forwardz00_9618 =
																											BgL_forwardz00_11954;
																										goto
																											BgL_statezd211zd21071z00_9617;
																									}
																								}
																							else
																								{	/* Unsafe/url.scm 110 */
																									BgL_matchz00_9649 =
																										BgL_newzd2matchzd2_9612;
																								}
																						}
																					else
																						{	/* Unsafe/url.scm 110 */
																							int BgL_curz00_9622;

																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_11956;

																								BgL_tmpz00_11956 =
																									((obj_t) BgL_iportz00_9608);
																								BgL_curz00_9622 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_11956,
																									BgL_forwardz00_9618);
																							}
																							{	/* Unsafe/url.scm 110 */

																								if (
																									((long) (BgL_curz00_9622) ==
																										62L))
																									{
																										long BgL_bufposz00_11966;
																										long BgL_forwardz00_11964;
																										long
																											BgL_lastzd2matchzd2_11963;
																										obj_t BgL_iportz00_11962;

																										BgL_iportz00_11962 =
																											BgL_iportz00_9608;
																										BgL_lastzd2matchzd2_11963 =
																											BgL_newzd2matchzd2_9612;
																										BgL_forwardz00_11964 =
																											(1L +
																											BgL_forwardz00_9618);
																										BgL_bufposz00_11966 =
																											BgL_bufposz00_9619;
																										BgL_bufposz00_9366 =
																											BgL_bufposz00_11966;
																										BgL_forwardz00_9365 =
																											BgL_forwardz00_11964;
																										BgL_lastzd2matchzd2_9364 =
																											BgL_lastzd2matchzd2_11963;
																										BgL_iportz00_9363 =
																											BgL_iportz00_11962;
																										goto
																											BgL_statezd214zd21074z00_9332;
																									}
																								else
																									{	/* Unsafe/url.scm 110 */
																										BgL_matchz00_9649 =
																											BgL_newzd2matchzd2_9612;
																									}
																							}
																						}
																				}
																			}
																		else
																			{	/* Unsafe/url.scm 110 */
																				if (((long) (BgL_curz00_9615) == 37L))
																					{
																						long BgL_bufposz00_11974;
																						long BgL_forwardz00_11972;
																						long BgL_lastzd2matchzd2_11971;
																						obj_t BgL_iportz00_11970;

																						BgL_iportz00_11970 =
																							BgL_iportz00_9608;
																						BgL_lastzd2matchzd2_11971 =
																							BgL_newzd2matchzd2_9612;
																						BgL_forwardz00_11972 =
																							(1L + BgL_forwardz00_9610);
																						BgL_bufposz00_11974 =
																							BgL_bufposz00_9611;
																						BgL_bufposz00_9589 =
																							BgL_bufposz00_11974;
																						BgL_forwardz00_9588 =
																							BgL_forwardz00_11972;
																						BgL_lastzd2matchzd2_9587 =
																							BgL_lastzd2matchzd2_11971;
																						BgL_iportz00_9586 =
																							BgL_iportz00_11970;
																						goto BgL_statezd210zd21070z00_9355;
																					}
																				else
																					{	/* Unsafe/url.scm 110 */
																						bool_t BgL_test4614z00_11975;

																						{	/* Unsafe/url.scm 110 */
																							bool_t BgL_test4615z00_11976;

																							if (
																								((long) (BgL_curz00_9615) ==
																									33L))
																								{	/* Unsafe/url.scm 110 */
																									BgL_test4615z00_11976 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/url.scm 110 */
																									BgL_test4615z00_11976 =
																										(
																										(long) (BgL_curz00_9615) ==
																										32L);
																								}
																							if (BgL_test4615z00_11976)
																								{	/* Unsafe/url.scm 110 */
																									BgL_test4614z00_11975 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/url.scm 110 */
																									if (
																										((long) (BgL_curz00_9615) ==
																											36L))
																										{	/* Unsafe/url.scm 110 */
																											BgL_test4614z00_11975 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											bool_t
																												BgL_test4618z00_11985;
																											if (((long)
																													(BgL_curz00_9615) >=
																													38L))
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4618z00_11985
																														=
																														((long)
																														(BgL_curz00_9615) <
																														60L);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4618z00_11985
																														= ((bool_t) 0);
																												}
																											if (BgL_test4618z00_11985)
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4614z00_11975
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													if (
																														((long)
																															(BgL_curz00_9615)
																															== 61L))
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4614z00_11975
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															bool_t
																																BgL_test4621z00_11994;
																															if (((long)
																																	(BgL_curz00_9615)
																																	>= 65L))
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4621z00_11994
																																		=
																																		((long)
																																		(BgL_curz00_9615)
																																		< 91L);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4621z00_11994
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test4621z00_11994)
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4614z00_11975
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	if (
																																		((long)
																																			(BgL_curz00_9615)
																																			== 95L))
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4614z00_11975
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			bool_t
																																				BgL_test4624z00_12003;
																																			if ((
																																					(long)
																																					(BgL_curz00_9615)
																																					>=
																																					97L))
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4624z00_12003
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9615)
																																						<
																																						123L);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4624z00_12003
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test4624z00_12003)
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4614z00_11975
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					if (
																																						((long) (BgL_curz00_9615) == 124L))
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4614z00_11975
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4614z00_11975
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9615)
																																								==
																																								126L);
																						}}}}}}}}}
																						if (BgL_test4614z00_11975)
																							{
																								long BgL_bufposz00_12018;
																								long BgL_forwardz00_12016;
																								long BgL_lastzd2matchzd2_12015;
																								obj_t BgL_iportz00_12014;

																								BgL_iportz00_12014 =
																									BgL_iportz00_9608;
																								BgL_lastzd2matchzd2_12015 =
																									BgL_newzd2matchzd2_9612;
																								BgL_forwardz00_12016 =
																									(1L + BgL_forwardz00_9610);
																								BgL_bufposz00_12018 =
																									BgL_bufposz00_9611;
																								BgL_bufposz00_9401 =
																									BgL_bufposz00_12018;
																								BgL_forwardz00_9400 =
																									BgL_forwardz00_12016;
																								BgL_lastzd2matchzd2_9399 =
																									BgL_lastzd2matchzd2_12015;
																								BgL_iportz00_9398 =
																									BgL_iportz00_12014;
																								goto
																									BgL_statezd29zd21069z00_9336;
																							}
																						else
																							{	/* Unsafe/url.scm 110 */
																								BgL_matchz00_9649 =
																									BgL_newzd2matchzd2_9612;
																							}
																					}
																			}
																	}
															}
														}
												}
											}
										else
											{	/* Unsafe/url.scm 110 */
												if (((long) (BgL_curz00_9379) == 60L))
													{	/* Unsafe/url.scm 110 */
														BgL_iportz00_9462 = BgL_iportz00_9373;
														BgL_lastzd2matchzd2_9463 = BgL_lastzd2matchzd2_9374;
														BgL_forwardz00_9464 = (1L + BgL_forwardz00_9375);
														BgL_bufposz00_9465 = BgL_bufposz00_9376;
													BgL_statezd27zd21067z00_9341:
														{	/* Unsafe/url.scm 110 */
															long BgL_newzd2matchzd2_9466;

															{	/* Unsafe/url.scm 110 */
																obj_t BgL_tmpz00_12023;

																BgL_tmpz00_12023 = ((obj_t) BgL_iportz00_9462);
																RGC_STOP_MATCH(BgL_tmpz00_12023,
																	BgL_forwardz00_9464);
															}
															BgL_newzd2matchzd2_9466 = 2L;
															if ((BgL_forwardz00_9464 == BgL_bufposz00_9465))
																{	/* Unsafe/url.scm 110 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_9462)))
																		{	/* Unsafe/url.scm 110 */
																			long BgL_arg1942z00_9467;
																			long BgL_arg1943z00_9468;

																			{	/* Unsafe/url.scm 110 */
																				obj_t BgL_tmpz00_12031;

																				BgL_tmpz00_12031 =
																					((obj_t) BgL_iportz00_9462);
																				BgL_arg1942z00_9467 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_12031);
																			}
																			{	/* Unsafe/url.scm 110 */
																				obj_t BgL_tmpz00_12034;

																				BgL_tmpz00_12034 =
																					((obj_t) BgL_iportz00_9462);
																				BgL_arg1943z00_9468 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_12034);
																			}
																			{
																				long BgL_bufposz00_12038;
																				long BgL_forwardz00_12037;

																				BgL_forwardz00_12037 =
																					BgL_arg1942z00_9467;
																				BgL_bufposz00_12038 =
																					BgL_arg1943z00_9468;
																				BgL_bufposz00_9465 =
																					BgL_bufposz00_12038;
																				BgL_forwardz00_9464 =
																					BgL_forwardz00_12037;
																				goto BgL_statezd27zd21067z00_9341;
																			}
																		}
																	else
																		{	/* Unsafe/url.scm 110 */
																			BgL_matchz00_9649 =
																				BgL_newzd2matchzd2_9466;
																		}
																}
															else
																{	/* Unsafe/url.scm 110 */
																	int BgL_curz00_9469;

																	{	/* Unsafe/url.scm 110 */
																		obj_t BgL_tmpz00_12039;

																		BgL_tmpz00_12039 =
																			((obj_t) BgL_iportz00_9462);
																		BgL_curz00_9469 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_12039,
																			BgL_forwardz00_9464);
																	}
																	{	/* Unsafe/url.scm 110 */

																		if (((long) (BgL_curz00_9469) == 62L))
																			{	/* Unsafe/url.scm 110 */
																				BgL_iportz00_9524 = BgL_iportz00_9462;
																				BgL_lastzd2matchzd2_9525 =
																					BgL_newzd2matchzd2_9466;
																				BgL_forwardz00_9526 =
																					(1L + BgL_forwardz00_9464);
																				BgL_bufposz00_9527 = BgL_bufposz00_9465;
																			BgL_statezd218zd21078z00_9348:
																				{	/* Unsafe/url.scm 110 */
																					long BgL_newzd2matchzd2_9528;

																					{	/* Unsafe/url.scm 110 */
																						obj_t BgL_tmpz00_12045;

																						BgL_tmpz00_12045 =
																							((obj_t) BgL_iportz00_9524);
																						RGC_STOP_MATCH(BgL_tmpz00_12045,
																							BgL_forwardz00_9526);
																					}
																					BgL_newzd2matchzd2_9528 = 2L;
																					if (
																						(BgL_forwardz00_9526 ==
																							BgL_bufposz00_9527))
																						{	/* Unsafe/url.scm 110 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_9524)))
																								{	/* Unsafe/url.scm 110 */
																									long BgL_arg2026z00_9529;
																									long BgL_arg2028z00_9530;

																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_12053;

																										BgL_tmpz00_12053 =
																											((obj_t)
																											BgL_iportz00_9524);
																										BgL_arg2026z00_9529 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_12053);
																									}
																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_12056;

																										BgL_tmpz00_12056 =
																											((obj_t)
																											BgL_iportz00_9524);
																										BgL_arg2028z00_9530 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_12056);
																									}
																									{
																										long BgL_bufposz00_12060;
																										long BgL_forwardz00_12059;

																										BgL_forwardz00_12059 =
																											BgL_arg2026z00_9529;
																										BgL_bufposz00_12060 =
																											BgL_arg2028z00_9530;
																										BgL_bufposz00_9527 =
																											BgL_bufposz00_12060;
																										BgL_forwardz00_9526 =
																											BgL_forwardz00_12059;
																										goto
																											BgL_statezd218zd21078z00_9348;
																									}
																								}
																							else
																								{	/* Unsafe/url.scm 110 */
																									BgL_matchz00_9649 =
																										BgL_newzd2matchzd2_9528;
																								}
																						}
																					else
																						{	/* Unsafe/url.scm 110 */
																							int BgL_curz00_9531;

																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_12061;

																								BgL_tmpz00_12061 =
																									((obj_t) BgL_iportz00_9524);
																								BgL_curz00_9531 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_12061,
																									BgL_forwardz00_9526);
																							}
																							{	/* Unsafe/url.scm 110 */

																								if (
																									((long) (BgL_curz00_9531) ==
																										58L))
																									{	/* Unsafe/url.scm 110 */
																										long BgL_arg2030z00_9532;

																										BgL_arg2030z00_9532 =
																											(1L +
																											BgL_forwardz00_9526);
																										{	/* Unsafe/url.scm 110 */
																											long
																												BgL_newzd2matchzd2_9533;
																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_12068;

																												BgL_tmpz00_12068 =
																													((obj_t)
																													BgL_iportz00_9524);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_12068,
																													BgL_arg2030z00_9532);
																											}
																											BgL_newzd2matchzd2_9533 =
																												1L;
																											BgL_matchz00_9649 =
																												BgL_newzd2matchzd2_9533;
																									}}
																								else
																									{	/* Unsafe/url.scm 110 */
																										if (
																											((long) (BgL_curz00_9531)
																												== 32L))
																											{	/* Unsafe/url.scm 110 */
																												BgL_iportz00_9390 =
																													BgL_iportz00_9524;
																												BgL_lastzd2matchzd2_9391
																													=
																													BgL_newzd2matchzd2_9528;
																												BgL_forwardz00_9392 =
																													(1L +
																													BgL_forwardz00_9526);
																												BgL_bufposz00_9393 =
																													BgL_bufposz00_9527;
																											BgL_statezd219zd21079z00_9335:
																												{	/* Unsafe/url.scm 110 */
																													long
																														BgL_newzd2matchzd2_9394;
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_12074;
																														BgL_tmpz00_12074 =
																															((obj_t)
																															BgL_iportz00_9390);
																														RGC_STOP_MATCH
																															(BgL_tmpz00_12074,
																															BgL_forwardz00_9392);
																													}
																													BgL_newzd2matchzd2_9394
																														= 2L;
																													if (
																														(BgL_forwardz00_9392
																															==
																															BgL_bufposz00_9393))
																														{	/* Unsafe/url.scm 110 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_9390)))
																																{	/* Unsafe/url.scm 110 */
																																	long
																																		BgL_arg1804z00_9395;
																																	long
																																		BgL_arg1805z00_9396;
																																	{	/* Unsafe/url.scm 110 */
																																		obj_t
																																			BgL_tmpz00_12082;
																																		BgL_tmpz00_12082
																																			=
																																			((obj_t)
																																			BgL_iportz00_9390);
																																		BgL_arg1804z00_9395
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_12082);
																																	}
																																	{	/* Unsafe/url.scm 110 */
																																		obj_t
																																			BgL_tmpz00_12085;
																																		BgL_tmpz00_12085
																																			=
																																			((obj_t)
																																			BgL_iportz00_9390);
																																		BgL_arg1805z00_9396
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_12085);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_12089;
																																		long
																																			BgL_forwardz00_12088;
																																		BgL_forwardz00_12088
																																			=
																																			BgL_arg1804z00_9395;
																																		BgL_bufposz00_12089
																																			=
																																			BgL_arg1805z00_9396;
																																		BgL_bufposz00_9393
																																			=
																																			BgL_bufposz00_12089;
																																		BgL_forwardz00_9392
																																			=
																																			BgL_forwardz00_12088;
																																		goto
																																			BgL_statezd219zd21079z00_9335;
																																	}
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	BgL_matchz00_9649
																																		=
																																		BgL_newzd2matchzd2_9394;
																																}
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															int
																																BgL_curz00_9397;
																															{	/* Unsafe/url.scm 110 */
																																obj_t
																																	BgL_tmpz00_12090;
																																BgL_tmpz00_12090
																																	=
																																	((obj_t)
																																	BgL_iportz00_9390);
																																BgL_curz00_9397
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_12090,
																																	BgL_forwardz00_9392);
																															}
																															{	/* Unsafe/url.scm 110 */

																																if (
																																	((long)
																																		(BgL_curz00_9397)
																																		== 64L))
																																	{
																																		long
																																			BgL_bufposz00_12100;
																																		long
																																			BgL_forwardz00_12098;
																																		long
																																			BgL_lastzd2matchzd2_12097;
																																		obj_t
																																			BgL_iportz00_12096;
																																		BgL_iportz00_12096
																																			=
																																			BgL_iportz00_9390;
																																		BgL_lastzd2matchzd2_12097
																																			=
																																			BgL_newzd2matchzd2_9394;
																																		BgL_forwardz00_12098
																																			=
																																			(1L +
																																			BgL_forwardz00_9392);
																																		BgL_bufposz00_12100
																																			=
																																			BgL_bufposz00_9393;
																																		BgL_bufposz00_9415
																																			=
																																			BgL_bufposz00_12100;
																																		BgL_forwardz00_9414
																																			=
																																			BgL_forwardz00_12098;
																																		BgL_lastzd2matchzd2_9413
																																			=
																																			BgL_lastzd2matchzd2_12097;
																																		BgL_iportz00_9412
																																			=
																																			BgL_iportz00_12096;
																																		goto
																																			BgL_statezd212zd21072z00_9337;
																																	}
																																else
																																	{	/* Unsafe/url.scm 110 */
																																		if (
																																			((long)
																																				(BgL_curz00_9397)
																																				== 60L))
																																			{	/* Unsafe/url.scm 110 */
																																				BgL_iportz00_9534
																																					=
																																					BgL_iportz00_9390;
																																				BgL_lastzd2matchzd2_9535
																																					=
																																					BgL_newzd2matchzd2_9394;
																																				BgL_forwardz00_9536
																																					=
																																					(1L +
																																					BgL_forwardz00_9392);
																																				BgL_bufposz00_9537
																																					=
																																					BgL_bufposz00_9393;
																																			BgL_statezd222zd21082z00_9349:
																																				{	/* Unsafe/url.scm 110 */
																																					long
																																						BgL_newzd2matchzd2_9538;
																																					{	/* Unsafe/url.scm 110 */
																																						obj_t
																																							BgL_tmpz00_12104;
																																						BgL_tmpz00_12104
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_9534);
																																						RGC_STOP_MATCH
																																							(BgL_tmpz00_12104,
																																							BgL_forwardz00_9536);
																																					}
																																					BgL_newzd2matchzd2_9538
																																						=
																																						2L;
																																					if (
																																						(BgL_forwardz00_9536
																																							==
																																							BgL_bufposz00_9537))
																																						{	/* Unsafe/url.scm 110 */
																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_9534)))
																																								{	/* Unsafe/url.scm 110 */
																																									long
																																										BgL_arg2038z00_9539;
																																									long
																																										BgL_arg2039z00_9540;
																																									{	/* Unsafe/url.scm 110 */
																																										obj_t
																																											BgL_tmpz00_12112;
																																										BgL_tmpz00_12112
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_9534);
																																										BgL_arg2038z00_9539
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_tmpz00_12112);
																																									}
																																									{	/* Unsafe/url.scm 110 */
																																										obj_t
																																											BgL_tmpz00_12115;
																																										BgL_tmpz00_12115
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_9534);
																																										BgL_arg2039z00_9540
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_tmpz00_12115);
																																									}
																																									{
																																										long
																																											BgL_bufposz00_12119;
																																										long
																																											BgL_forwardz00_12118;
																																										BgL_forwardz00_12118
																																											=
																																											BgL_arg2038z00_9539;
																																										BgL_bufposz00_12119
																																											=
																																											BgL_arg2039z00_9540;
																																										BgL_bufposz00_9537
																																											=
																																											BgL_bufposz00_12119;
																																										BgL_forwardz00_9536
																																											=
																																											BgL_forwardz00_12118;
																																										goto
																																											BgL_statezd222zd21082z00_9349;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_matchz00_9649
																																										=
																																										BgL_newzd2matchzd2_9538;
																																								}
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							int
																																								BgL_curz00_9541;
																																							{	/* Unsafe/url.scm 110 */
																																								obj_t
																																									BgL_tmpz00_12120;
																																								BgL_tmpz00_12120
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_9534);
																																								BgL_curz00_9541
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_tmpz00_12120,
																																									BgL_forwardz00_9536);
																																							}
																																							{	/* Unsafe/url.scm 110 */

																																								if (((long) (BgL_curz00_9541) == 62L))
																																									{
																																										long
																																											BgL_bufposz00_12130;
																																										long
																																											BgL_forwardz00_12128;
																																										long
																																											BgL_lastzd2matchzd2_12127;
																																										obj_t
																																											BgL_iportz00_12126;
																																										BgL_iportz00_12126
																																											=
																																											BgL_iportz00_9534;
																																										BgL_lastzd2matchzd2_12127
																																											=
																																											BgL_newzd2matchzd2_9538;
																																										BgL_forwardz00_12128
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_9536);
																																										BgL_bufposz00_12130
																																											=
																																											BgL_bufposz00_9537;
																																										BgL_bufposz00_9527
																																											=
																																											BgL_bufposz00_12130;
																																										BgL_forwardz00_9526
																																											=
																																											BgL_forwardz00_12128;
																																										BgL_lastzd2matchzd2_9525
																																											=
																																											BgL_lastzd2matchzd2_12127;
																																										BgL_iportz00_9524
																																											=
																																											BgL_iportz00_12126;
																																										goto
																																											BgL_statezd218zd21078z00_9348;
																																									}
																																								else
																																									{	/* Unsafe/url.scm 110 */
																																										if (((long) (BgL_curz00_9541) == 58L))
																																											{	/* Unsafe/url.scm 110 */
																																												long
																																													BgL_arg2043z00_9542;
																																												BgL_arg2043z00_9542
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_9536);
																																												{	/* Unsafe/url.scm 110 */
																																													long
																																														BgL_newzd2matchzd2_9543;
																																													{	/* Unsafe/url.scm 110 */
																																														obj_t
																																															BgL_tmpz00_12135;
																																														BgL_tmpz00_12135
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_9534);
																																														RGC_STOP_MATCH
																																															(BgL_tmpz00_12135,
																																															BgL_arg2043z00_9542);
																																													}
																																													BgL_newzd2matchzd2_9543
																																														=
																																														1L;
																																													BgL_matchz00_9649
																																														=
																																														BgL_newzd2matchzd2_9543;
																																											}}
																																										else
																																											{	/* Unsafe/url.scm 110 */
																																												bool_t
																																													BgL_test4643z00_12138;
																																												switch
																																													(
																																													(long)
																																													(BgL_curz00_9541))
																																													{
																																													case 47L:

																																														BgL_test4643z00_12138 = ((bool_t) 1);
																																														break;
																																													case 58L:

																																														BgL_test4643z00_12138 = ((bool_t) 1);
																																														break;
																																													case 62L:

																																														BgL_test4643z00_12138 = ((bool_t) 1);
																																														break;
																																													default:
																																														BgL_test4643z00_12138 = ((long) (BgL_curz00_9541) == 64L);
																																													}
																																												if (BgL_test4643z00_12138)
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_matchz00_9649
																																															=
																																															BgL_newzd2matchzd2_9538;
																																													}
																																												else
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_iportz00_9514
																																															=
																																															BgL_iportz00_9534;
																																														BgL_lastzd2matchzd2_9515
																																															=
																																															BgL_newzd2matchzd2_9538;
																																														BgL_forwardz00_9516
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_9536);
																																														BgL_bufposz00_9517
																																															=
																																															BgL_bufposz00_9537;
																																													BgL_statezd216zd21076z00_9347:
																																														{	/* Unsafe/url.scm 110 */
																																															long
																																																BgL_newzd2matchzd2_9518;
																																															{	/* Unsafe/url.scm 110 */
																																																obj_t
																																																	BgL_tmpz00_12143;
																																																BgL_tmpz00_12143
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_9514);
																																																RGC_STOP_MATCH
																																																	(BgL_tmpz00_12143,
																																																	BgL_forwardz00_9516);
																																															}
																																															BgL_newzd2matchzd2_9518
																																																=
																																																2L;
																																															if ((BgL_forwardz00_9516 == BgL_bufposz00_9517))
																																																{	/* Unsafe/url.scm 110 */
																																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_9514)))
																																																		{	/* Unsafe/url.scm 110 */
																																																			long
																																																				BgL_arg2013z00_9519;
																																																			long
																																																				BgL_arg2016z00_9520;
																																																			{	/* Unsafe/url.scm 110 */
																																																				obj_t
																																																					BgL_tmpz00_12151;
																																																				BgL_tmpz00_12151
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_9514);
																																																				BgL_arg2013z00_9519
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_tmpz00_12151);
																																																			}
																																																			{	/* Unsafe/url.scm 110 */
																																																				obj_t
																																																					BgL_tmpz00_12154;
																																																				BgL_tmpz00_12154
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_9514);
																																																				BgL_arg2016z00_9520
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_tmpz00_12154);
																																																			}
																																																			{
																																																				long
																																																					BgL_bufposz00_12158;
																																																				long
																																																					BgL_forwardz00_12157;
																																																				BgL_forwardz00_12157
																																																					=
																																																					BgL_arg2013z00_9519;
																																																				BgL_bufposz00_12158
																																																					=
																																																					BgL_arg2016z00_9520;
																																																				BgL_bufposz00_9517
																																																					=
																																																					BgL_bufposz00_12158;
																																																				BgL_forwardz00_9516
																																																					=
																																																					BgL_forwardz00_12157;
																																																				goto
																																																					BgL_statezd216zd21076z00_9347;
																																																			}
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_matchz00_9649
																																																				=
																																																				BgL_newzd2matchzd2_9518;
																																																		}
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	int
																																																		BgL_curz00_9521;
																																																	{	/* Unsafe/url.scm 110 */
																																																		obj_t
																																																			BgL_tmpz00_12159;
																																																		BgL_tmpz00_12159
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9514);
																																																		BgL_curz00_9521
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_tmpz00_12159,
																																																			BgL_forwardz00_9516);
																																																	}
																																																	{	/* Unsafe/url.scm 110 */

																																																		if (((long) (BgL_curz00_9521) == 58L))
																																																			{	/* Unsafe/url.scm 110 */
																																																				long
																																																					BgL_arg2018z00_9522;
																																																				BgL_arg2018z00_9522
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_9516);
																																																				{	/* Unsafe/url.scm 110 */
																																																					long
																																																						BgL_newzd2matchzd2_9523;
																																																					{	/* Unsafe/url.scm 110 */
																																																						obj_t
																																																							BgL_tmpz00_12166;
																																																						BgL_tmpz00_12166
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_9514);
																																																						RGC_STOP_MATCH
																																																							(BgL_tmpz00_12166,
																																																							BgL_arg2018z00_9522);
																																																					}
																																																					BgL_newzd2matchzd2_9523
																																																						=
																																																						1L;
																																																					BgL_matchz00_9649
																																																						=
																																																						BgL_newzd2matchzd2_9523;
																																																			}}
																																																		else
																																																			{	/* Unsafe/url.scm 110 */
																																																				bool_t
																																																					BgL_test4647z00_12169;
																																																				if (((long) (BgL_curz00_9521) == 47L))
																																																					{	/* Unsafe/url.scm 110 */
																																																						BgL_test4647z00_12169
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 110 */
																																																						if (((long) (BgL_curz00_9521) == 58L))
																																																							{	/* Unsafe/url.scm 110 */
																																																								BgL_test4647z00_12169
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Unsafe/url.scm 110 */
																																																								BgL_test4647z00_12169
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_9521)
																																																									==
																																																									64L);
																																																					}}
																																																				if (BgL_test4647z00_12169)
																																																					{	/* Unsafe/url.scm 110 */
																																																						BgL_matchz00_9649
																																																							=
																																																							BgL_newzd2matchzd2_9518;
																																																					}
																																																				else
																																																					{
																																																						long
																																																							BgL_forwardz00_12179;
																																																						long
																																																							BgL_lastzd2matchzd2_12178;
																																																						BgL_lastzd2matchzd2_12178
																																																							=
																																																							BgL_newzd2matchzd2_9518;
																																																						BgL_forwardz00_12179
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_9516);
																																																						BgL_forwardz00_9516
																																																							=
																																																							BgL_forwardz00_12179;
																																																						BgL_lastzd2matchzd2_9515
																																																							=
																																																							BgL_lastzd2matchzd2_12178;
																																																						goto
																																																							BgL_statezd216zd21076z00_9347;
																																																					}
																																																			}
																																																	}
																																																}
																																														}
																																													}
																																											}
																																									}
																																							}
																																						}
																																				}
																																			}
																																		else
																																			{	/* Unsafe/url.scm 110 */
																																				if (
																																					((long) (BgL_curz00_9397) == 58L))
																																					{	/* Unsafe/url.scm 110 */
																																						BgL_iportz00_9427
																																							=
																																							BgL_iportz00_9390;
																																						BgL_lastzd2matchzd2_9428
																																							=
																																							BgL_newzd2matchzd2_9394;
																																						BgL_forwardz00_9429
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_9392);
																																						BgL_bufposz00_9430
																																							=
																																							BgL_bufposz00_9393;
																																					BgL_statezd221zd21081z00_9338:
																																						{	/* Unsafe/url.scm 110 */
																																							long
																																								BgL_newzd2matchzd2_9431;
																																							{	/* Unsafe/url.scm 110 */
																																								obj_t
																																									BgL_tmpz00_12186;
																																								BgL_tmpz00_12186
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_9427);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_12186,
																																									BgL_forwardz00_9429);
																																							}
																																							BgL_newzd2matchzd2_9431
																																								=
																																								1L;
																																							if ((BgL_forwardz00_9429 == BgL_bufposz00_9430))
																																								{	/* Unsafe/url.scm 110 */
																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_9427)))
																																										{	/* Unsafe/url.scm 110 */
																																											long
																																												BgL_arg1891z00_9432;
																																											long
																																												BgL_arg1892z00_9433;
																																											{	/* Unsafe/url.scm 110 */
																																												obj_t
																																													BgL_tmpz00_12194;
																																												BgL_tmpz00_12194
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_9427);
																																												BgL_arg1891z00_9432
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_tmpz00_12194);
																																											}
																																											{	/* Unsafe/url.scm 110 */
																																												obj_t
																																													BgL_tmpz00_12197;
																																												BgL_tmpz00_12197
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_9427);
																																												BgL_arg1892z00_9433
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_tmpz00_12197);
																																											}
																																											{
																																												long
																																													BgL_bufposz00_12201;
																																												long
																																													BgL_forwardz00_12200;
																																												BgL_forwardz00_12200
																																													=
																																													BgL_arg1891z00_9432;
																																												BgL_bufposz00_12201
																																													=
																																													BgL_arg1892z00_9433;
																																												BgL_bufposz00_9430
																																													=
																																													BgL_bufposz00_12201;
																																												BgL_forwardz00_9429
																																													=
																																													BgL_forwardz00_12200;
																																												goto
																																													BgL_statezd221zd21081z00_9338;
																																											}
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_matchz00_9649
																																												=
																																												BgL_newzd2matchzd2_9431;
																																										}
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									int
																																										BgL_curz00_9434;
																																									{	/* Unsafe/url.scm 110 */
																																										obj_t
																																											BgL_tmpz00_12202;
																																										BgL_tmpz00_12202
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_9427);
																																										BgL_curz00_9434
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_tmpz00_12202,
																																											BgL_forwardz00_9429);
																																									}
																																									{	/* Unsafe/url.scm 110 */

																																										if (((long) (BgL_curz00_9434) == 64L))
																																											{
																																												long
																																													BgL_bufposz00_12212;
																																												long
																																													BgL_forwardz00_12210;
																																												long
																																													BgL_lastzd2matchzd2_12209;
																																												obj_t
																																													BgL_iportz00_12208;
																																												BgL_iportz00_12208
																																													=
																																													BgL_iportz00_9427;
																																												BgL_lastzd2matchzd2_12209
																																													=
																																													BgL_newzd2matchzd2_9431;
																																												BgL_forwardz00_12210
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_9429);
																																												BgL_bufposz00_12212
																																													=
																																													BgL_bufposz00_9430;
																																												BgL_bufposz00_9415
																																													=
																																													BgL_bufposz00_12212;
																																												BgL_forwardz00_9414
																																													=
																																													BgL_forwardz00_12210;
																																												BgL_lastzd2matchzd2_9413
																																													=
																																													BgL_lastzd2matchzd2_12209;
																																												BgL_iportz00_9412
																																													=
																																													BgL_iportz00_12208;
																																												goto
																																													BgL_statezd212zd21072z00_9337;
																																											}
																																										else
																																											{	/* Unsafe/url.scm 110 */
																																												if (((long) (BgL_curz00_9434) == 60L))
																																													{	/* Unsafe/url.scm 110 */
																																														long
																																															BgL_arg1896z00_9435;
																																														BgL_arg1896z00_9435
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_9429);
																																														{
																																															long
																																																BgL_forwardz00_9437;
																																															long
																																																BgL_bufposz00_9438;
																																															BgL_forwardz00_9437
																																																=
																																																BgL_arg1896z00_9435;
																																															BgL_bufposz00_9438
																																																=
																																																BgL_bufposz00_9430;
																																														BgL_statezd211zd21071z00_9436:
																																															if ((BgL_forwardz00_9437 == BgL_bufposz00_9438))
																																																{	/* Unsafe/url.scm 110 */
																																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_9427)))
																																																		{	/* Unsafe/url.scm 110 */
																																																			long
																																																				BgL_arg1732z00_9439;
																																																			long
																																																				BgL_arg1733z00_9440;
																																																			{	/* Unsafe/url.scm 110 */
																																																				obj_t
																																																					BgL_tmpz00_12222;
																																																				BgL_tmpz00_12222
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_9427);
																																																				BgL_arg1732z00_9439
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_tmpz00_12222);
																																																			}
																																																			{	/* Unsafe/url.scm 110 */
																																																				obj_t
																																																					BgL_tmpz00_12225;
																																																				BgL_tmpz00_12225
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_9427);
																																																				BgL_arg1733z00_9440
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_tmpz00_12225);
																																																			}
																																																			{
																																																				long
																																																					BgL_bufposz00_12229;
																																																				long
																																																					BgL_forwardz00_12228;
																																																				BgL_forwardz00_12228
																																																					=
																																																					BgL_arg1732z00_9439;
																																																				BgL_bufposz00_12229
																																																					=
																																																					BgL_arg1733z00_9440;
																																																				BgL_bufposz00_9438
																																																					=
																																																					BgL_bufposz00_12229;
																																																				BgL_forwardz00_9437
																																																					=
																																																					BgL_forwardz00_12228;
																																																				goto
																																																					BgL_statezd211zd21071z00_9436;
																																																			}
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_matchz00_9649
																																																				=
																																																				BgL_newzd2matchzd2_9431;
																																																		}
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	int
																																																		BgL_curz00_9441;
																																																	{	/* Unsafe/url.scm 110 */
																																																		obj_t
																																																			BgL_tmpz00_12230;
																																																		BgL_tmpz00_12230
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9427);
																																																		BgL_curz00_9441
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_tmpz00_12230,
																																																			BgL_forwardz00_9437);
																																																	}
																																																	{	/* Unsafe/url.scm 110 */

																																																		if (((long) (BgL_curz00_9441) == 62L))
																																																			{
																																																				long
																																																					BgL_bufposz00_12240;
																																																				long
																																																					BgL_forwardz00_12238;
																																																				long
																																																					BgL_lastzd2matchzd2_12237;
																																																				obj_t
																																																					BgL_iportz00_12236;
																																																				BgL_iportz00_12236
																																																					=
																																																					BgL_iportz00_9427;
																																																				BgL_lastzd2matchzd2_12237
																																																					=
																																																					BgL_newzd2matchzd2_9431;
																																																				BgL_forwardz00_12238
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_9437);
																																																				BgL_bufposz00_12240
																																																					=
																																																					BgL_bufposz00_9438;
																																																				BgL_bufposz00_9366
																																																					=
																																																					BgL_bufposz00_12240;
																																																				BgL_forwardz00_9365
																																																					=
																																																					BgL_forwardz00_12238;
																																																				BgL_lastzd2matchzd2_9364
																																																					=
																																																					BgL_lastzd2matchzd2_12237;
																																																				BgL_iportz00_9363
																																																					=
																																																					BgL_iportz00_12236;
																																																				goto
																																																					BgL_statezd214zd21074z00_9332;
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 110 */
																																																				BgL_matchz00_9649
																																																					=
																																																					BgL_newzd2matchzd2_9431;
																																																			}
																																																	}
																																																}
																																														}
																																													}
																																												else
																																													{	/* Unsafe/url.scm 110 */
																																														if (((long) (BgL_curz00_9434) == 37L))
																																															{
																																																long
																																																	BgL_bufposz00_12248;
																																																long
																																																	BgL_forwardz00_12246;
																																																long
																																																	BgL_lastzd2matchzd2_12245;
																																																obj_t
																																																	BgL_iportz00_12244;
																																																BgL_iportz00_12244
																																																	=
																																																	BgL_iportz00_9427;
																																																BgL_lastzd2matchzd2_12245
																																																	=
																																																	BgL_newzd2matchzd2_9431;
																																																BgL_forwardz00_12246
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_9429);
																																																BgL_bufposz00_12248
																																																	=
																																																	BgL_bufposz00_9430;
																																																BgL_bufposz00_9589
																																																	=
																																																	BgL_bufposz00_12248;
																																																BgL_forwardz00_9588
																																																	=
																																																	BgL_forwardz00_12246;
																																																BgL_lastzd2matchzd2_9587
																																																	=
																																																	BgL_lastzd2matchzd2_12245;
																																																BgL_iportz00_9586
																																																	=
																																																	BgL_iportz00_12244;
																																																goto
																																																	BgL_statezd210zd21070z00_9355;
																																															}
																																														else
																																															{	/* Unsafe/url.scm 110 */
																																																bool_t
																																																	BgL_test4659z00_12249;
																																																{	/* Unsafe/url.scm 110 */
																																																	bool_t
																																																		BgL_test4660z00_12250;
																																																	if (((long) (BgL_curz00_9434) == 33L))
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4660z00_12250
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4660z00_12250
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9434)
																																																				==
																																																				32L);
																																																		}
																																																	if (BgL_test4660z00_12250)
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4659z00_12249
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			if (((long) (BgL_curz00_9434) == 36L))
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4659z00_12249
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					bool_t
																																																						BgL_test4663z00_12259;
																																																					if (((long) (BgL_curz00_9434) >= 38L))
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4663z00_12259
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9434)
																																																								<
																																																								60L);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4663z00_12259
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test4663z00_12259)
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4659z00_12249
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							if (((long) (BgL_curz00_9434) == 61L))
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4659z00_12249
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									bool_t
																																																										BgL_test4666z00_12268;
																																																									if (((long) (BgL_curz00_9434) >= 65L))
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4666z00_12268
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9434)
																																																												<
																																																												91L);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4666z00_12268
																																																												=
																																																												(
																																																												(bool_t)
																																																												0);
																																																										}
																																																									if (BgL_test4666z00_12268)
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4659z00_12249
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											if (((long) (BgL_curz00_9434) == 95L))
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4659z00_12249
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													bool_t
																																																														BgL_test4669z00_12277;
																																																													if (((long) (BgL_curz00_9434) >= 97L))
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4669z00_12277
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9434)
																																																																<
																																																																123L);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4669z00_12277
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test4669z00_12277)
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4659z00_12249
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															if (((long) (BgL_curz00_9434) == 124L))
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4659z00_12249
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4659z00_12249
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_9434)
																																																																		==
																																																																		126L);
																																																}}}}}}}}}
																																																if (BgL_test4659z00_12249)
																																																	{
																																																		long
																																																			BgL_bufposz00_12292;
																																																		long
																																																			BgL_forwardz00_12290;
																																																		long
																																																			BgL_lastzd2matchzd2_12289;
																																																		obj_t
																																																			BgL_iportz00_12288;
																																																		BgL_iportz00_12288
																																																			=
																																																			BgL_iportz00_9427;
																																																		BgL_lastzd2matchzd2_12289
																																																			=
																																																			BgL_newzd2matchzd2_9431;
																																																		BgL_forwardz00_12290
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_9429);
																																																		BgL_bufposz00_12292
																																																			=
																																																			BgL_bufposz00_9430;
																																																		BgL_bufposz00_9401
																																																			=
																																																			BgL_bufposz00_12292;
																																																		BgL_forwardz00_9400
																																																			=
																																																			BgL_forwardz00_12290;
																																																		BgL_lastzd2matchzd2_9399
																																																			=
																																																			BgL_lastzd2matchzd2_12289;
																																																		BgL_iportz00_9398
																																																			=
																																																			BgL_iportz00_12288;
																																																		goto
																																																			BgL_statezd29zd21069z00_9336;
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 110 */
																																																		BgL_matchz00_9649
																																																			=
																																																			BgL_newzd2matchzd2_9431;
																																																	}
																																															}
																																													}
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Unsafe/url.scm 110 */
																																						if (
																																							((long) (BgL_curz00_9397) == 47L))
																																							{
																																								long
																																									BgL_bufposz00_12301;
																																								long
																																									BgL_forwardz00_12299;
																																								long
																																									BgL_lastzd2matchzd2_12298;
																																								obj_t
																																									BgL_iportz00_12297;
																																								BgL_iportz00_12297
																																									=
																																									BgL_iportz00_9390;
																																								BgL_lastzd2matchzd2_12298
																																									=
																																									BgL_newzd2matchzd2_9394;
																																								BgL_forwardz00_12299
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_9392);
																																								BgL_bufposz00_12301
																																									=
																																									BgL_bufposz00_9393;
																																								BgL_bufposz00_9401
																																									=
																																									BgL_bufposz00_12301;
																																								BgL_forwardz00_9400
																																									=
																																									BgL_forwardz00_12299;
																																								BgL_lastzd2matchzd2_9399
																																									=
																																									BgL_lastzd2matchzd2_12298;
																																								BgL_iportz00_9398
																																									=
																																									BgL_iportz00_12297;
																																								goto
																																									BgL_statezd29zd21069z00_9336;
																																							}
																																						else
																																							{	/* Unsafe/url.scm 110 */
																																								if (((long) (BgL_curz00_9397) == 37L))
																																									{	/* Unsafe/url.scm 110 */
																																										BgL_iportz00_9380
																																											=
																																											BgL_iportz00_9390;
																																										BgL_lastzd2matchzd2_9381
																																											=
																																											BgL_newzd2matchzd2_9394;
																																										BgL_forwardz00_9382
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_9392);
																																										BgL_bufposz00_9383
																																											=
																																											BgL_bufposz00_9393;
																																									BgL_statezd220zd21080z00_9334:
																																										{	/* Unsafe/url.scm 110 */
																																											long
																																												BgL_newzd2matchzd2_9384;
																																											{	/* Unsafe/url.scm 110 */
																																												obj_t
																																													BgL_tmpz00_12305;
																																												BgL_tmpz00_12305
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_9380);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_12305,
																																													BgL_forwardz00_9382);
																																											}
																																											BgL_newzd2matchzd2_9384
																																												=
																																												2L;
																																											if ((BgL_forwardz00_9382 == BgL_bufposz00_9383))
																																												{	/* Unsafe/url.scm 110 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_9380)))
																																														{	/* Unsafe/url.scm 110 */
																																															long
																																																BgL_arg1785z00_9385;
																																															long
																																																BgL_arg1786z00_9386;
																																															{	/* Unsafe/url.scm 110 */
																																																obj_t
																																																	BgL_tmpz00_12313;
																																																BgL_tmpz00_12313
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_9380);
																																																BgL_arg1785z00_9385
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_12313);
																																															}
																																															{	/* Unsafe/url.scm 110 */
																																																obj_t
																																																	BgL_tmpz00_12316;
																																																BgL_tmpz00_12316
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_9380);
																																																BgL_arg1786z00_9386
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_12316);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_12320;
																																																long
																																																	BgL_forwardz00_12319;
																																																BgL_forwardz00_12319
																																																	=
																																																	BgL_arg1785z00_9385;
																																																BgL_bufposz00_12320
																																																	=
																																																	BgL_arg1786z00_9386;
																																																BgL_bufposz00_9383
																																																	=
																																																	BgL_bufposz00_12320;
																																																BgL_forwardz00_9382
																																																	=
																																																	BgL_forwardz00_12319;
																																																goto
																																																	BgL_statezd220zd21080z00_9334;
																																															}
																																														}
																																													else
																																														{	/* Unsafe/url.scm 110 */
																																															BgL_matchz00_9649
																																																=
																																																BgL_newzd2matchzd2_9384;
																																														}
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													int
																																														BgL_curz00_9387;
																																													{	/* Unsafe/url.scm 110 */
																																														obj_t
																																															BgL_tmpz00_12321;
																																														BgL_tmpz00_12321
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_9380);
																																														BgL_curz00_9387
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_12321,
																																															BgL_forwardz00_9382);
																																													}
																																													{	/* Unsafe/url.scm 110 */

																																														if (((long) (BgL_curz00_9387) == 58L))
																																															{	/* Unsafe/url.scm 110 */
																																																long
																																																	BgL_arg1788z00_9388;
																																																BgL_arg1788z00_9388
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_9382);
																																																{	/* Unsafe/url.scm 110 */
																																																	long
																																																		BgL_newzd2matchzd2_9389;
																																																	{	/* Unsafe/url.scm 110 */
																																																		obj_t
																																																			BgL_tmpz00_12328;
																																																		BgL_tmpz00_12328
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9380);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_12328,
																																																			BgL_arg1788z00_9388);
																																																	}
																																																	BgL_newzd2matchzd2_9389
																																																		=
																																																		1L;
																																																	BgL_matchz00_9649
																																																		=
																																																		BgL_newzd2matchzd2_9389;
																																															}}
																																														else
																																															{	/* Unsafe/url.scm 110 */
																																																bool_t
																																																	BgL_test4678z00_12331;
																																																{	/* Unsafe/url.scm 110 */
																																																	bool_t
																																																		BgL_test4679z00_12332;
																																																	if (((long) (BgL_curz00_9387) >= 48L))
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4679z00_12332
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9387)
																																																				<
																																																				58L);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4679z00_12332
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																	if (BgL_test4679z00_12332)
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4678z00_12331
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			bool_t
																																																				BgL_test4681z00_12338;
																																																			if (((long) (BgL_curz00_9387) >= 65L))
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4681z00_12338
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9387)
																																																						<
																																																						71L);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4681z00_12338
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test4681z00_12338)
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4678z00_12331
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					if (((long) (BgL_curz00_9387) >= 97L))
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4678z00_12331
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9387)
																																																								<
																																																								103L);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4678z00_12331
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																				}
																																																		}
																																																}
																																																if (BgL_test4678z00_12331)
																																																	{	/* Unsafe/url.scm 110 */
																																																		BgL_iportz00_9544
																																																			=
																																																			BgL_iportz00_9380;
																																																		BgL_lastzd2matchzd2_9545
																																																			=
																																																			BgL_newzd2matchzd2_9384;
																																																		BgL_forwardz00_9546
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_9382);
																																																		BgL_bufposz00_9547
																																																			=
																																																			BgL_bufposz00_9383;
																																																	BgL_statezd223zd21083z00_9350:
																																																		{	/* Unsafe/url.scm 110 */
																																																			long
																																																				BgL_newzd2matchzd2_9548;
																																																			{	/* Unsafe/url.scm 110 */
																																																				obj_t
																																																					BgL_tmpz00_12349;
																																																				BgL_tmpz00_12349
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_9544);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_12349,
																																																					BgL_forwardz00_9546);
																																																			}
																																																			BgL_newzd2matchzd2_9548
																																																				=
																																																				2L;
																																																			if ((BgL_forwardz00_9546 == BgL_bufposz00_9547))
																																																				{	/* Unsafe/url.scm 110 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_9544)))
																																																						{	/* Unsafe/url.scm 110 */
																																																							long
																																																								BgL_arg2049z00_9549;
																																																							long
																																																								BgL_arg2050z00_9550;
																																																							{	/* Unsafe/url.scm 110 */
																																																								obj_t
																																																									BgL_tmpz00_12357;
																																																								BgL_tmpz00_12357
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_9544);
																																																								BgL_arg2049z00_9549
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_12357);
																																																							}
																																																							{	/* Unsafe/url.scm 110 */
																																																								obj_t
																																																									BgL_tmpz00_12360;
																																																								BgL_tmpz00_12360
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_9544);
																																																								BgL_arg2050z00_9550
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_12360);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_12364;
																																																								long
																																																									BgL_forwardz00_12363;
																																																								BgL_forwardz00_12363
																																																									=
																																																									BgL_arg2049z00_9549;
																																																								BgL_bufposz00_12364
																																																									=
																																																									BgL_arg2050z00_9550;
																																																								BgL_bufposz00_9547
																																																									=
																																																									BgL_bufposz00_12364;
																																																								BgL_forwardz00_9546
																																																									=
																																																									BgL_forwardz00_12363;
																																																								goto
																																																									BgL_statezd223zd21083z00_9350;
																																																							}
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_matchz00_9649
																																																								=
																																																								BgL_newzd2matchzd2_9548;
																																																						}
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					int
																																																						BgL_curz00_9551;
																																																					{	/* Unsafe/url.scm 110 */
																																																						obj_t
																																																							BgL_tmpz00_12365;
																																																						BgL_tmpz00_12365
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_9544);
																																																						BgL_curz00_9551
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_12365,
																																																							BgL_forwardz00_9546);
																																																					}
																																																					{	/* Unsafe/url.scm 110 */

																																																						if (((long) (BgL_curz00_9551) == 58L))
																																																							{	/* Unsafe/url.scm 110 */
																																																								long
																																																									BgL_arg2052z00_9552;
																																																								BgL_arg2052z00_9552
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_9546);
																																																								{	/* Unsafe/url.scm 110 */
																																																									long
																																																										BgL_newzd2matchzd2_9553;
																																																									{	/* Unsafe/url.scm 110 */
																																																										obj_t
																																																											BgL_tmpz00_12372;
																																																										BgL_tmpz00_12372
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_9544);
																																																										RGC_STOP_MATCH
																																																											(BgL_tmpz00_12372,
																																																											BgL_arg2052z00_9552);
																																																									}
																																																									BgL_newzd2matchzd2_9553
																																																										=
																																																										1L;
																																																									BgL_matchz00_9649
																																																										=
																																																										BgL_newzd2matchzd2_9553;
																																																							}}
																																																						else
																																																							{	/* Unsafe/url.scm 110 */
																																																								bool_t
																																																									BgL_test4687z00_12375;
																																																								{	/* Unsafe/url.scm 110 */
																																																									bool_t
																																																										BgL_test4688z00_12376;
																																																									if (((long) (BgL_curz00_9551) >= 48L))
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4688z00_12376
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9551)
																																																												<
																																																												58L);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4688z00_12376
																																																												=
																																																												(
																																																												(bool_t)
																																																												0);
																																																										}
																																																									if (BgL_test4688z00_12376)
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4687z00_12375
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											bool_t
																																																												BgL_test4690z00_12382;
																																																											if (((long) (BgL_curz00_9551) >= 65L))
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4690z00_12382
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9551)
																																																														<
																																																														71L);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4690z00_12382
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test4690z00_12382)
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4687z00_12375
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													if (((long) (BgL_curz00_9551) >= 97L))
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4687z00_12375
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9551)
																																																																<
																																																																103L);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4687z00_12375
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																												}
																																																										}
																																																								}
																																																								if (BgL_test4687z00_12375)
																																																									{
																																																										long
																																																											BgL_bufposz00_12397;
																																																										long
																																																											BgL_forwardz00_12395;
																																																										long
																																																											BgL_lastzd2matchzd2_12394;
																																																										obj_t
																																																											BgL_iportz00_12393;
																																																										BgL_iportz00_12393
																																																											=
																																																											BgL_iportz00_9544;
																																																										BgL_lastzd2matchzd2_12394
																																																											=
																																																											BgL_newzd2matchzd2_9548;
																																																										BgL_forwardz00_12395
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_9546);
																																																										BgL_bufposz00_12397
																																																											=
																																																											BgL_bufposz00_9547;
																																																										BgL_bufposz00_9393
																																																											=
																																																											BgL_bufposz00_12397;
																																																										BgL_forwardz00_9392
																																																											=
																																																											BgL_forwardz00_12395;
																																																										BgL_lastzd2matchzd2_9391
																																																											=
																																																											BgL_lastzd2matchzd2_12394;
																																																										BgL_iportz00_9390
																																																											=
																																																											BgL_iportz00_12393;
																																																										goto
																																																											BgL_statezd219zd21079z00_9335;
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 110 */
																																																										bool_t
																																																											BgL_test4693z00_12398;
																																																										{	/* Unsafe/url.scm 110 */
																																																											bool_t
																																																												BgL_test4694z00_12399;
																																																											if (((long) (BgL_curz00_9551) >= 47L))
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4694z00_12399
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9551)
																																																														<
																																																														59L);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4694z00_12399
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test4694z00_12399)
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4693z00_12398
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													bool_t
																																																														BgL_test4696z00_12405;
																																																													if (((long) (BgL_curz00_9551) >= 64L))
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4696z00_12405
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9551)
																																																																<
																																																																71L);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4696z00_12405
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test4696z00_12405)
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4693z00_12398
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															if (((long) (BgL_curz00_9551) >= 97L))
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4693z00_12398
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_9551)
																																																																		<
																																																																		103L);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4693z00_12398
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																														}
																																																												}
																																																										}
																																																										if (BgL_test4693z00_12398)
																																																											{	/* Unsafe/url.scm 110 */
																																																												BgL_matchz00_9649
																																																													=
																																																													BgL_newzd2matchzd2_9548;
																																																											}
																																																										else
																																																											{
																																																												long
																																																													BgL_bufposz00_12420;
																																																												long
																																																													BgL_forwardz00_12418;
																																																												long
																																																													BgL_lastzd2matchzd2_12417;
																																																												obj_t
																																																													BgL_iportz00_12416;
																																																												BgL_iportz00_12416
																																																													=
																																																													BgL_iportz00_9544;
																																																												BgL_lastzd2matchzd2_12417
																																																													=
																																																													BgL_newzd2matchzd2_9548;
																																																												BgL_forwardz00_12418
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_9546);
																																																												BgL_bufposz00_12420
																																																													=
																																																													BgL_bufposz00_9547;
																																																												BgL_bufposz00_9517
																																																													=
																																																													BgL_bufposz00_12420;
																																																												BgL_forwardz00_9516
																																																													=
																																																													BgL_forwardz00_12418;
																																																												BgL_lastzd2matchzd2_9515
																																																													=
																																																													BgL_lastzd2matchzd2_12417;
																																																												BgL_iportz00_9514
																																																													=
																																																													BgL_iportz00_12416;
																																																												goto
																																																													BgL_statezd216zd21076z00_9347;
																																																											}
																																																									}
																																																							}
																																																					}
																																																				}
																																																		}
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 110 */
																																																		bool_t
																																																			BgL_test4699z00_12422;
																																																		{	/* Unsafe/url.scm 110 */
																																																			bool_t
																																																				BgL_test4700z00_12423;
																																																			if (((long) (BgL_curz00_9387) >= 47L))
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4700z00_12423
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9387)
																																																						<
																																																						59L);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4700z00_12423
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test4700z00_12423)
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4699z00_12422
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					bool_t
																																																						BgL_test4702z00_12429;
																																																					if (((long) (BgL_curz00_9387) >= 64L))
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4702z00_12429
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9387)
																																																								<
																																																								71L);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4702z00_12429
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test4702z00_12429)
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4699z00_12422
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							if (((long) (BgL_curz00_9387) >= 97L))
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4699z00_12422
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9387)
																																																										<
																																																										103L);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4699z00_12422
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																						}
																																																				}
																																																		}
																																																		if (BgL_test4699z00_12422)
																																																			{	/* Unsafe/url.scm 110 */
																																																				BgL_matchz00_9649
																																																					=
																																																					BgL_newzd2matchzd2_9384;
																																																			}
																																																		else
																																																			{
																																																				long
																																																					BgL_bufposz00_12444;
																																																				long
																																																					BgL_forwardz00_12442;
																																																				long
																																																					BgL_lastzd2matchzd2_12441;
																																																				obj_t
																																																					BgL_iportz00_12440;
																																																				BgL_iportz00_12440
																																																					=
																																																					BgL_iportz00_9380;
																																																				BgL_lastzd2matchzd2_12441
																																																					=
																																																					BgL_newzd2matchzd2_9384;
																																																				BgL_forwardz00_12442
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_9382);
																																																				BgL_bufposz00_12444
																																																					=
																																																					BgL_bufposz00_9383;
																																																				BgL_bufposz00_9517
																																																					=
																																																					BgL_bufposz00_12444;
																																																				BgL_forwardz00_9516
																																																					=
																																																					BgL_forwardz00_12442;
																																																				BgL_lastzd2matchzd2_9515
																																																					=
																																																					BgL_lastzd2matchzd2_12441;
																																																				BgL_iportz00_9514
																																																					=
																																																					BgL_iportz00_12440;
																																																				goto
																																																					BgL_statezd216zd21076z00_9347;
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Unsafe/url.scm 110 */
																																										bool_t
																																											BgL_test4705z00_12446;
																																										{	/* Unsafe/url.scm 110 */
																																											bool_t
																																												BgL_test4706z00_12447;
																																											if (((long) (BgL_curz00_9397) == 33L))
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4706z00_12447
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4706z00_12447
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_9397)
																																														==
																																														32L);
																																												}
																																											if (BgL_test4706z00_12447)
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4705z00_12446
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													if (((long) (BgL_curz00_9397) == 36L))
																																														{	/* Unsafe/url.scm 110 */
																																															BgL_test4705z00_12446
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/url.scm 110 */
																																															bool_t
																																																BgL_test4709z00_12456;
																																															if (((long) (BgL_curz00_9397) >= 38L))
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4709z00_12456
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_9397)
																																																		<
																																																		47L);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4709z00_12456
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test4709z00_12456)
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4705z00_12446
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	bool_t
																																																		BgL_test4711z00_12462;
																																																	if (((long) (BgL_curz00_9397) >= 48L))
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4711z00_12462
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9397)
																																																				<
																																																				58L);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4711z00_12462
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																	if (BgL_test4711z00_12462)
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4705z00_12446
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			if (((long) (BgL_curz00_9397) == 59L))
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4705z00_12446
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					if (((long) (BgL_curz00_9397) == 61L))
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4705z00_12446
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							bool_t
																																																								BgL_test4715z00_12474;
																																																							if (((long) (BgL_curz00_9397) >= 65L))
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4715z00_12474
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9397)
																																																										<
																																																										91L);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4715z00_12474
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test4715z00_12474)
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4705z00_12446
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									if (((long) (BgL_curz00_9397) == 95L))
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4705z00_12446
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											bool_t
																																																												BgL_test4718z00_12483;
																																																											if (((long) (BgL_curz00_9397) >= 97L))
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4718z00_12483
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9397)
																																																														<
																																																														123L);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4718z00_12483
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test4718z00_12483)
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4705z00_12446
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													if (((long) (BgL_curz00_9397) == 124L))
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4705z00_12446
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4705z00_12446
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9397)
																																																																==
																																																																126L);
																																										}}}}}}}}}}}
																																										if (BgL_test4705z00_12446)
																																											{
																																												long
																																													BgL_forwardz00_12495;
																																												long
																																													BgL_lastzd2matchzd2_12494;
																																												BgL_lastzd2matchzd2_12494
																																													=
																																													BgL_newzd2matchzd2_9394;
																																												BgL_forwardz00_12495
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_9392);
																																												BgL_forwardz00_9392
																																													=
																																													BgL_forwardz00_12495;
																																												BgL_lastzd2matchzd2_9391
																																													=
																																													BgL_lastzd2matchzd2_12494;
																																												goto
																																													BgL_statezd219zd21079z00_9335;
																																											}
																																										else
																																											{
																																												long
																																													BgL_bufposz00_12501;
																																												long
																																													BgL_forwardz00_12499;
																																												long
																																													BgL_lastzd2matchzd2_12498;
																																												obj_t
																																													BgL_iportz00_12497;
																																												BgL_iportz00_12497
																																													=
																																													BgL_iportz00_9390;
																																												BgL_lastzd2matchzd2_12498
																																													=
																																													BgL_newzd2matchzd2_9394;
																																												BgL_forwardz00_12499
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_9392);
																																												BgL_bufposz00_12501
																																													=
																																													BgL_bufposz00_9393;
																																												BgL_bufposz00_9517
																																													=
																																													BgL_bufposz00_12501;
																																												BgL_forwardz00_9516
																																													=
																																													BgL_forwardz00_12499;
																																												BgL_lastzd2matchzd2_9515
																																													=
																																													BgL_lastzd2matchzd2_12498;
																																												BgL_iportz00_9514
																																													=
																																													BgL_iportz00_12497;
																																												goto
																																													BgL_statezd216zd21076z00_9347;
																																											}
																																									}
																																							}
																																					}
																																			}
																																	}
																															}
																														}
																												}
																											}
																										else
																											{	/* Unsafe/url.scm 110 */
																												bool_t
																													BgL_test4721z00_12503;
																												switch ((long)
																													(BgL_curz00_9531))
																													{
																													case 32L:

																														BgL_test4721z00_12503 = ((bool_t) 1);
																														break;
																													case 47L:

																														BgL_test4721z00_12503 = ((bool_t) 1);
																														break;
																													case 58L:

																														BgL_test4721z00_12503 = ((bool_t) 1);
																														break;
																													default:
																														BgL_test4721z00_12503 = ((long) (BgL_curz00_9531) == 64L);
																													}
																												if (BgL_test4721z00_12503)
																													{	/* Unsafe/url.scm 110 */
																														BgL_matchz00_9649 =
																															BgL_newzd2matchzd2_9528;
																													}
																												else
																													{
																														long
																															BgL_bufposz00_12512;
																														long
																															BgL_forwardz00_12510;
																														long
																															BgL_lastzd2matchzd2_12509;
																														obj_t
																															BgL_iportz00_12508;
																														BgL_iportz00_12508 =
																															BgL_iportz00_9524;
																														BgL_lastzd2matchzd2_12509
																															=
																															BgL_newzd2matchzd2_9528;
																														BgL_forwardz00_12510
																															=
																															(1L +
																															BgL_forwardz00_9526);
																														BgL_bufposz00_12512
																															=
																															BgL_bufposz00_9527;
																														BgL_bufposz00_9517 =
																															BgL_bufposz00_12512;
																														BgL_forwardz00_9516
																															=
																															BgL_forwardz00_12510;
																														BgL_lastzd2matchzd2_9515
																															=
																															BgL_lastzd2matchzd2_12509;
																														BgL_iportz00_9514 =
																															BgL_iportz00_12508;
																														goto
																															BgL_statezd216zd21076z00_9347;
																													}
																											}
																									}
																							}
																						}
																				}
																			}
																		else
																			{	/* Unsafe/url.scm 110 */
																				if (((long) (BgL_curz00_9469) == 58L))
																					{	/* Unsafe/url.scm 110 */
																						long BgL_arg1947z00_9470;

																						BgL_arg1947z00_9470 =
																							(1L + BgL_forwardz00_9464);
																						{	/* Unsafe/url.scm 110 */
																							long BgL_newzd2matchzd2_9471;

																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_12518;

																								BgL_tmpz00_12518 =
																									((obj_t) BgL_iportz00_9462);
																								RGC_STOP_MATCH(BgL_tmpz00_12518,
																									BgL_arg1947z00_9470);
																							}
																							BgL_newzd2matchzd2_9471 = 1L;
																							BgL_matchz00_9649 =
																								BgL_newzd2matchzd2_9471;
																					}}
																				else
																					{	/* Unsafe/url.scm 110 */
																						bool_t BgL_test4723z00_12521;

																						switch ((long) (BgL_curz00_9469))
																							{
																							case 47L:

																								BgL_test4723z00_12521 =
																									((bool_t) 1);
																								break;
																							case 58L:

																								BgL_test4723z00_12521 =
																									((bool_t) 1);
																								break;
																							case 62L:

																								BgL_test4723z00_12521 =
																									((bool_t) 1);
																								break;
																							default:
																								BgL_test4723z00_12521 =
																									(
																									(long) (BgL_curz00_9469) ==
																									64L);
																							}
																						if (BgL_test4723z00_12521)
																							{	/* Unsafe/url.scm 110 */
																								BgL_matchz00_9649 =
																									BgL_newzd2matchzd2_9466;
																							}
																						else
																							{
																								long BgL_bufposz00_12530;
																								long BgL_forwardz00_12528;
																								long BgL_lastzd2matchzd2_12527;
																								obj_t BgL_iportz00_12526;

																								BgL_iportz00_12526 =
																									BgL_iportz00_9462;
																								BgL_lastzd2matchzd2_12527 =
																									BgL_newzd2matchzd2_9466;
																								BgL_forwardz00_12528 =
																									(1L + BgL_forwardz00_9464);
																								BgL_bufposz00_12530 =
																									BgL_bufposz00_9465;
																								BgL_bufposz00_9517 =
																									BgL_bufposz00_12530;
																								BgL_forwardz00_9516 =
																									BgL_forwardz00_12528;
																								BgL_lastzd2matchzd2_9515 =
																									BgL_lastzd2matchzd2_12527;
																								BgL_iportz00_9514 =
																									BgL_iportz00_12526;
																								goto
																									BgL_statezd216zd21076z00_9347;
																							}
																					}
																			}
																	}
																}
														}
													}
												else
													{	/* Unsafe/url.scm 110 */
														if (((long) (BgL_curz00_9379) == 58L))
															{	/* Unsafe/url.scm 110 */
																BgL_iportz00_9593 = BgL_iportz00_9373;
																BgL_lastzd2matchzd2_9594 =
																	BgL_lastzd2matchzd2_9374;
																BgL_forwardz00_9595 =
																	(1L + BgL_forwardz00_9375);
																BgL_bufposz00_9596 = BgL_bufposz00_9376;
															BgL_statezd26zd21066z00_9356:
																{	/* Unsafe/url.scm 110 */
																	long BgL_newzd2matchzd2_9597;

																	{	/* Unsafe/url.scm 110 */
																		obj_t BgL_tmpz00_12535;

																		BgL_tmpz00_12535 =
																			((obj_t) BgL_iportz00_9593);
																		RGC_STOP_MATCH(BgL_tmpz00_12535,
																			BgL_forwardz00_9595);
																	}
																	BgL_newzd2matchzd2_9597 = 5L;
																	if (
																		(BgL_forwardz00_9595 == BgL_bufposz00_9596))
																		{	/* Unsafe/url.scm 110 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_9593)))
																				{	/* Unsafe/url.scm 110 */
																					long BgL_arg2224z00_9598;
																					long BgL_arg2225z00_9599;

																					{	/* Unsafe/url.scm 110 */
																						obj_t BgL_tmpz00_12543;

																						BgL_tmpz00_12543 =
																							((obj_t) BgL_iportz00_9593);
																						BgL_arg2224z00_9598 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_12543);
																					}
																					{	/* Unsafe/url.scm 110 */
																						obj_t BgL_tmpz00_12546;

																						BgL_tmpz00_12546 =
																							((obj_t) BgL_iportz00_9593);
																						BgL_arg2225z00_9599 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_12546);
																					}
																					{
																						long BgL_bufposz00_12550;
																						long BgL_forwardz00_12549;

																						BgL_forwardz00_12549 =
																							BgL_arg2224z00_9598;
																						BgL_bufposz00_12550 =
																							BgL_arg2225z00_9599;
																						BgL_bufposz00_9596 =
																							BgL_bufposz00_12550;
																						BgL_forwardz00_9595 =
																							BgL_forwardz00_12549;
																						goto BgL_statezd26zd21066z00_9356;
																					}
																				}
																			else
																				{	/* Unsafe/url.scm 110 */
																					BgL_matchz00_9649 =
																						BgL_newzd2matchzd2_9597;
																				}
																		}
																	else
																		{	/* Unsafe/url.scm 110 */
																			int BgL_curz00_9600;

																			{	/* Unsafe/url.scm 110 */
																				obj_t BgL_tmpz00_12551;

																				BgL_tmpz00_12551 =
																					((obj_t) BgL_iportz00_9593);
																				BgL_curz00_9600 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_12551,
																					BgL_forwardz00_9595);
																			}
																			{	/* Unsafe/url.scm 110 */

																				if (((long) (BgL_curz00_9600) == 64L))
																					{
																						long BgL_bufposz00_12561;
																						long BgL_forwardz00_12559;
																						long BgL_lastzd2matchzd2_12558;
																						obj_t BgL_iportz00_12557;

																						BgL_iportz00_12557 =
																							BgL_iportz00_9593;
																						BgL_lastzd2matchzd2_12558 =
																							BgL_newzd2matchzd2_9597;
																						BgL_forwardz00_12559 =
																							(1L + BgL_forwardz00_9595);
																						BgL_bufposz00_12561 =
																							BgL_bufposz00_9596;
																						BgL_bufposz00_9415 =
																							BgL_bufposz00_12561;
																						BgL_forwardz00_9414 =
																							BgL_forwardz00_12559;
																						BgL_lastzd2matchzd2_9413 =
																							BgL_lastzd2matchzd2_12558;
																						BgL_iportz00_9412 =
																							BgL_iportz00_12557;
																						goto BgL_statezd212zd21072z00_9337;
																					}
																				else
																					{	/* Unsafe/url.scm 110 */
																						if (
																							((long) (BgL_curz00_9600) == 60L))
																							{	/* Unsafe/url.scm 110 */
																								long BgL_arg2229z00_9601;

																								BgL_arg2229z00_9601 =
																									(1L + BgL_forwardz00_9595);
																								{
																									long BgL_forwardz00_9603;
																									long BgL_bufposz00_9604;

																									BgL_forwardz00_9603 =
																										BgL_arg2229z00_9601;
																									BgL_bufposz00_9604 =
																										BgL_bufposz00_9596;
																								BgL_statezd211zd21071z00_9602:
																									if (
																										(BgL_forwardz00_9603 ==
																											BgL_bufposz00_9604))
																										{	/* Unsafe/url.scm 110 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_9593)))
																												{	/* Unsafe/url.scm 110 */
																													long
																														BgL_arg1732z00_9605;
																													long
																														BgL_arg1733z00_9606;
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_12571;
																														BgL_tmpz00_12571 =
																															((obj_t)
																															BgL_iportz00_9593);
																														BgL_arg1732z00_9605
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_12571);
																													}
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_12574;
																														BgL_tmpz00_12574 =
																															((obj_t)
																															BgL_iportz00_9593);
																														BgL_arg1733z00_9606
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_12574);
																													}
																													{
																														long
																															BgL_bufposz00_12578;
																														long
																															BgL_forwardz00_12577;
																														BgL_forwardz00_12577
																															=
																															BgL_arg1732z00_9605;
																														BgL_bufposz00_12578
																															=
																															BgL_arg1733z00_9606;
																														BgL_bufposz00_9604 =
																															BgL_bufposz00_12578;
																														BgL_forwardz00_9603
																															=
																															BgL_forwardz00_12577;
																														goto
																															BgL_statezd211zd21071z00_9602;
																													}
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_matchz00_9649 =
																														BgL_newzd2matchzd2_9597;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											int BgL_curz00_9607;

																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_12579;

																												BgL_tmpz00_12579 =
																													((obj_t)
																													BgL_iportz00_9593);
																												BgL_curz00_9607 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_12579,
																													BgL_forwardz00_9603);
																											}
																											{	/* Unsafe/url.scm 110 */

																												if (
																													((long)
																														(BgL_curz00_9607) ==
																														62L))
																													{
																														long
																															BgL_bufposz00_12589;
																														long
																															BgL_forwardz00_12587;
																														long
																															BgL_lastzd2matchzd2_12586;
																														obj_t
																															BgL_iportz00_12585;
																														BgL_iportz00_12585 =
																															BgL_iportz00_9593;
																														BgL_lastzd2matchzd2_12586
																															=
																															BgL_newzd2matchzd2_9597;
																														BgL_forwardz00_12587
																															=
																															(1L +
																															BgL_forwardz00_9603);
																														BgL_bufposz00_12589
																															=
																															BgL_bufposz00_9604;
																														BgL_bufposz00_9366 =
																															BgL_bufposz00_12589;
																														BgL_forwardz00_9365
																															=
																															BgL_forwardz00_12587;
																														BgL_lastzd2matchzd2_9364
																															=
																															BgL_lastzd2matchzd2_12586;
																														BgL_iportz00_9363 =
																															BgL_iportz00_12585;
																														goto
																															BgL_statezd214zd21074z00_9332;
																													}
																												else
																													{	/* Unsafe/url.scm 110 */
																														BgL_matchz00_9649 =
																															BgL_newzd2matchzd2_9597;
																													}
																											}
																										}
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 110 */
																								if (
																									((long) (BgL_curz00_9600) ==
																										37L))
																									{
																										long BgL_bufposz00_12597;
																										long BgL_forwardz00_12595;
																										long
																											BgL_lastzd2matchzd2_12594;
																										obj_t BgL_iportz00_12593;

																										BgL_iportz00_12593 =
																											BgL_iportz00_9593;
																										BgL_lastzd2matchzd2_12594 =
																											BgL_newzd2matchzd2_9597;
																										BgL_forwardz00_12595 =
																											(1L +
																											BgL_forwardz00_9595);
																										BgL_bufposz00_12597 =
																											BgL_bufposz00_9596;
																										BgL_bufposz00_9589 =
																											BgL_bufposz00_12597;
																										BgL_forwardz00_9588 =
																											BgL_forwardz00_12595;
																										BgL_lastzd2matchzd2_9587 =
																											BgL_lastzd2matchzd2_12594;
																										BgL_iportz00_9586 =
																											BgL_iportz00_12593;
																										goto
																											BgL_statezd210zd21070z00_9355;
																									}
																								else
																									{	/* Unsafe/url.scm 110 */
																										bool_t
																											BgL_test4733z00_12598;
																										{	/* Unsafe/url.scm 110 */
																											bool_t
																												BgL_test4734z00_12599;
																											if (((long)
																													(BgL_curz00_9600) ==
																													33L))
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4734z00_12599
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4734z00_12599
																														=
																														((long)
																														(BgL_curz00_9600) ==
																														32L);
																												}
																											if (BgL_test4734z00_12599)
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4733z00_12598
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													if (
																														((long)
																															(BgL_curz00_9600)
																															== 36L))
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4733z00_12598
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															bool_t
																																BgL_test4737z00_12608;
																															if (((long)
																																	(BgL_curz00_9600)
																																	>= 38L))
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4737z00_12608
																																		=
																																		((long)
																																		(BgL_curz00_9600)
																																		< 60L);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4737z00_12608
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test4737z00_12608)
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4733z00_12598
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	if (
																																		((long)
																																			(BgL_curz00_9600)
																																			== 61L))
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4733z00_12598
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			bool_t
																																				BgL_test4740z00_12617;
																																			if ((
																																					(long)
																																					(BgL_curz00_9600)
																																					>=
																																					65L))
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4740z00_12617
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9600)
																																						<
																																						91L);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4740z00_12617
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test4740z00_12617)
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4733z00_12598
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					if (
																																						((long) (BgL_curz00_9600) == 95L))
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4733z00_12598
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							bool_t
																																								BgL_test4743z00_12626;
																																							if (((long) (BgL_curz00_9600) >= 97L))
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4743z00_12626
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_9600)
																																										<
																																										123L);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4743z00_12626
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test4743z00_12626)
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4733z00_12598
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									if (((long) (BgL_curz00_9600) == 124L))
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4733z00_12598
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4733z00_12598
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9600)
																																												==
																																												126L);
																										}}}}}}}}}
																										if (BgL_test4733z00_12598)
																											{
																												long
																													BgL_bufposz00_12641;
																												long
																													BgL_forwardz00_12639;
																												long
																													BgL_lastzd2matchzd2_12638;
																												obj_t
																													BgL_iportz00_12637;
																												BgL_iportz00_12637 =
																													BgL_iportz00_9593;
																												BgL_lastzd2matchzd2_12638
																													=
																													BgL_newzd2matchzd2_9597;
																												BgL_forwardz00_12639 =
																													(1L +
																													BgL_forwardz00_9595);
																												BgL_bufposz00_12641 =
																													BgL_bufposz00_9596;
																												BgL_bufposz00_9401 =
																													BgL_bufposz00_12641;
																												BgL_forwardz00_9400 =
																													BgL_forwardz00_12639;
																												BgL_lastzd2matchzd2_9399
																													=
																													BgL_lastzd2matchzd2_12638;
																												BgL_iportz00_9398 =
																													BgL_iportz00_12637;
																												goto
																													BgL_statezd29zd21069z00_9336;
																											}
																										else
																											{	/* Unsafe/url.scm 110 */
																												BgL_matchz00_9649 =
																													BgL_newzd2matchzd2_9597;
																											}
																									}
																							}
																					}
																			}
																		}
																}
															}
														else
															{	/* Unsafe/url.scm 110 */
																if (((long) (BgL_curz00_9379) == 47L))
																	{	/* Unsafe/url.scm 110 */
																		BgL_iportz00_9554 = BgL_iportz00_9373;
																		BgL_lastzd2matchzd2_9555 =
																			BgL_lastzd2matchzd2_9374;
																		BgL_forwardz00_9556 =
																			(1L + BgL_forwardz00_9375);
																		BgL_bufposz00_9557 = BgL_bufposz00_9376;
																	BgL_statezd25zd21065z00_9351:
																		{	/* Unsafe/url.scm 110 */
																			long BgL_newzd2matchzd2_9558;

																			{	/* Unsafe/url.scm 110 */
																				obj_t BgL_tmpz00_12646;

																				BgL_tmpz00_12646 =
																					((obj_t) BgL_iportz00_9554);
																				RGC_STOP_MATCH(BgL_tmpz00_12646,
																					BgL_forwardz00_9556);
																			}
																			BgL_newzd2matchzd2_9558 = 3L;
																			if (
																				(BgL_forwardz00_9556 ==
																					BgL_bufposz00_9557))
																				{	/* Unsafe/url.scm 110 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_9554)))
																						{	/* Unsafe/url.scm 110 */
																							long BgL_arg2068z00_9559;
																							long BgL_arg2069z00_9560;

																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_12654;

																								BgL_tmpz00_12654 =
																									((obj_t) BgL_iportz00_9554);
																								BgL_arg2068z00_9559 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_12654);
																							}
																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_12657;

																								BgL_tmpz00_12657 =
																									((obj_t) BgL_iportz00_9554);
																								BgL_arg2069z00_9560 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_12657);
																							}
																							{
																								long BgL_bufposz00_12661;
																								long BgL_forwardz00_12660;

																								BgL_forwardz00_12660 =
																									BgL_arg2068z00_9559;
																								BgL_bufposz00_12661 =
																									BgL_arg2069z00_9560;
																								BgL_bufposz00_9557 =
																									BgL_bufposz00_12661;
																								BgL_forwardz00_9556 =
																									BgL_forwardz00_12660;
																								goto
																									BgL_statezd25zd21065z00_9351;
																							}
																						}
																					else
																						{	/* Unsafe/url.scm 110 */
																							BgL_matchz00_9649 =
																								BgL_newzd2matchzd2_9558;
																						}
																				}
																			else
																				{	/* Unsafe/url.scm 110 */
																					int BgL_curz00_9561;

																					{	/* Unsafe/url.scm 110 */
																						obj_t BgL_tmpz00_12662;

																						BgL_tmpz00_12662 =
																							((obj_t) BgL_iportz00_9554);
																						BgL_curz00_9561 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_12662,
																							BgL_forwardz00_9556);
																					}
																					{	/* Unsafe/url.scm 110 */

																						if (
																							((long) (BgL_curz00_9561) == 64L))
																							{	/* Unsafe/url.scm 110 */
																								BgL_iportz00_9570 =
																									BgL_iportz00_9554;
																								BgL_lastzd2matchzd2_9571 =
																									BgL_newzd2matchzd2_9558;
																								BgL_forwardz00_9572 =
																									(1L + BgL_forwardz00_9556);
																								BgL_bufposz00_9573 =
																									BgL_bufposz00_9557;
																							BgL_statezd228zd21088z00_9353:
																								{	/* Unsafe/url.scm 110 */
																									long BgL_newzd2matchzd2_9574;

																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_12668;

																										BgL_tmpz00_12668 =
																											((obj_t)
																											BgL_iportz00_9570);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_12668,
																											BgL_forwardz00_9572);
																									}
																									BgL_newzd2matchzd2_9574 = 0L;
																									if (
																										(BgL_forwardz00_9572 ==
																											BgL_bufposz00_9573))
																										{	/* Unsafe/url.scm 110 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_9570)))
																												{	/* Unsafe/url.scm 110 */
																													long
																														BgL_arg2152z00_9575;
																													long
																														BgL_arg2153z00_9576;
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_12676;
																														BgL_tmpz00_12676 =
																															((obj_t)
																															BgL_iportz00_9570);
																														BgL_arg2152z00_9575
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_12676);
																													}
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_12679;
																														BgL_tmpz00_12679 =
																															((obj_t)
																															BgL_iportz00_9570);
																														BgL_arg2153z00_9576
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_12679);
																													}
																													{
																														long
																															BgL_bufposz00_12683;
																														long
																															BgL_forwardz00_12682;
																														BgL_forwardz00_12682
																															=
																															BgL_arg2152z00_9575;
																														BgL_bufposz00_12683
																															=
																															BgL_arg2153z00_9576;
																														BgL_bufposz00_9573 =
																															BgL_bufposz00_12683;
																														BgL_forwardz00_9572
																															=
																															BgL_forwardz00_12682;
																														goto
																															BgL_statezd228zd21088z00_9353;
																													}
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_matchz00_9649 =
																														BgL_newzd2matchzd2_9574;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											int BgL_curz00_9577;

																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_12684;

																												BgL_tmpz00_12684 =
																													((obj_t)
																													BgL_iportz00_9570);
																												BgL_curz00_9577 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_12684,
																													BgL_forwardz00_9572);
																											}
																											{	/* Unsafe/url.scm 110 */

																												if (
																													((long)
																														(BgL_curz00_9577) ==
																														64L))
																													{
																														long
																															BgL_forwardz00_12691;
																														long
																															BgL_lastzd2matchzd2_12690;
																														BgL_lastzd2matchzd2_12690
																															=
																															BgL_newzd2matchzd2_9574;
																														BgL_forwardz00_12691
																															=
																															(1L +
																															BgL_forwardz00_9572);
																														BgL_forwardz00_9572
																															=
																															BgL_forwardz00_12691;
																														BgL_lastzd2matchzd2_9571
																															=
																															BgL_lastzd2matchzd2_12690;
																														goto
																															BgL_statezd228zd21088z00_9353;
																													}
																												else
																													{	/* Unsafe/url.scm 110 */
																														if (
																															((long)
																																(BgL_curz00_9577)
																																== 60L))
																															{	/* Unsafe/url.scm 110 */
																																BgL_iportz00_9498
																																	=
																																	BgL_iportz00_9570;
																																BgL_lastzd2matchzd2_9499
																																	=
																																	BgL_newzd2matchzd2_9574;
																																BgL_forwardz00_9500
																																	=
																																	(1L +
																																	BgL_forwardz00_9572);
																																BgL_bufposz00_9501
																																	=
																																	BgL_bufposz00_9573;
																															BgL_statezd227zd21087z00_9345:
																																{	/* Unsafe/url.scm 110 */
																																	long
																																		BgL_newzd2matchzd2_9502;
																																	{	/* Unsafe/url.scm 110 */
																																		obj_t
																																			BgL_tmpz00_12696;
																																		BgL_tmpz00_12696
																																			=
																																			((obj_t)
																																			BgL_iportz00_9498);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_12696,
																																			BgL_forwardz00_9500);
																																	}
																																	BgL_newzd2matchzd2_9502
																																		= 3L;
																																	if (
																																		(BgL_forwardz00_9500
																																			==
																																			BgL_bufposz00_9501))
																																		{	/* Unsafe/url.scm 110 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_9498)))
																																				{	/* Unsafe/url.scm 110 */
																																					long
																																						BgL_arg1995z00_9503;
																																					long
																																						BgL_arg1996z00_9504;
																																					{	/* Unsafe/url.scm 110 */
																																						obj_t
																																							BgL_tmpz00_12704;
																																						BgL_tmpz00_12704
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_9498);
																																						BgL_arg1995z00_9503
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_12704);
																																					}
																																					{	/* Unsafe/url.scm 110 */
																																						obj_t
																																							BgL_tmpz00_12707;
																																						BgL_tmpz00_12707
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_9498);
																																						BgL_arg1996z00_9504
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_12707);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_12711;
																																						long
																																							BgL_forwardz00_12710;
																																						BgL_forwardz00_12710
																																							=
																																							BgL_arg1995z00_9503;
																																						BgL_bufposz00_12711
																																							=
																																							BgL_arg1996z00_9504;
																																						BgL_bufposz00_9501
																																							=
																																							BgL_bufposz00_12711;
																																						BgL_forwardz00_9500
																																							=
																																							BgL_forwardz00_12710;
																																						goto
																																							BgL_statezd227zd21087z00_9345;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_matchz00_9649
																																						=
																																						BgL_newzd2matchzd2_9502;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			int
																																				BgL_curz00_9505;
																																			{	/* Unsafe/url.scm 110 */
																																				obj_t
																																					BgL_tmpz00_12712;
																																				BgL_tmpz00_12712
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_9498);
																																				BgL_curz00_9505
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_12712,
																																					BgL_forwardz00_9500);
																																			}
																																			{	/* Unsafe/url.scm 110 */

																																				if (
																																					((long) (BgL_curz00_9505) == 62L))
																																					{	/* Unsafe/url.scm 110 */
																																						BgL_iportz00_9506
																																							=
																																							BgL_iportz00_9498;
																																						BgL_lastzd2matchzd2_9507
																																							=
																																							BgL_newzd2matchzd2_9502;
																																						BgL_forwardz00_9508
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_9500);
																																						BgL_bufposz00_9509
																																							=
																																							BgL_bufposz00_9501;
																																					BgL_statezd229zd21089z00_9346:
																																						{	/* Unsafe/url.scm 110 */
																																							long
																																								BgL_newzd2matchzd2_9510;
																																							{	/* Unsafe/url.scm 110 */
																																								obj_t
																																									BgL_tmpz00_12718;
																																								BgL_tmpz00_12718
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_9506);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_12718,
																																									BgL_forwardz00_9508);
																																							}
																																							BgL_newzd2matchzd2_9510
																																								=
																																								3L;
																																							if ((BgL_forwardz00_9508 == BgL_bufposz00_9509))
																																								{	/* Unsafe/url.scm 110 */
																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_9506)))
																																										{	/* Unsafe/url.scm 110 */
																																											long
																																												BgL_arg2004z00_9511;
																																											long
																																												BgL_arg2005z00_9512;
																																											{	/* Unsafe/url.scm 110 */
																																												obj_t
																																													BgL_tmpz00_12726;
																																												BgL_tmpz00_12726
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_9506);
																																												BgL_arg2004z00_9511
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_tmpz00_12726);
																																											}
																																											{	/* Unsafe/url.scm 110 */
																																												obj_t
																																													BgL_tmpz00_12729;
																																												BgL_tmpz00_12729
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_9506);
																																												BgL_arg2005z00_9512
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_tmpz00_12729);
																																											}
																																											{
																																												long
																																													BgL_bufposz00_12733;
																																												long
																																													BgL_forwardz00_12732;
																																												BgL_forwardz00_12732
																																													=
																																													BgL_arg2004z00_9511;
																																												BgL_bufposz00_12733
																																													=
																																													BgL_arg2005z00_9512;
																																												BgL_bufposz00_9509
																																													=
																																													BgL_bufposz00_12733;
																																												BgL_forwardz00_9508
																																													=
																																													BgL_forwardz00_12732;
																																												goto
																																													BgL_statezd229zd21089z00_9346;
																																											}
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_matchz00_9649
																																												=
																																												BgL_newzd2matchzd2_9510;
																																										}
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									int
																																										BgL_curz00_9513;
																																									{	/* Unsafe/url.scm 110 */
																																										obj_t
																																											BgL_tmpz00_12734;
																																										BgL_tmpz00_12734
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_9506);
																																										BgL_curz00_9513
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_tmpz00_12734,
																																											BgL_forwardz00_9508);
																																									}
																																									{	/* Unsafe/url.scm 110 */

																																										if (((long) (BgL_curz00_9513) == 32L))
																																											{	/* Unsafe/url.scm 110 */
																																												BgL_iportz00_9562
																																													=
																																													BgL_iportz00_9506;
																																												BgL_lastzd2matchzd2_9563
																																													=
																																													BgL_newzd2matchzd2_9510;
																																												BgL_forwardz00_9564
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_9508);
																																												BgL_bufposz00_9565
																																													=
																																													BgL_bufposz00_9509;
																																											BgL_statezd225zd21085z00_9352:
																																												{	/* Unsafe/url.scm 110 */
																																													long
																																														BgL_newzd2matchzd2_9566;
																																													{	/* Unsafe/url.scm 110 */
																																														obj_t
																																															BgL_tmpz00_12740;
																																														BgL_tmpz00_12740
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_9562);
																																														RGC_STOP_MATCH
																																															(BgL_tmpz00_12740,
																																															BgL_forwardz00_9564);
																																													}
																																													BgL_newzd2matchzd2_9566
																																														=
																																														3L;
																																													if ((BgL_forwardz00_9564 == BgL_bufposz00_9565))
																																														{	/* Unsafe/url.scm 110 */
																																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_9562)))
																																																{	/* Unsafe/url.scm 110 */
																																																	long
																																																		BgL_arg2110z00_9567;
																																																	long
																																																		BgL_arg2111z00_9568;
																																																	{	/* Unsafe/url.scm 110 */
																																																		obj_t
																																																			BgL_tmpz00_12748;
																																																		BgL_tmpz00_12748
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9562);
																																																		BgL_arg2110z00_9567
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_tmpz00_12748);
																																																	}
																																																	{	/* Unsafe/url.scm 110 */
																																																		obj_t
																																																			BgL_tmpz00_12751;
																																																		BgL_tmpz00_12751
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_9562);
																																																		BgL_arg2111z00_9568
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_tmpz00_12751);
																																																	}
																																																	{
																																																		long
																																																			BgL_bufposz00_12755;
																																																		long
																																																			BgL_forwardz00_12754;
																																																		BgL_forwardz00_12754
																																																			=
																																																			BgL_arg2110z00_9567;
																																																		BgL_bufposz00_12755
																																																			=
																																																			BgL_arg2111z00_9568;
																																																		BgL_bufposz00_9565
																																																			=
																																																			BgL_bufposz00_12755;
																																																		BgL_forwardz00_9564
																																																			=
																																																			BgL_forwardz00_12754;
																																																		goto
																																																			BgL_statezd225zd21085z00_9352;
																																																	}
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_matchz00_9649
																																																		=
																																																		BgL_newzd2matchzd2_9566;
																																																}
																																														}
																																													else
																																														{	/* Unsafe/url.scm 110 */
																																															int
																																																BgL_curz00_9569;
																																															{	/* Unsafe/url.scm 110 */
																																																obj_t
																																																	BgL_tmpz00_12756;
																																																BgL_tmpz00_12756
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_9562);
																																																BgL_curz00_9569
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_tmpz00_12756,
																																																	BgL_forwardz00_9564);
																																															}
																																															{	/* Unsafe/url.scm 110 */

																																																if (((long) (BgL_curz00_9569) == 64L))
																																																	{
																																																		long
																																																			BgL_bufposz00_12766;
																																																		long
																																																			BgL_forwardz00_12764;
																																																		long
																																																			BgL_lastzd2matchzd2_12763;
																																																		obj_t
																																																			BgL_iportz00_12762;
																																																		BgL_iportz00_12762
																																																			=
																																																			BgL_iportz00_9562;
																																																		BgL_lastzd2matchzd2_12763
																																																			=
																																																			BgL_newzd2matchzd2_9566;
																																																		BgL_forwardz00_12764
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_9564);
																																																		BgL_bufposz00_12766
																																																			=
																																																			BgL_bufposz00_9565;
																																																		BgL_bufposz00_9573
																																																			=
																																																			BgL_bufposz00_12766;
																																																		BgL_forwardz00_9572
																																																			=
																																																			BgL_forwardz00_12764;
																																																		BgL_lastzd2matchzd2_9571
																																																			=
																																																			BgL_lastzd2matchzd2_12763;
																																																		BgL_iportz00_9570
																																																			=
																																																			BgL_iportz00_12762;
																																																		goto
																																																			BgL_statezd228zd21088z00_9353;
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 110 */
																																																		if (((long) (BgL_curz00_9569) == 60L))
																																																			{
																																																				long
																																																					BgL_bufposz00_12774;
																																																				long
																																																					BgL_forwardz00_12772;
																																																				long
																																																					BgL_lastzd2matchzd2_12771;
																																																				obj_t
																																																					BgL_iportz00_12770;
																																																				BgL_iportz00_12770
																																																					=
																																																					BgL_iportz00_9562;
																																																				BgL_lastzd2matchzd2_12771
																																																					=
																																																					BgL_newzd2matchzd2_9566;
																																																				BgL_forwardz00_12772
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_9564);
																																																				BgL_bufposz00_12774
																																																					=
																																																					BgL_bufposz00_9565;
																																																				BgL_bufposz00_9501
																																																					=
																																																					BgL_bufposz00_12774;
																																																				BgL_forwardz00_9500
																																																					=
																																																					BgL_forwardz00_12772;
																																																				BgL_lastzd2matchzd2_9499
																																																					=
																																																					BgL_lastzd2matchzd2_12771;
																																																				BgL_iportz00_9498
																																																					=
																																																					BgL_iportz00_12770;
																																																				goto
																																																					BgL_statezd227zd21087z00_9345;
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 110 */
																																																				if (((long) (BgL_curz00_9569) == 58L))
																																																					{
																																																						long
																																																							BgL_bufposz00_12782;
																																																						long
																																																							BgL_forwardz00_12780;
																																																						long
																																																							BgL_lastzd2matchzd2_12779;
																																																						obj_t
																																																							BgL_iportz00_12778;
																																																						BgL_iportz00_12778
																																																							=
																																																							BgL_iportz00_9562;
																																																						BgL_lastzd2matchzd2_12779
																																																							=
																																																							BgL_newzd2matchzd2_9566;
																																																						BgL_forwardz00_12780
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_9564);
																																																						BgL_bufposz00_12782
																																																							=
																																																							BgL_bufposz00_9565;
																																																						BgL_bufposz00_9401
																																																							=
																																																							BgL_bufposz00_12782;
																																																						BgL_forwardz00_9400
																																																							=
																																																							BgL_forwardz00_12780;
																																																						BgL_lastzd2matchzd2_9399
																																																							=
																																																							BgL_lastzd2matchzd2_12779;
																																																						BgL_iportz00_9398
																																																							=
																																																							BgL_iportz00_12778;
																																																						goto
																																																							BgL_statezd29zd21069z00_9336;
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 110 */
																																																						if (((long) (BgL_curz00_9569) == 37L))
																																																							{	/* Unsafe/url.scm 110 */
																																																								BgL_iportz00_9578
																																																									=
																																																									BgL_iportz00_9562;
																																																								BgL_lastzd2matchzd2_9579
																																																									=
																																																									BgL_newzd2matchzd2_9566;
																																																								BgL_forwardz00_9580
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_9564);
																																																								BgL_bufposz00_9581
																																																									=
																																																									BgL_bufposz00_9565;
																																																							BgL_statezd226zd21086z00_9354:
																																																								{	/* Unsafe/url.scm 110 */
																																																									long
																																																										BgL_newzd2matchzd2_9582;
																																																									{	/* Unsafe/url.scm 110 */
																																																										obj_t
																																																											BgL_tmpz00_12786;
																																																										BgL_tmpz00_12786
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_9578);
																																																										RGC_STOP_MATCH
																																																											(BgL_tmpz00_12786,
																																																											BgL_forwardz00_9580);
																																																									}
																																																									BgL_newzd2matchzd2_9582
																																																										=
																																																										3L;
																																																									if ((BgL_forwardz00_9580 == BgL_bufposz00_9581))
																																																										{	/* Unsafe/url.scm 110 */
																																																											if (rgc_fill_buffer(((obj_t) BgL_iportz00_9578)))
																																																												{	/* Unsafe/url.scm 110 */
																																																													long
																																																														BgL_arg2194z00_9583;
																																																													long
																																																														BgL_arg2195z00_9584;
																																																													{	/* Unsafe/url.scm 110 */
																																																														obj_t
																																																															BgL_tmpz00_12794;
																																																														BgL_tmpz00_12794
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_9578);
																																																														BgL_arg2194z00_9583
																																																															=
																																																															RGC_BUFFER_FORWARD
																																																															(BgL_tmpz00_12794);
																																																													}
																																																													{	/* Unsafe/url.scm 110 */
																																																														obj_t
																																																															BgL_tmpz00_12797;
																																																														BgL_tmpz00_12797
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_9578);
																																																														BgL_arg2195z00_9584
																																																															=
																																																															RGC_BUFFER_BUFPOS
																																																															(BgL_tmpz00_12797);
																																																													}
																																																													{
																																																														long
																																																															BgL_bufposz00_12801;
																																																														long
																																																															BgL_forwardz00_12800;
																																																														BgL_forwardz00_12800
																																																															=
																																																															BgL_arg2194z00_9583;
																																																														BgL_bufposz00_12801
																																																															=
																																																															BgL_arg2195z00_9584;
																																																														BgL_bufposz00_9581
																																																															=
																																																															BgL_bufposz00_12801;
																																																														BgL_forwardz00_9580
																																																															=
																																																															BgL_forwardz00_12800;
																																																														goto
																																																															BgL_statezd226zd21086z00_9354;
																																																													}
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_matchz00_9649
																																																														=
																																																														BgL_newzd2matchzd2_9582;
																																																												}
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											int
																																																												BgL_curz00_9585;
																																																											{	/* Unsafe/url.scm 110 */
																																																												obj_t
																																																													BgL_tmpz00_12802;
																																																												BgL_tmpz00_12802
																																																													=
																																																													(
																																																													(obj_t)
																																																													BgL_iportz00_9578);
																																																												BgL_curz00_9585
																																																													=
																																																													RGC_BUFFER_GET_CHAR
																																																													(BgL_tmpz00_12802,
																																																													BgL_forwardz00_9580);
																																																											}
																																																											{	/* Unsafe/url.scm 110 */

																																																												{	/* Unsafe/url.scm 110 */
																																																													bool_t
																																																														BgL_test4768z00_12805;
																																																													{	/* Unsafe/url.scm 110 */
																																																														bool_t
																																																															BgL_test4769z00_12806;
																																																														if (((long) (BgL_curz00_9585) >= 48L))
																																																															{	/* Unsafe/url.scm 110 */
																																																																BgL_test4769z00_12806
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_9585)
																																																																	<
																																																																	58L);
																																																															}
																																																														else
																																																															{	/* Unsafe/url.scm 110 */
																																																																BgL_test4769z00_12806
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	0);
																																																															}
																																																														if (BgL_test4769z00_12806)
																																																															{	/* Unsafe/url.scm 110 */
																																																																BgL_test4768z00_12805
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Unsafe/url.scm 110 */
																																																																bool_t
																																																																	BgL_test4771z00_12812;
																																																																if (((long) (BgL_curz00_9585) >= 65L))
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		BgL_test4771z00_12812
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_9585)
																																																																			<
																																																																			71L);
																																																																	}
																																																																else
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		BgL_test4771z00_12812
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			0);
																																																																	}
																																																																if (BgL_test4771z00_12812)
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		BgL_test4768z00_12805
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		if (((long) (BgL_curz00_9585) >= 97L))
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				BgL_test4768z00_12805
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_9585)
																																																																					<
																																																																					103L);
																																																																			}
																																																																		else
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				BgL_test4768z00_12805
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					0);
																																																																			}
																																																																	}
																																																															}
																																																													}
																																																													if (BgL_test4768z00_12805)
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_iportz00_9472
																																																																=
																																																																BgL_iportz00_9578;
																																																															BgL_lastzd2matchzd2_9473
																																																																=
																																																																BgL_newzd2matchzd2_9582;
																																																															BgL_forwardz00_9474
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_9580);
																																																															BgL_bufposz00_9475
																																																																=
																																																																BgL_bufposz00_9581;
																																																														BgL_statezd230zd21090z00_9342:
																																																															{	/* Unsafe/url.scm 110 */
																																																																long
																																																																	BgL_newzd2matchzd2_9476;
																																																																{	/* Unsafe/url.scm 110 */
																																																																	obj_t
																																																																		BgL_tmpz00_12823;
																																																																	BgL_tmpz00_12823
																																																																		=
																																																																		(
																																																																		(obj_t)
																																																																		BgL_iportz00_9472);
																																																																	RGC_STOP_MATCH
																																																																		(BgL_tmpz00_12823,
																																																																		BgL_forwardz00_9474);
																																																																}
																																																																BgL_newzd2matchzd2_9476
																																																																	=
																																																																	3L;
																																																																if ((BgL_forwardz00_9474 == BgL_bufposz00_9475))
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_9472)))
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				long
																																																																					BgL_arg1953z00_9477;
																																																																				long
																																																																					BgL_arg1954z00_9478;
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					obj_t
																																																																						BgL_tmpz00_12831;
																																																																					BgL_tmpz00_12831
																																																																						=
																																																																						(
																																																																						(obj_t)
																																																																						BgL_iportz00_9472);
																																																																					BgL_arg1953z00_9477
																																																																						=
																																																																						RGC_BUFFER_FORWARD
																																																																						(BgL_tmpz00_12831);
																																																																				}
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					obj_t
																																																																						BgL_tmpz00_12834;
																																																																					BgL_tmpz00_12834
																																																																						=
																																																																						(
																																																																						(obj_t)
																																																																						BgL_iportz00_9472);
																																																																					BgL_arg1954z00_9478
																																																																						=
																																																																						RGC_BUFFER_BUFPOS
																																																																						(BgL_tmpz00_12834);
																																																																				}
																																																																				{
																																																																					long
																																																																						BgL_bufposz00_12838;
																																																																					long
																																																																						BgL_forwardz00_12837;
																																																																					BgL_forwardz00_12837
																																																																						=
																																																																						BgL_arg1953z00_9477;
																																																																					BgL_bufposz00_12838
																																																																						=
																																																																						BgL_arg1954z00_9478;
																																																																					BgL_bufposz00_9475
																																																																						=
																																																																						BgL_bufposz00_12838;
																																																																					BgL_forwardz00_9474
																																																																						=
																																																																						BgL_forwardz00_12837;
																																																																					goto
																																																																						BgL_statezd230zd21090z00_9342;
																																																																				}
																																																																			}
																																																																		else
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				BgL_matchz00_9649
																																																																					=
																																																																					BgL_newzd2matchzd2_9476;
																																																																			}
																																																																	}
																																																																else
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		int
																																																																			BgL_curz00_9479;
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			obj_t
																																																																				BgL_tmpz00_12839;
																																																																			BgL_tmpz00_12839
																																																																				=
																																																																				(
																																																																				(obj_t)
																																																																				BgL_iportz00_9472);
																																																																			BgL_curz00_9479
																																																																				=
																																																																				RGC_BUFFER_GET_CHAR
																																																																				(BgL_tmpz00_12839,
																																																																				BgL_forwardz00_9474);
																																																																		}
																																																																		{	/* Unsafe/url.scm 110 */

																																																																			{	/* Unsafe/url.scm 110 */
																																																																				bool_t
																																																																					BgL_test4776z00_12842;
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					bool_t
																																																																						BgL_test4777z00_12843;
																																																																					if (((long) (BgL_curz00_9479) >= 48L))
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							BgL_test4777z00_12843
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_9479)
																																																																								<
																																																																								58L);
																																																																						}
																																																																					else
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							BgL_test4777z00_12843
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					if (BgL_test4777z00_12843)
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							BgL_test4776z00_12842
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							bool_t
																																																																								BgL_test4779z00_12849;
																																																																							if (((long) (BgL_curz00_9479) >= 65L))
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4779z00_12849
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_9479)
																																																																										<
																																																																										71L);
																																																																								}
																																																																							else
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4779z00_12849
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																							if (BgL_test4779z00_12849)
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4776z00_12842
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									if (((long) (BgL_curz00_9479) >= 97L))
																																																																										{	/* Unsafe/url.scm 110 */
																																																																											BgL_test4776z00_12842
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_9479)
																																																																												<
																																																																												103L);
																																																																										}
																																																																									else
																																																																										{	/* Unsafe/url.scm 110 */
																																																																											BgL_test4776z00_12842
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												0);
																																																																										}
																																																																								}
																																																																						}
																																																																				}
																																																																				if (BgL_test4776z00_12842)
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_12864;
																																																																						long
																																																																							BgL_forwardz00_12862;
																																																																						long
																																																																							BgL_lastzd2matchzd2_12861;
																																																																						obj_t
																																																																							BgL_iportz00_12860;
																																																																						BgL_iportz00_12860
																																																																							=
																																																																							BgL_iportz00_9472;
																																																																						BgL_lastzd2matchzd2_12861
																																																																							=
																																																																							BgL_newzd2matchzd2_9476;
																																																																						BgL_forwardz00_12862
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_9474);
																																																																						BgL_bufposz00_12864
																																																																							=
																																																																							BgL_bufposz00_9475;
																																																																						BgL_bufposz00_9565
																																																																							=
																																																																							BgL_bufposz00_12864;
																																																																						BgL_forwardz00_9564
																																																																							=
																																																																							BgL_forwardz00_12862;
																																																																						BgL_lastzd2matchzd2_9563
																																																																							=
																																																																							BgL_lastzd2matchzd2_12861;
																																																																						BgL_iportz00_9562
																																																																							=
																																																																							BgL_iportz00_12860;
																																																																						goto
																																																																							BgL_statezd225zd21085z00_9352;
																																																																					}
																																																																				else
																																																																					{	/* Unsafe/url.scm 110 */
																																																																						bool_t
																																																																							BgL_test4782z00_12865;
																																																																						if (((long) (BgL_curz00_9479) == 10L))
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								BgL_test4782z00_12865
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								if (((long) (BgL_curz00_9479) == 13L))
																																																																									{	/* Unsafe/url.scm 110 */
																																																																										BgL_test4782z00_12865
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Unsafe/url.scm 110 */
																																																																										bool_t
																																																																											BgL_test4785z00_12872;
																																																																										if (((long) (BgL_curz00_9479) >= 48L))
																																																																											{	/* Unsafe/url.scm 110 */
																																																																												BgL_test4785z00_12872
																																																																													=
																																																																													(
																																																																													(long)
																																																																													(BgL_curz00_9479)
																																																																													<
																																																																													59L);
																																																																											}
																																																																										else
																																																																											{	/* Unsafe/url.scm 110 */
																																																																												BgL_test4785z00_12872
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													0);
																																																																											}
																																																																										if (BgL_test4785z00_12872)
																																																																											{	/* Unsafe/url.scm 110 */
																																																																												BgL_test4782z00_12865
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Unsafe/url.scm 110 */
																																																																												bool_t
																																																																													BgL_test4787z00_12878;
																																																																												if (((long) (BgL_curz00_9479) >= 65L))
																																																																													{	/* Unsafe/url.scm 110 */
																																																																														BgL_test4787z00_12878
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_9479)
																																																																															<
																																																																															71L);
																																																																													}
																																																																												else
																																																																													{	/* Unsafe/url.scm 110 */
																																																																														BgL_test4787z00_12878
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															0);
																																																																													}
																																																																												if (BgL_test4787z00_12878)
																																																																													{	/* Unsafe/url.scm 110 */
																																																																														BgL_test4782z00_12865
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Unsafe/url.scm 110 */
																																																																														if (((long) (BgL_curz00_9479) >= 97L))
																																																																															{	/* Unsafe/url.scm 110 */
																																																																																BgL_test4782z00_12865
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_9479)
																																																																																	<
																																																																																	103L);
																																																																															}
																																																																														else
																																																																															{	/* Unsafe/url.scm 110 */
																																																																																BgL_test4782z00_12865
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	0);
																																																																															}
																																																																													}
																																																																											}
																																																																									}
																																																																							}
																																																																						if (BgL_test4782z00_12865)
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								BgL_matchz00_9649
																																																																									=
																																																																									BgL_newzd2matchzd2_9476;
																																																																							}
																																																																						else
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								BgL_iportz00_9480
																																																																									=
																																																																									BgL_iportz00_9472;
																																																																								BgL_lastzd2matchzd2_9481
																																																																									=
																																																																									BgL_newzd2matchzd2_9476;
																																																																								BgL_forwardz00_9482
																																																																									=
																																																																									(1L
																																																																									+
																																																																									BgL_forwardz00_9474);
																																																																								BgL_bufposz00_9483
																																																																									=
																																																																									BgL_bufposz00_9475;
																																																																							BgL_statezd224zd21084z00_9343:
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									long
																																																																										BgL_newzd2matchzd2_9484;
																																																																									{	/* Unsafe/url.scm 110 */
																																																																										obj_t
																																																																											BgL_tmpz00_12889;
																																																																										BgL_tmpz00_12889
																																																																											=
																																																																											(
																																																																											(obj_t)
																																																																											BgL_iportz00_9480);
																																																																										RGC_STOP_MATCH
																																																																											(BgL_tmpz00_12889,
																																																																											BgL_forwardz00_9482);
																																																																									}
																																																																									BgL_newzd2matchzd2_9484
																																																																										=
																																																																										3L;
																																																																									if ((BgL_forwardz00_9482 == BgL_bufposz00_9483))
																																																																										{	/* Unsafe/url.scm 110 */
																																																																											if (rgc_fill_buffer(((obj_t) BgL_iportz00_9480)))
																																																																												{	/* Unsafe/url.scm 110 */
																																																																													long
																																																																														BgL_arg1972z00_9485;
																																																																													long
																																																																														BgL_arg1975z00_9486;
																																																																													{	/* Unsafe/url.scm 110 */
																																																																														obj_t
																																																																															BgL_tmpz00_12897;
																																																																														BgL_tmpz00_12897
																																																																															=
																																																																															(
																																																																															(obj_t)
																																																																															BgL_iportz00_9480);
																																																																														BgL_arg1972z00_9485
																																																																															=
																																																																															RGC_BUFFER_FORWARD
																																																																															(BgL_tmpz00_12897);
																																																																													}
																																																																													{	/* Unsafe/url.scm 110 */
																																																																														obj_t
																																																																															BgL_tmpz00_12900;
																																																																														BgL_tmpz00_12900
																																																																															=
																																																																															(
																																																																															(obj_t)
																																																																															BgL_iportz00_9480);
																																																																														BgL_arg1975z00_9486
																																																																															=
																																																																															RGC_BUFFER_BUFPOS
																																																																															(BgL_tmpz00_12900);
																																																																													}
																																																																													{
																																																																														long
																																																																															BgL_bufposz00_12904;
																																																																														long
																																																																															BgL_forwardz00_12903;
																																																																														BgL_forwardz00_12903
																																																																															=
																																																																															BgL_arg1972z00_9485;
																																																																														BgL_bufposz00_12904
																																																																															=
																																																																															BgL_arg1975z00_9486;
																																																																														BgL_bufposz00_9483
																																																																															=
																																																																															BgL_bufposz00_12904;
																																																																														BgL_forwardz00_9482
																																																																															=
																																																																															BgL_forwardz00_12903;
																																																																														goto
																																																																															BgL_statezd224zd21084z00_9343;
																																																																													}
																																																																												}
																																																																											else
																																																																												{	/* Unsafe/url.scm 110 */
																																																																													BgL_matchz00_9649
																																																																														=
																																																																														BgL_newzd2matchzd2_9484;
																																																																												}
																																																																										}
																																																																									else
																																																																										{	/* Unsafe/url.scm 110 */
																																																																											int
																																																																												BgL_curz00_9487;
																																																																											{	/* Unsafe/url.scm 110 */
																																																																												obj_t
																																																																													BgL_tmpz00_12905;
																																																																												BgL_tmpz00_12905
																																																																													=
																																																																													(
																																																																													(obj_t)
																																																																													BgL_iportz00_9480);
																																																																												BgL_curz00_9487
																																																																													=
																																																																													RGC_BUFFER_GET_CHAR
																																																																													(BgL_tmpz00_12905,
																																																																													BgL_forwardz00_9482);
																																																																											}
																																																																											{	/* Unsafe/url.scm 110 */

																																																																												{	/* Unsafe/url.scm 110 */
																																																																													bool_t
																																																																														BgL_test4792z00_12908;
																																																																													if (((long) (BgL_curz00_9487) == 10L))
																																																																														{	/* Unsafe/url.scm 110 */
																																																																															BgL_test4792z00_12908
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Unsafe/url.scm 110 */
																																																																															if (((long) (BgL_curz00_9487) == 13L))
																																																																																{	/* Unsafe/url.scm 110 */
																																																																																	BgL_test4792z00_12908
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Unsafe/url.scm 110 */
																																																																																	BgL_test4792z00_12908
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_9487)
																																																																																		==
																																																																																		58L);
																																																																														}}
																																																																													if (BgL_test4792z00_12908)
																																																																														{	/* Unsafe/url.scm 110 */
																																																																															BgL_matchz00_9649
																																																																																=
																																																																																BgL_newzd2matchzd2_9484;
																																																																														}
																																																																													else
																																																																														{
																																																																															long
																																																																																BgL_forwardz00_12918;
																																																																															long
																																																																																BgL_lastzd2matchzd2_12917;
																																																																															BgL_lastzd2matchzd2_12917
																																																																																=
																																																																																BgL_newzd2matchzd2_9484;
																																																																															BgL_forwardz00_12918
																																																																																=
																																																																																(1L
																																																																																+
																																																																																BgL_forwardz00_9482);
																																																																															BgL_forwardz00_9482
																																																																																=
																																																																																BgL_forwardz00_12918;
																																																																															BgL_lastzd2matchzd2_9481
																																																																																=
																																																																																BgL_lastzd2matchzd2_12917;
																																																																															goto
																																																																																BgL_statezd224zd21084z00_9343;
																																																																														}
																																																																												}
																																																																											}
																																																																										}
																																																																								}
																																																																							}
																																																																					}
																																																																			}
																																																																		}
																																																																	}
																																																															}
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															bool_t
																																																																BgL_test4795z00_12922;
																																																															if (((long) (BgL_curz00_9585) == 10L))
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4795z00_12922
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	if (((long) (BgL_curz00_9585) == 13L))
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			BgL_test4795z00_12922
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			bool_t
																																																																				BgL_test4798z00_12929;
																																																																			if (((long) (BgL_curz00_9585) >= 48L))
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					BgL_test4798z00_12929
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_9585)
																																																																						<
																																																																						59L);
																																																																				}
																																																																			else
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					BgL_test4798z00_12929
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						0);
																																																																				}
																																																																			if (BgL_test4798z00_12929)
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					BgL_test4795z00_12922
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					bool_t
																																																																						BgL_test4800z00_12935;
																																																																					if (((long) (BgL_curz00_9585) >= 65L))
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							BgL_test4800z00_12935
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_9585)
																																																																								<
																																																																								71L);
																																																																						}
																																																																					else
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							BgL_test4800z00_12935
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					if (BgL_test4800z00_12935)
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							BgL_test4795z00_12922
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							if (((long) (BgL_curz00_9585) >= 97L))
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4795z00_12922
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_9585)
																																																																										<
																																																																										103L);
																																																																								}
																																																																							else
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4795z00_12922
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																						}
																																																																				}
																																																																		}
																																																																}
																																																															if (BgL_test4795z00_12922)
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_matchz00_9649
																																																																		=
																																																																		BgL_newzd2matchzd2_9582;
																																																																}
																																																															else
																																																																{
																																																																	long
																																																																		BgL_bufposz00_12950;
																																																																	long
																																																																		BgL_forwardz00_12948;
																																																																	long
																																																																		BgL_lastzd2matchzd2_12947;
																																																																	obj_t
																																																																		BgL_iportz00_12946;
																																																																	BgL_iportz00_12946
																																																																		=
																																																																		BgL_iportz00_9578;
																																																																	BgL_lastzd2matchzd2_12947
																																																																		=
																																																																		BgL_newzd2matchzd2_9582;
																																																																	BgL_forwardz00_12948
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_9580);
																																																																	BgL_bufposz00_12950
																																																																		=
																																																																		BgL_bufposz00_9581;
																																																																	BgL_bufposz00_9483
																																																																		=
																																																																		BgL_bufposz00_12950;
																																																																	BgL_forwardz00_9482
																																																																		=
																																																																		BgL_forwardz00_12948;
																																																																	BgL_lastzd2matchzd2_9481
																																																																		=
																																																																		BgL_lastzd2matchzd2_12947;
																																																																	BgL_iportz00_9480
																																																																		=
																																																																		BgL_iportz00_12946;
																																																																	goto
																																																																		BgL_statezd224zd21084z00_9343;
																																																																}
																																																														}
																																																												}
																																																											}
																																																										}
																																																								}
																																																							}
																																																						else
																																																							{	/* Unsafe/url.scm 110 */
																																																								bool_t
																																																									BgL_test4803z00_12952;
																																																								{	/* Unsafe/url.scm 110 */
																																																									bool_t
																																																										BgL_test4804z00_12953;
																																																									if (((long) (BgL_curz00_9569) == 33L))
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4804z00_12953
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4804z00_12953
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9569)
																																																												==
																																																												32L);
																																																										}
																																																									if (BgL_test4804z00_12953)
																																																										{	/* Unsafe/url.scm 110 */
																																																											BgL_test4803z00_12952
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Unsafe/url.scm 110 */
																																																											if (((long) (BgL_curz00_9569) == 36L))
																																																												{	/* Unsafe/url.scm 110 */
																																																													BgL_test4803z00_12952
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/url.scm 110 */
																																																													bool_t
																																																														BgL_test4807z00_12962;
																																																													if (((long) (BgL_curz00_9569) >= 38L))
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4807z00_12962
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9569)
																																																																<
																																																																58L);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4807z00_12962
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test4807z00_12962)
																																																														{	/* Unsafe/url.scm 110 */
																																																															BgL_test4803z00_12952
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/url.scm 110 */
																																																															if (((long) (BgL_curz00_9569) == 59L))
																																																																{	/* Unsafe/url.scm 110 */
																																																																	BgL_test4803z00_12952
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Unsafe/url.scm 110 */
																																																																	if (((long) (BgL_curz00_9569) == 61L))
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			BgL_test4803z00_12952
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Unsafe/url.scm 110 */
																																																																			bool_t
																																																																				BgL_test4811z00_12974;
																																																																			if (((long) (BgL_curz00_9569) >= 65L))
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					BgL_test4811z00_12974
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_9569)
																																																																						<
																																																																						91L);
																																																																				}
																																																																			else
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					BgL_test4811z00_12974
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						0);
																																																																				}
																																																																			if (BgL_test4811z00_12974)
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					BgL_test4803z00_12952
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Unsafe/url.scm 110 */
																																																																					if (((long) (BgL_curz00_9569) == 95L))
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							BgL_test4803z00_12952
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Unsafe/url.scm 110 */
																																																																							bool_t
																																																																								BgL_test4814z00_12983;
																																																																							if (((long) (BgL_curz00_9569) >= 97L))
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4814z00_12983
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_9569)
																																																																										<
																																																																										123L);
																																																																								}
																																																																							else
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4814z00_12983
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																							if (BgL_test4814z00_12983)
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									BgL_test4803z00_12952
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Unsafe/url.scm 110 */
																																																																									if (((long) (BgL_curz00_9569) == 124L))
																																																																										{	/* Unsafe/url.scm 110 */
																																																																											BgL_test4803z00_12952
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Unsafe/url.scm 110 */
																																																																											BgL_test4803z00_12952
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_9569)
																																																																												==
																																																																												126L);
																																																								}}}}}}}}}}
																																																								if (BgL_test4803z00_12952)
																																																									{
																																																										long
																																																											BgL_forwardz00_12995;
																																																										long
																																																											BgL_lastzd2matchzd2_12994;
																																																										BgL_lastzd2matchzd2_12994
																																																											=
																																																											BgL_newzd2matchzd2_9566;
																																																										BgL_forwardz00_12995
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_9564);
																																																										BgL_forwardz00_9564
																																																											=
																																																											BgL_forwardz00_12995;
																																																										BgL_lastzd2matchzd2_9563
																																																											=
																																																											BgL_lastzd2matchzd2_12994;
																																																										goto
																																																											BgL_statezd225zd21085z00_9352;
																																																									}
																																																								else
																																																									{	/* Unsafe/url.scm 110 */
																																																										bool_t
																																																											BgL_test4817z00_12997;
																																																										if (((long) (BgL_curz00_9569) == 10L))
																																																											{	/* Unsafe/url.scm 110 */
																																																												BgL_test4817z00_12997
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Unsafe/url.scm 110 */
																																																												if (((long) (BgL_curz00_9569) == 13L))
																																																													{	/* Unsafe/url.scm 110 */
																																																														BgL_test4817z00_12997
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Unsafe/url.scm 110 */
																																																														bool_t
																																																															BgL_test4820z00_13004;
																																																														if (((long) (BgL_curz00_9569) == 33L))
																																																															{	/* Unsafe/url.scm 110 */
																																																																BgL_test4820z00_13004
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Unsafe/url.scm 110 */
																																																																BgL_test4820z00_13004
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_9569)
																																																																	==
																																																																	32L);
																																																															}
																																																														if (BgL_test4820z00_13004)
																																																															{	/* Unsafe/url.scm 110 */
																																																																BgL_test4817z00_12997
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Unsafe/url.scm 110 */
																																																																bool_t
																																																																	BgL_test4822z00_13010;
																																																																if (((long) (BgL_curz00_9569) >= 36L))
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		BgL_test4822z00_13010
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_9569)
																																																																			<
																																																																			62L);
																																																																	}
																																																																else
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		BgL_test4822z00_13010
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			0);
																																																																	}
																																																																if (BgL_test4822z00_13010)
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		BgL_test4817z00_12997
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Unsafe/url.scm 110 */
																																																																		bool_t
																																																																			BgL_test4824z00_13016;
																																																																		if (((long) (BgL_curz00_9569) >= 64L))
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				BgL_test4824z00_13016
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_9569)
																																																																					<
																																																																					91L);
																																																																			}
																																																																		else
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				BgL_test4824z00_13016
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					0);
																																																																			}
																																																																		if (BgL_test4824z00_13016)
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				BgL_test4817z00_12997
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Unsafe/url.scm 110 */
																																																																				if (((long) (BgL_curz00_9569) == 95L))
																																																																					{	/* Unsafe/url.scm 110 */
																																																																						BgL_test4817z00_12997
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Unsafe/url.scm 110 */
																																																																						bool_t
																																																																							BgL_test4827z00_13025;
																																																																						if (((long) (BgL_curz00_9569) >= 97L))
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								BgL_test4827z00_13025
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_9569)
																																																																									<
																																																																									123L);
																																																																							}
																																																																						else
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								BgL_test4827z00_13025
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									0);
																																																																							}
																																																																						if (BgL_test4827z00_13025)
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								BgL_test4817z00_12997
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Unsafe/url.scm 110 */
																																																																								if (((long) (BgL_curz00_9569) == 124L))
																																																																									{	/* Unsafe/url.scm 110 */
																																																																										BgL_test4817z00_12997
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Unsafe/url.scm 110 */
																																																																										BgL_test4817z00_12997
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_9569)
																																																																											==
																																																																											126L);
																																																											}}}}}}}}
																																																										if (BgL_test4817z00_12997)
																																																											{	/* Unsafe/url.scm 110 */
																																																												BgL_matchz00_9649
																																																													=
																																																													BgL_newzd2matchzd2_9566;
																																																											}
																																																										else
																																																											{
																																																												long
																																																													BgL_bufposz00_13040;
																																																												long
																																																													BgL_forwardz00_13038;
																																																												long
																																																													BgL_lastzd2matchzd2_13037;
																																																												obj_t
																																																													BgL_iportz00_13036;
																																																												BgL_iportz00_13036
																																																													=
																																																													BgL_iportz00_9562;
																																																												BgL_lastzd2matchzd2_13037
																																																													=
																																																													BgL_newzd2matchzd2_9566;
																																																												BgL_forwardz00_13038
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_9564);
																																																												BgL_bufposz00_13040
																																																													=
																																																													BgL_bufposz00_9565;
																																																												BgL_bufposz00_9483
																																																													=
																																																													BgL_bufposz00_13040;
																																																												BgL_forwardz00_9482
																																																													=
																																																													BgL_forwardz00_13038;
																																																												BgL_lastzd2matchzd2_9481
																																																													=
																																																													BgL_lastzd2matchzd2_13037;
																																																												BgL_iportz00_9480
																																																													=
																																																													BgL_iportz00_13036;
																																																												goto
																																																													BgL_statezd224zd21084z00_9343;
																																																											}
																																																									}
																																																							}
																																																					}
																																																			}
																																																	}
																																															}
																																														}
																																												}
																																											}
																																										else
																																											{	/* Unsafe/url.scm 110 */
																																												bool_t
																																													BgL_test4830z00_13042;
																																												switch
																																													(
																																													(long)
																																													(BgL_curz00_9513))
																																													{
																																													case 10L:

																																														BgL_test4830z00_13042 = ((bool_t) 1);
																																														break;
																																													case 13L:

																																														BgL_test4830z00_13042 = ((bool_t) 1);
																																														break;
																																													case 32L:

																																														BgL_test4830z00_13042 = ((bool_t) 1);
																																														break;
																																													default:
																																														BgL_test4830z00_13042 = ((long) (BgL_curz00_9513) == 58L);
																																													}
																																												if (BgL_test4830z00_13042)
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_matchz00_9649
																																															=
																																															BgL_newzd2matchzd2_9510;
																																													}
																																												else
																																													{
																																														long
																																															BgL_bufposz00_13051;
																																														long
																																															BgL_forwardz00_13049;
																																														long
																																															BgL_lastzd2matchzd2_13048;
																																														obj_t
																																															BgL_iportz00_13047;
																																														BgL_iportz00_13047
																																															=
																																															BgL_iportz00_9506;
																																														BgL_lastzd2matchzd2_13048
																																															=
																																															BgL_newzd2matchzd2_9510;
																																														BgL_forwardz00_13049
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_9508);
																																														BgL_bufposz00_13051
																																															=
																																															BgL_bufposz00_9509;
																																														BgL_bufposz00_9483
																																															=
																																															BgL_bufposz00_13051;
																																														BgL_forwardz00_9482
																																															=
																																															BgL_forwardz00_13049;
																																														BgL_lastzd2matchzd2_9481
																																															=
																																															BgL_lastzd2matchzd2_13048;
																																														BgL_iportz00_9480
																																															=
																																															BgL_iportz00_13047;
																																														goto
																																															BgL_statezd224zd21084z00_9343;
																																													}
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Unsafe/url.scm 110 */
																																						bool_t
																																							BgL_test4831z00_13053;
																																						switch
																																							(
																																							(long)
																																							(BgL_curz00_9505))
																																							{
																																							case 10L:

																																								BgL_test4831z00_13053 = ((bool_t) 1);
																																								break;
																																							case 13L:

																																								BgL_test4831z00_13053 = ((bool_t) 1);
																																								break;
																																							case 58L:

																																								BgL_test4831z00_13053 = ((bool_t) 1);
																																								break;
																																							default:
																																								BgL_test4831z00_13053 = ((long) (BgL_curz00_9505) == 62L);
																																							}
																																						if (BgL_test4831z00_13053)
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_matchz00_9649
																																									=
																																									BgL_newzd2matchzd2_9502;
																																							}
																																						else
																																							{
																																								long
																																									BgL_bufposz00_13062;
																																								long
																																									BgL_forwardz00_13060;
																																								long
																																									BgL_lastzd2matchzd2_13059;
																																								obj_t
																																									BgL_iportz00_13058;
																																								BgL_iportz00_13058
																																									=
																																									BgL_iportz00_9498;
																																								BgL_lastzd2matchzd2_13059
																																									=
																																									BgL_newzd2matchzd2_9502;
																																								BgL_forwardz00_13060
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_9500);
																																								BgL_bufposz00_13062
																																									=
																																									BgL_bufposz00_9501;
																																								BgL_bufposz00_9483
																																									=
																																									BgL_bufposz00_13062;
																																								BgL_forwardz00_9482
																																									=
																																									BgL_forwardz00_13060;
																																								BgL_lastzd2matchzd2_9481
																																									=
																																									BgL_lastzd2matchzd2_13059;
																																								BgL_iportz00_9480
																																									=
																																									BgL_iportz00_13058;
																																								goto
																																									BgL_statezd224zd21084z00_9343;
																																							}
																																					}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Unsafe/url.scm 110 */
																																if (
																																	((long)
																																		(BgL_curz00_9577)
																																		== 58L))
																																	{
																																		long
																																			BgL_bufposz00_13071;
																																		long
																																			BgL_forwardz00_13069;
																																		long
																																			BgL_lastzd2matchzd2_13068;
																																		obj_t
																																			BgL_iportz00_13067;
																																		BgL_iportz00_13067
																																			=
																																			BgL_iportz00_9570;
																																		BgL_lastzd2matchzd2_13068
																																			=
																																			BgL_newzd2matchzd2_9574;
																																		BgL_forwardz00_13069
																																			=
																																			(1L +
																																			BgL_forwardz00_9572);
																																		BgL_bufposz00_13071
																																			=
																																			BgL_bufposz00_9573;
																																		BgL_bufposz00_9401
																																			=
																																			BgL_bufposz00_13071;
																																		BgL_forwardz00_9400
																																			=
																																			BgL_forwardz00_13069;
																																		BgL_lastzd2matchzd2_9399
																																			=
																																			BgL_lastzd2matchzd2_13068;
																																		BgL_iportz00_9398
																																			=
																																			BgL_iportz00_13067;
																																		goto
																																			BgL_statezd29zd21069z00_9336;
																																	}
																																else
																																	{	/* Unsafe/url.scm 110 */
																																		if (
																																			((long)
																																				(BgL_curz00_9577)
																																				== 37L))
																																			{
																																				long
																																					BgL_bufposz00_13079;
																																				long
																																					BgL_forwardz00_13077;
																																				long
																																					BgL_lastzd2matchzd2_13076;
																																				obj_t
																																					BgL_iportz00_13075;
																																				BgL_iportz00_13075
																																					=
																																					BgL_iportz00_9570;
																																				BgL_lastzd2matchzd2_13076
																																					=
																																					BgL_newzd2matchzd2_9574;
																																				BgL_forwardz00_13077
																																					=
																																					(1L +
																																					BgL_forwardz00_9572);
																																				BgL_bufposz00_13079
																																					=
																																					BgL_bufposz00_9573;
																																				BgL_bufposz00_9581
																																					=
																																					BgL_bufposz00_13079;
																																				BgL_forwardz00_9580
																																					=
																																					BgL_forwardz00_13077;
																																				BgL_lastzd2matchzd2_9579
																																					=
																																					BgL_lastzd2matchzd2_13076;
																																				BgL_iportz00_9578
																																					=
																																					BgL_iportz00_13075;
																																				goto
																																					BgL_statezd226zd21086z00_9354;
																																			}
																																		else
																																			{	/* Unsafe/url.scm 110 */
																																				bool_t
																																					BgL_test4834z00_13080;
																																				{	/* Unsafe/url.scm 110 */
																																					bool_t
																																						BgL_test4835z00_13081;
																																					if ((
																																							(long)
																																							(BgL_curz00_9577)
																																							==
																																							33L))
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4835z00_13081
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4835z00_13081
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9577)
																																								==
																																								32L);
																																						}
																																					if (BgL_test4835z00_13081)
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4834z00_13080
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							if (((long) (BgL_curz00_9577) == 36L))
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4834z00_13080
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									bool_t
																																										BgL_test4838z00_13090;
																																									if (((long) (BgL_curz00_9577) >= 38L))
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4838z00_13090
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9577)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4838z00_13090
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test4838z00_13090)
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4834z00_13080
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											if (((long) (BgL_curz00_9577) == 59L))
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4834z00_13080
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													if (((long) (BgL_curz00_9577) == 61L))
																																														{	/* Unsafe/url.scm 110 */
																																															BgL_test4834z00_13080
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/url.scm 110 */
																																															bool_t
																																																BgL_test4842z00_13102;
																																															if (((long) (BgL_curz00_9577) >= 65L))
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4842z00_13102
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_9577)
																																																		<
																																																		91L);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4842z00_13102
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test4842z00_13102)
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4834z00_13080
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	if (((long) (BgL_curz00_9577) == 95L))
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4834z00_13080
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			bool_t
																																																				BgL_test4845z00_13111;
																																																			if (((long) (BgL_curz00_9577) >= 97L))
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4845z00_13111
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9577)
																																																						<
																																																						123L);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4845z00_13111
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test4845z00_13111)
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4834z00_13080
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					if (((long) (BgL_curz00_9577) == 124L))
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4834z00_13080
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4834z00_13080
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9577)
																																																								==
																																																								126L);
																																				}}}}}}}}}}
																																				if (BgL_test4834z00_13080)
																																					{
																																						long
																																							BgL_bufposz00_13126;
																																						long
																																							BgL_forwardz00_13124;
																																						long
																																							BgL_lastzd2matchzd2_13123;
																																						obj_t
																																							BgL_iportz00_13122;
																																						BgL_iportz00_13122
																																							=
																																							BgL_iportz00_9570;
																																						BgL_lastzd2matchzd2_13123
																																							=
																																							BgL_newzd2matchzd2_9574;
																																						BgL_forwardz00_13124
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_9572);
																																						BgL_bufposz00_13126
																																							=
																																							BgL_bufposz00_9573;
																																						BgL_bufposz00_9565
																																							=
																																							BgL_bufposz00_13126;
																																						BgL_forwardz00_9564
																																							=
																																							BgL_forwardz00_13124;
																																						BgL_lastzd2matchzd2_9563
																																							=
																																							BgL_lastzd2matchzd2_13123;
																																						BgL_iportz00_9562
																																							=
																																							BgL_iportz00_13122;
																																						goto
																																							BgL_statezd225zd21085z00_9352;
																																					}
																																				else
																																					{	/* Unsafe/url.scm 110 */
																																						bool_t
																																							BgL_test4848z00_13127;
																																						if (
																																							((long) (BgL_curz00_9577) == 10L))
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_test4848z00_13127
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 110 */
																																								if (((long) (BgL_curz00_9577) == 13L))
																																									{	/* Unsafe/url.scm 110 */
																																										BgL_test4848z00_13127
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/url.scm 110 */
																																										bool_t
																																											BgL_test4851z00_13134;
																																										if (((long) (BgL_curz00_9577) == 33L))
																																											{	/* Unsafe/url.scm 110 */
																																												BgL_test4851z00_13134
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/url.scm 110 */
																																												BgL_test4851z00_13134
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_9577)
																																													==
																																													32L);
																																											}
																																										if (BgL_test4851z00_13134)
																																											{	/* Unsafe/url.scm 110 */
																																												BgL_test4848z00_13127
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/url.scm 110 */
																																												bool_t
																																													BgL_test4853z00_13140;
																																												if (((long) (BgL_curz00_9577) >= 36L))
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_test4853z00_13140
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_9577)
																																															<
																																															62L);
																																													}
																																												else
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_test4853z00_13140
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test4853z00_13140)
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_test4848z00_13127
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/url.scm 110 */
																																														bool_t
																																															BgL_test4855z00_13146;
																																														if (((long) (BgL_curz00_9577) >= 64L))
																																															{	/* Unsafe/url.scm 110 */
																																																BgL_test4855z00_13146
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_9577)
																																																	<
																																																	91L);
																																															}
																																														else
																																															{	/* Unsafe/url.scm 110 */
																																																BgL_test4855z00_13146
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test4855z00_13146)
																																															{	/* Unsafe/url.scm 110 */
																																																BgL_test4848z00_13127
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/url.scm 110 */
																																																if (((long) (BgL_curz00_9577) == 95L))
																																																	{	/* Unsafe/url.scm 110 */
																																																		BgL_test4848z00_13127
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/url.scm 110 */
																																																		bool_t
																																																			BgL_test4858z00_13155;
																																																		if (((long) (BgL_curz00_9577) >= 97L))
																																																			{	/* Unsafe/url.scm 110 */
																																																				BgL_test4858z00_13155
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_9577)
																																																					<
																																																					123L);
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 110 */
																																																				BgL_test4858z00_13155
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test4858z00_13155)
																																																			{	/* Unsafe/url.scm 110 */
																																																				BgL_test4848z00_13127
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/url.scm 110 */
																																																				if (((long) (BgL_curz00_9577) == 124L))
																																																					{	/* Unsafe/url.scm 110 */
																																																						BgL_test4848z00_13127
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Unsafe/url.scm 110 */
																																																						BgL_test4848z00_13127
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_9577)
																																																							==
																																																							126L);
																																							}}}}}}}}
																																						if (BgL_test4848z00_13127)
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_matchz00_9649
																																									=
																																									BgL_newzd2matchzd2_9574;
																																							}
																																						else
																																							{
																																								long
																																									BgL_bufposz00_13170;
																																								long
																																									BgL_forwardz00_13168;
																																								long
																																									BgL_lastzd2matchzd2_13167;
																																								obj_t
																																									BgL_iportz00_13166;
																																								BgL_iportz00_13166
																																									=
																																									BgL_iportz00_9570;
																																								BgL_lastzd2matchzd2_13167
																																									=
																																									BgL_newzd2matchzd2_9574;
																																								BgL_forwardz00_13168
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_9572);
																																								BgL_bufposz00_13170
																																									=
																																									BgL_bufposz00_9573;
																																								BgL_bufposz00_9483
																																									=
																																									BgL_bufposz00_13170;
																																								BgL_forwardz00_9482
																																									=
																																									BgL_forwardz00_13168;
																																								BgL_lastzd2matchzd2_9481
																																									=
																																									BgL_lastzd2matchzd2_13167;
																																								BgL_iportz00_9480
																																									=
																																									BgL_iportz00_13166;
																																								goto
																																									BgL_statezd224zd21084z00_9343;
																																							}
																																					}
																																			}
																																	}
																															}
																													}
																											}
																										}
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 110 */
																								if (
																									((long) (BgL_curz00_9561) ==
																										60L))
																									{
																										long BgL_bufposz00_13179;
																										long BgL_forwardz00_13177;
																										long
																											BgL_lastzd2matchzd2_13176;
																										obj_t BgL_iportz00_13175;

																										BgL_iportz00_13175 =
																											BgL_iportz00_9554;
																										BgL_lastzd2matchzd2_13176 =
																											BgL_newzd2matchzd2_9558;
																										BgL_forwardz00_13177 =
																											(1L +
																											BgL_forwardz00_9556);
																										BgL_bufposz00_13179 =
																											BgL_bufposz00_9557;
																										BgL_bufposz00_9501 =
																											BgL_bufposz00_13179;
																										BgL_forwardz00_9500 =
																											BgL_forwardz00_13177;
																										BgL_lastzd2matchzd2_9499 =
																											BgL_lastzd2matchzd2_13176;
																										BgL_iportz00_9498 =
																											BgL_iportz00_13175;
																										goto
																											BgL_statezd227zd21087z00_9345;
																									}
																								else
																									{	/* Unsafe/url.scm 110 */
																										if (
																											((long) (BgL_curz00_9561)
																												== 58L))
																											{
																												long
																													BgL_bufposz00_13187;
																												long
																													BgL_forwardz00_13185;
																												long
																													BgL_lastzd2matchzd2_13184;
																												obj_t
																													BgL_iportz00_13183;
																												BgL_iportz00_13183 =
																													BgL_iportz00_9554;
																												BgL_lastzd2matchzd2_13184
																													=
																													BgL_newzd2matchzd2_9558;
																												BgL_forwardz00_13185 =
																													(1L +
																													BgL_forwardz00_9556);
																												BgL_bufposz00_13187 =
																													BgL_bufposz00_9557;
																												BgL_bufposz00_9401 =
																													BgL_bufposz00_13187;
																												BgL_forwardz00_9400 =
																													BgL_forwardz00_13185;
																												BgL_lastzd2matchzd2_9399
																													=
																													BgL_lastzd2matchzd2_13184;
																												BgL_iportz00_9398 =
																													BgL_iportz00_13183;
																												goto
																													BgL_statezd29zd21069z00_9336;
																											}
																										else
																											{	/* Unsafe/url.scm 110 */
																												if (
																													((long)
																														(BgL_curz00_9561) ==
																														37L))
																													{
																														long
																															BgL_bufposz00_13195;
																														long
																															BgL_forwardz00_13193;
																														long
																															BgL_lastzd2matchzd2_13192;
																														obj_t
																															BgL_iportz00_13191;
																														BgL_iportz00_13191 =
																															BgL_iportz00_9554;
																														BgL_lastzd2matchzd2_13192
																															=
																															BgL_newzd2matchzd2_9558;
																														BgL_forwardz00_13193
																															=
																															(1L +
																															BgL_forwardz00_9556);
																														BgL_bufposz00_13195
																															=
																															BgL_bufposz00_9557;
																														BgL_bufposz00_9581 =
																															BgL_bufposz00_13195;
																														BgL_forwardz00_9580
																															=
																															BgL_forwardz00_13193;
																														BgL_lastzd2matchzd2_9579
																															=
																															BgL_lastzd2matchzd2_13192;
																														BgL_iportz00_9578 =
																															BgL_iportz00_13191;
																														goto
																															BgL_statezd226zd21086z00_9354;
																													}
																												else
																													{	/* Unsafe/url.scm 110 */
																														bool_t
																															BgL_test4864z00_13196;
																														{	/* Unsafe/url.scm 110 */
																															bool_t
																																BgL_test4865z00_13197;
																															if (((long)
																																	(BgL_curz00_9561)
																																	== 33L))
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4865z00_13197
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4865z00_13197
																																		=
																																		((long)
																																		(BgL_curz00_9561)
																																		== 32L);
																																}
																															if (BgL_test4865z00_13197)
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4864z00_13196
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	if (
																																		((long)
																																			(BgL_curz00_9561)
																																			== 36L))
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4864z00_13196
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			bool_t
																																				BgL_test4868z00_13206;
																																			if ((
																																					(long)
																																					(BgL_curz00_9561)
																																					>=
																																					38L))
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4868z00_13206
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9561)
																																						<
																																						58L);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4868z00_13206
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test4868z00_13206)
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4864z00_13196
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					if (
																																						((long) (BgL_curz00_9561) == 59L))
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4864z00_13196
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							if (((long) (BgL_curz00_9561) == 61L))
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4864z00_13196
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									bool_t
																																										BgL_test4872z00_13218;
																																									if (((long) (BgL_curz00_9561) >= 65L))
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4872z00_13218
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9561)
																																												<
																																												91L);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4872z00_13218
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test4872z00_13218)
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4864z00_13196
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											if (((long) (BgL_curz00_9561) == 95L))
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4864z00_13196
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													bool_t
																																														BgL_test4875z00_13227;
																																													if (((long) (BgL_curz00_9561) >= 97L))
																																														{	/* Unsafe/url.scm 110 */
																																															BgL_test4875z00_13227
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_9561)
																																																<
																																																123L);
																																														}
																																													else
																																														{	/* Unsafe/url.scm 110 */
																																															BgL_test4875z00_13227
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test4875z00_13227)
																																														{	/* Unsafe/url.scm 110 */
																																															BgL_test4864z00_13196
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/url.scm 110 */
																																															if (((long) (BgL_curz00_9561) == 124L))
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4864z00_13196
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4864z00_13196
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_9561)
																																																		==
																																																		126L);
																														}}}}}}}}}}
																														if (BgL_test4864z00_13196)
																															{
																																long
																																	BgL_bufposz00_13242;
																																long
																																	BgL_forwardz00_13240;
																																long
																																	BgL_lastzd2matchzd2_13239;
																																obj_t
																																	BgL_iportz00_13238;
																																BgL_iportz00_13238
																																	=
																																	BgL_iportz00_9554;
																																BgL_lastzd2matchzd2_13239
																																	=
																																	BgL_newzd2matchzd2_9558;
																																BgL_forwardz00_13240
																																	=
																																	(1L +
																																	BgL_forwardz00_9556);
																																BgL_bufposz00_13242
																																	=
																																	BgL_bufposz00_9557;
																																BgL_bufposz00_9565
																																	=
																																	BgL_bufposz00_13242;
																																BgL_forwardz00_9564
																																	=
																																	BgL_forwardz00_13240;
																																BgL_lastzd2matchzd2_9563
																																	=
																																	BgL_lastzd2matchzd2_13239;
																																BgL_iportz00_9562
																																	=
																																	BgL_iportz00_13238;
																																goto
																																	BgL_statezd225zd21085z00_9352;
																															}
																														else
																															{	/* Unsafe/url.scm 110 */
																																bool_t
																																	BgL_test4878z00_13243;
																																if (((long)
																																		(BgL_curz00_9561)
																																		== 10L))
																																	{	/* Unsafe/url.scm 110 */
																																		BgL_test4878z00_13243
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/url.scm 110 */
																																		if (
																																			((long)
																																				(BgL_curz00_9561)
																																				== 13L))
																																			{	/* Unsafe/url.scm 110 */
																																				BgL_test4878z00_13243
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/url.scm 110 */
																																				bool_t
																																					BgL_test4881z00_13250;
																																				if ((
																																						(long)
																																						(BgL_curz00_9561)
																																						==
																																						33L))
																																					{	/* Unsafe/url.scm 110 */
																																						BgL_test4881z00_13250
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 110 */
																																						BgL_test4881z00_13250
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_9561)
																																							==
																																							32L);
																																					}
																																				if (BgL_test4881z00_13250)
																																					{	/* Unsafe/url.scm 110 */
																																						BgL_test4878z00_13243
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/url.scm 110 */
																																						bool_t
																																							BgL_test4883z00_13256;
																																						if (
																																							((long) (BgL_curz00_9561) >= 36L))
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_test4883z00_13256
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_9561)
																																									<
																																									62L);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_test4883z00_13256
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test4883z00_13256)
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_test4878z00_13243
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 110 */
																																								bool_t
																																									BgL_test4885z00_13262;
																																								if (((long) (BgL_curz00_9561) >= 64L))
																																									{	/* Unsafe/url.scm 110 */
																																										BgL_test4885z00_13262
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_9561)
																																											<
																																											91L);
																																									}
																																								else
																																									{	/* Unsafe/url.scm 110 */
																																										BgL_test4885z00_13262
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test4885z00_13262)
																																									{	/* Unsafe/url.scm 110 */
																																										BgL_test4878z00_13243
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/url.scm 110 */
																																										if (((long) (BgL_curz00_9561) == 95L))
																																											{	/* Unsafe/url.scm 110 */
																																												BgL_test4878z00_13243
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/url.scm 110 */
																																												bool_t
																																													BgL_test4888z00_13271;
																																												if (((long) (BgL_curz00_9561) >= 97L))
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_test4888z00_13271
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_9561)
																																															<
																																															123L);
																																													}
																																												else
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_test4888z00_13271
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test4888z00_13271)
																																													{	/* Unsafe/url.scm 110 */
																																														BgL_test4878z00_13243
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/url.scm 110 */
																																														if (((long) (BgL_curz00_9561) == 124L))
																																															{	/* Unsafe/url.scm 110 */
																																																BgL_test4878z00_13243
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/url.scm 110 */
																																																BgL_test4878z00_13243
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_9561)
																																																	==
																																																	126L);
																																	}}}}}}}}
																																if (BgL_test4878z00_13243)
																																	{	/* Unsafe/url.scm 110 */
																																		BgL_matchz00_9649
																																			=
																																			BgL_newzd2matchzd2_9558;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_13286;
																																		long
																																			BgL_forwardz00_13284;
																																		long
																																			BgL_lastzd2matchzd2_13283;
																																		obj_t
																																			BgL_iportz00_13282;
																																		BgL_iportz00_13282
																																			=
																																			BgL_iportz00_9554;
																																		BgL_lastzd2matchzd2_13283
																																			=
																																			BgL_newzd2matchzd2_9558;
																																		BgL_forwardz00_13284
																																			=
																																			(1L +
																																			BgL_forwardz00_9556);
																																		BgL_bufposz00_13286
																																			=
																																			BgL_bufposz00_9557;
																																		BgL_bufposz00_9483
																																			=
																																			BgL_bufposz00_13286;
																																		BgL_forwardz00_9482
																																			=
																																			BgL_forwardz00_13284;
																																		BgL_lastzd2matchzd2_9481
																																			=
																																			BgL_lastzd2matchzd2_13283;
																																		BgL_iportz00_9480
																																			=
																																			BgL_iportz00_13282;
																																		goto
																																			BgL_statezd224zd21084z00_9343;
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																				}
																		}
																	}
																else
																	{	/* Unsafe/url.scm 110 */
																		if (((long) (BgL_curz00_9379) == 37L))
																			{	/* Unsafe/url.scm 110 */
																				BgL_iportz00_9631 = BgL_iportz00_9373;
																				BgL_lastzd2matchzd2_9632 =
																					BgL_lastzd2matchzd2_9374;
																				BgL_forwardz00_9633 =
																					(1L + BgL_forwardz00_9375);
																				BgL_bufposz00_9634 = BgL_bufposz00_9376;
																			BgL_statezd24zd21064z00_9359:
																				{	/* Unsafe/url.scm 110 */
																					long BgL_newzd2matchzd2_9635;

																					{	/* Unsafe/url.scm 110 */
																						obj_t BgL_tmpz00_13291;

																						BgL_tmpz00_13291 =
																							((obj_t) BgL_iportz00_9631);
																						RGC_STOP_MATCH(BgL_tmpz00_13291,
																							BgL_forwardz00_9633);
																					}
																					BgL_newzd2matchzd2_9635 = 2L;
																					if (
																						(BgL_forwardz00_9633 ==
																							BgL_bufposz00_9634))
																						{	/* Unsafe/url.scm 110 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_9631)))
																								{	/* Unsafe/url.scm 110 */
																									long BgL_arg2307z00_9636;
																									long BgL_arg2309z00_9637;

																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_13299;

																										BgL_tmpz00_13299 =
																											((obj_t)
																											BgL_iportz00_9631);
																										BgL_arg2307z00_9636 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_13299);
																									}
																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_13302;

																										BgL_tmpz00_13302 =
																											((obj_t)
																											BgL_iportz00_9631);
																										BgL_arg2309z00_9637 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_13302);
																									}
																									{
																										long BgL_bufposz00_13306;
																										long BgL_forwardz00_13305;

																										BgL_forwardz00_13305 =
																											BgL_arg2307z00_9636;
																										BgL_bufposz00_13306 =
																											BgL_arg2309z00_9637;
																										BgL_bufposz00_9634 =
																											BgL_bufposz00_13306;
																										BgL_forwardz00_9633 =
																											BgL_forwardz00_13305;
																										goto
																											BgL_statezd24zd21064z00_9359;
																									}
																								}
																							else
																								{	/* Unsafe/url.scm 110 */
																									BgL_matchz00_9649 =
																										BgL_newzd2matchzd2_9635;
																								}
																						}
																					else
																						{	/* Unsafe/url.scm 110 */
																							int BgL_curz00_9638;

																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_13307;

																								BgL_tmpz00_13307 =
																									((obj_t) BgL_iportz00_9631);
																								BgL_curz00_9638 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_13307,
																									BgL_forwardz00_9633);
																							}
																							{	/* Unsafe/url.scm 110 */

																								if (
																									((long) (BgL_curz00_9638) ==
																										58L))
																									{	/* Unsafe/url.scm 110 */
																										long BgL_arg2311z00_9639;

																										BgL_arg2311z00_9639 =
																											(1L +
																											BgL_forwardz00_9633);
																										{	/* Unsafe/url.scm 110 */
																											long
																												BgL_newzd2matchzd2_9640;
																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_13314;

																												BgL_tmpz00_13314 =
																													((obj_t)
																													BgL_iportz00_9631);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_13314,
																													BgL_arg2311z00_9639);
																											}
																											BgL_newzd2matchzd2_9640 =
																												1L;
																											BgL_matchz00_9649 =
																												BgL_newzd2matchzd2_9640;
																									}}
																								else
																									{	/* Unsafe/url.scm 110 */
																										bool_t
																											BgL_test4895z00_13317;
																										{	/* Unsafe/url.scm 110 */
																											bool_t
																												BgL_test4896z00_13318;
																											if (((long)
																													(BgL_curz00_9638) >=
																													48L))
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4896z00_13318
																														=
																														((long)
																														(BgL_curz00_9638) <
																														58L);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4896z00_13318
																														= ((bool_t) 0);
																												}
																											if (BgL_test4896z00_13318)
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4895z00_13317
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													bool_t
																														BgL_test4898z00_13324;
																													if (((long)
																															(BgL_curz00_9638)
																															>= 65L))
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4898z00_13324
																																=
																																((long)
																																(BgL_curz00_9638)
																																< 71L);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4898z00_13324
																																= ((bool_t) 0);
																														}
																													if (BgL_test4898z00_13324)
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4895z00_13317
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															if (
																																((long)
																																	(BgL_curz00_9638)
																																	>= 97L))
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4895z00_13317
																																		=
																																		((long)
																																		(BgL_curz00_9638)
																																		< 103L);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4895z00_13317
																																		=
																																		((bool_t)
																																		0);
																																}
																														}
																												}
																										}
																										if (BgL_test4895z00_13317)
																											{
																												long
																													BgL_bufposz00_13339;
																												long
																													BgL_forwardz00_13337;
																												long
																													BgL_lastzd2matchzd2_13336;
																												obj_t
																													BgL_iportz00_13335;
																												BgL_iportz00_13335 =
																													BgL_iportz00_9631;
																												BgL_lastzd2matchzd2_13336
																													=
																													BgL_newzd2matchzd2_9635;
																												BgL_forwardz00_13337 =
																													(1L +
																													BgL_forwardz00_9633);
																												BgL_bufposz00_13339 =
																													BgL_bufposz00_9634;
																												BgL_bufposz00_9547 =
																													BgL_bufposz00_13339;
																												BgL_forwardz00_9546 =
																													BgL_forwardz00_13337;
																												BgL_lastzd2matchzd2_9545
																													=
																													BgL_lastzd2matchzd2_13336;
																												BgL_iportz00_9544 =
																													BgL_iportz00_13335;
																												goto
																													BgL_statezd223zd21083z00_9350;
																											}
																										else
																											{	/* Unsafe/url.scm 110 */
																												bool_t
																													BgL_test4901z00_13340;
																												{	/* Unsafe/url.scm 110 */
																													bool_t
																														BgL_test4902z00_13341;
																													if (((long)
																															(BgL_curz00_9638)
																															>= 47L))
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4902z00_13341
																																=
																																((long)
																																(BgL_curz00_9638)
																																< 59L);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4902z00_13341
																																= ((bool_t) 0);
																														}
																													if (BgL_test4902z00_13341)
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4901z00_13340
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															bool_t
																																BgL_test4904z00_13347;
																															if (((long)
																																	(BgL_curz00_9638)
																																	>= 64L))
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4904z00_13347
																																		=
																																		((long)
																																		(BgL_curz00_9638)
																																		< 71L);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4904z00_13347
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test4904z00_13347)
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4901z00_13340
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	if (
																																		((long)
																																			(BgL_curz00_9638)
																																			>= 97L))
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4901z00_13340
																																				=
																																				((long)
																																				(BgL_curz00_9638)
																																				< 103L);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4901z00_13340
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test4901z00_13340)
																													{	/* Unsafe/url.scm 110 */
																														BgL_matchz00_9649 =
																															BgL_newzd2matchzd2_9635;
																													}
																												else
																													{
																														long
																															BgL_bufposz00_13362;
																														long
																															BgL_forwardz00_13360;
																														long
																															BgL_lastzd2matchzd2_13359;
																														obj_t
																															BgL_iportz00_13358;
																														BgL_iportz00_13358 =
																															BgL_iportz00_9631;
																														BgL_lastzd2matchzd2_13359
																															=
																															BgL_newzd2matchzd2_9635;
																														BgL_forwardz00_13360
																															=
																															(1L +
																															BgL_forwardz00_9633);
																														BgL_bufposz00_13362
																															=
																															BgL_bufposz00_9634;
																														BgL_bufposz00_9517 =
																															BgL_bufposz00_13362;
																														BgL_forwardz00_9516
																															=
																															BgL_forwardz00_13360;
																														BgL_lastzd2matchzd2_9515
																															=
																															BgL_lastzd2matchzd2_13359;
																														BgL_iportz00_9514 =
																															BgL_iportz00_13358;
																														goto
																															BgL_statezd216zd21076z00_9347;
																													}
																											}
																									}
																							}
																						}
																				}
																			}
																		else
																			{	/* Unsafe/url.scm 110 */
																				bool_t BgL_test4907z00_13364;

																				{	/* Unsafe/url.scm 110 */
																					bool_t BgL_test4908z00_13365;

																					if (((long) (BgL_curz00_9379) == 33L))
																						{	/* Unsafe/url.scm 110 */
																							BgL_test4908z00_13365 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Unsafe/url.scm 110 */
																							BgL_test4908z00_13365 =
																								(
																								(long) (BgL_curz00_9379) ==
																								32L);
																						}
																					if (BgL_test4908z00_13365)
																						{	/* Unsafe/url.scm 110 */
																							BgL_test4907z00_13364 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Unsafe/url.scm 110 */
																							if (
																								((long) (BgL_curz00_9379) ==
																									36L))
																								{	/* Unsafe/url.scm 110 */
																									BgL_test4907z00_13364 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/url.scm 110 */
																									bool_t BgL_test4911z00_13374;

																									if (
																										((long) (BgL_curz00_9379) >=
																											38L))
																										{	/* Unsafe/url.scm 110 */
																											BgL_test4911z00_13374 =
																												(
																												(long) (BgL_curz00_9379)
																												< 47L);
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											BgL_test4911z00_13374 =
																												((bool_t) 0);
																										}
																									if (BgL_test4911z00_13374)
																										{	/* Unsafe/url.scm 110 */
																											BgL_test4907z00_13364 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											bool_t
																												BgL_test4913z00_13380;
																											if (((long)
																													(BgL_curz00_9379) >=
																													48L))
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4913z00_13380
																														=
																														((long)
																														(BgL_curz00_9379) <
																														58L);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4913z00_13380
																														= ((bool_t) 0);
																												}
																											if (BgL_test4913z00_13380)
																												{	/* Unsafe/url.scm 110 */
																													BgL_test4907z00_13364
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													if (
																														((long)
																															(BgL_curz00_9379)
																															== 59L))
																														{	/* Unsafe/url.scm 110 */
																															BgL_test4907z00_13364
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/url.scm 110 */
																															if (
																																((long)
																																	(BgL_curz00_9379)
																																	== 61L))
																																{	/* Unsafe/url.scm 110 */
																																	BgL_test4907z00_13364
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Unsafe/url.scm 110 */
																																	bool_t
																																		BgL_test4917z00_13392;
																																	if (((long)
																																			(BgL_curz00_9379)
																																			>= 65L))
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4917z00_13392
																																				=
																																				((long)
																																				(BgL_curz00_9379)
																																				< 91L);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4917z00_13392
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test4917z00_13392)
																																		{	/* Unsafe/url.scm 110 */
																																			BgL_test4907z00_13364
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			if (
																																				((long)
																																					(BgL_curz00_9379)
																																					==
																																					95L))
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_test4907z00_13364
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					bool_t
																																						BgL_test4920z00_13401;
																																					if ((
																																							(long)
																																							(BgL_curz00_9379)
																																							>=
																																							97L))
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4920z00_13401
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9379)
																																								<
																																								123L);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4920z00_13401
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test4920z00_13401)
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4907z00_13364
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							if (((long) (BgL_curz00_9379) == 124L))
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4907z00_13364
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4907z00_13364
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_9379)
																																										==
																																										126L);
																				}}}}}}}}}}}
																				if (BgL_test4907z00_13364)
																					{	/* Unsafe/url.scm 110 */
																						BgL_iportz00_9623 =
																							BgL_iportz00_9373;
																						BgL_lastzd2matchzd2_9624 =
																							BgL_lastzd2matchzd2_9374;
																						BgL_forwardz00_9625 =
																							(1L + BgL_forwardz00_9375);
																						BgL_bufposz00_9626 =
																							BgL_bufposz00_9376;
																					BgL_statezd23zd21063z00_9358:
																						{	/* Unsafe/url.scm 110 */
																							long BgL_newzd2matchzd2_9627;

																							{	/* Unsafe/url.scm 110 */
																								obj_t BgL_tmpz00_13412;

																								BgL_tmpz00_13412 =
																									((obj_t) BgL_iportz00_9623);
																								RGC_STOP_MATCH(BgL_tmpz00_13412,
																									BgL_forwardz00_9625);
																							}
																							BgL_newzd2matchzd2_9627 = 2L;
																							if (
																								(BgL_forwardz00_9625 ==
																									BgL_bufposz00_9626))
																								{	/* Unsafe/url.scm 110 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_9623)))
																										{	/* Unsafe/url.scm 110 */
																											long BgL_arg2274z00_9628;
																											long BgL_arg2275z00_9629;

																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_13420;

																												BgL_tmpz00_13420 =
																													((obj_t)
																													BgL_iportz00_9623);
																												BgL_arg2274z00_9628 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_13420);
																											}
																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_13423;

																												BgL_tmpz00_13423 =
																													((obj_t)
																													BgL_iportz00_9623);
																												BgL_arg2275z00_9629 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_13423);
																											}
																											{
																												long
																													BgL_bufposz00_13427;
																												long
																													BgL_forwardz00_13426;
																												BgL_forwardz00_13426 =
																													BgL_arg2274z00_9628;
																												BgL_bufposz00_13427 =
																													BgL_arg2275z00_9629;
																												BgL_bufposz00_9626 =
																													BgL_bufposz00_13427;
																												BgL_forwardz00_9625 =
																													BgL_forwardz00_13426;
																												goto
																													BgL_statezd23zd21063z00_9358;
																											}
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											BgL_matchz00_9649 =
																												BgL_newzd2matchzd2_9627;
																										}
																								}
																							else
																								{	/* Unsafe/url.scm 110 */
																									int BgL_curz00_9630;

																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_13428;

																										BgL_tmpz00_13428 =
																											((obj_t)
																											BgL_iportz00_9623);
																										BgL_curz00_9630 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_13428,
																											BgL_forwardz00_9625);
																									}
																									{	/* Unsafe/url.scm 110 */

																										if (
																											((long) (BgL_curz00_9630)
																												== 64L))
																											{
																												long
																													BgL_bufposz00_13438;
																												long
																													BgL_forwardz00_13436;
																												long
																													BgL_lastzd2matchzd2_13435;
																												obj_t
																													BgL_iportz00_13434;
																												BgL_iportz00_13434 =
																													BgL_iportz00_9623;
																												BgL_lastzd2matchzd2_13435
																													=
																													BgL_newzd2matchzd2_9627;
																												BgL_forwardz00_13436 =
																													(1L +
																													BgL_forwardz00_9625);
																												BgL_bufposz00_13438 =
																													BgL_bufposz00_9626;
																												BgL_bufposz00_9415 =
																													BgL_bufposz00_13438;
																												BgL_forwardz00_9414 =
																													BgL_forwardz00_13436;
																												BgL_lastzd2matchzd2_9413
																													=
																													BgL_lastzd2matchzd2_13435;
																												BgL_iportz00_9412 =
																													BgL_iportz00_13434;
																												goto
																													BgL_statezd212zd21072z00_9337;
																											}
																										else
																											{	/* Unsafe/url.scm 110 */
																												if (
																													((long)
																														(BgL_curz00_9630) ==
																														60L))
																													{
																														long
																															BgL_bufposz00_13446;
																														long
																															BgL_forwardz00_13444;
																														long
																															BgL_lastzd2matchzd2_13443;
																														obj_t
																															BgL_iportz00_13442;
																														BgL_iportz00_13442 =
																															BgL_iportz00_9623;
																														BgL_lastzd2matchzd2_13443
																															=
																															BgL_newzd2matchzd2_9627;
																														BgL_forwardz00_13444
																															=
																															(1L +
																															BgL_forwardz00_9625);
																														BgL_bufposz00_13446
																															=
																															BgL_bufposz00_9626;
																														BgL_bufposz00_9537 =
																															BgL_bufposz00_13446;
																														BgL_forwardz00_9536
																															=
																															BgL_forwardz00_13444;
																														BgL_lastzd2matchzd2_9535
																															=
																															BgL_lastzd2matchzd2_13443;
																														BgL_iportz00_9534 =
																															BgL_iportz00_13442;
																														goto
																															BgL_statezd222zd21082z00_9349;
																													}
																												else
																													{	/* Unsafe/url.scm 110 */
																														if (
																															((long)
																																(BgL_curz00_9630)
																																== 58L))
																															{
																																long
																																	BgL_bufposz00_13454;
																																long
																																	BgL_forwardz00_13452;
																																long
																																	BgL_lastzd2matchzd2_13451;
																																obj_t
																																	BgL_iportz00_13450;
																																BgL_iportz00_13450
																																	=
																																	BgL_iportz00_9623;
																																BgL_lastzd2matchzd2_13451
																																	=
																																	BgL_newzd2matchzd2_9627;
																																BgL_forwardz00_13452
																																	=
																																	(1L +
																																	BgL_forwardz00_9625);
																																BgL_bufposz00_13454
																																	=
																																	BgL_bufposz00_9626;
																																BgL_bufposz00_9430
																																	=
																																	BgL_bufposz00_13454;
																																BgL_forwardz00_9429
																																	=
																																	BgL_forwardz00_13452;
																																BgL_lastzd2matchzd2_9428
																																	=
																																	BgL_lastzd2matchzd2_13451;
																																BgL_iportz00_9427
																																	=
																																	BgL_iportz00_13450;
																																goto
																																	BgL_statezd221zd21081z00_9338;
																															}
																														else
																															{	/* Unsafe/url.scm 110 */
																																if (
																																	((long)
																																		(BgL_curz00_9630)
																																		== 47L))
																																	{
																																		long
																																			BgL_bufposz00_13462;
																																		long
																																			BgL_forwardz00_13460;
																																		long
																																			BgL_lastzd2matchzd2_13459;
																																		obj_t
																																			BgL_iportz00_13458;
																																		BgL_iportz00_13458
																																			=
																																			BgL_iportz00_9623;
																																		BgL_lastzd2matchzd2_13459
																																			=
																																			BgL_newzd2matchzd2_9627;
																																		BgL_forwardz00_13460
																																			=
																																			(1L +
																																			BgL_forwardz00_9625);
																																		BgL_bufposz00_13462
																																			=
																																			BgL_bufposz00_9626;
																																		BgL_bufposz00_9401
																																			=
																																			BgL_bufposz00_13462;
																																		BgL_forwardz00_9400
																																			=
																																			BgL_forwardz00_13460;
																																		BgL_lastzd2matchzd2_9399
																																			=
																																			BgL_lastzd2matchzd2_13459;
																																		BgL_iportz00_9398
																																			=
																																			BgL_iportz00_13458;
																																		goto
																																			BgL_statezd29zd21069z00_9336;
																																	}
																																else
																																	{	/* Unsafe/url.scm 110 */
																																		if (
																																			((long)
																																				(BgL_curz00_9630)
																																				== 37L))
																																			{
																																				long
																																					BgL_bufposz00_13470;
																																				long
																																					BgL_forwardz00_13468;
																																				long
																																					BgL_lastzd2matchzd2_13467;
																																				obj_t
																																					BgL_iportz00_13466;
																																				BgL_iportz00_13466
																																					=
																																					BgL_iportz00_9623;
																																				BgL_lastzd2matchzd2_13467
																																					=
																																					BgL_newzd2matchzd2_9627;
																																				BgL_forwardz00_13468
																																					=
																																					(1L +
																																					BgL_forwardz00_9625);
																																				BgL_bufposz00_13470
																																					=
																																					BgL_bufposz00_9626;
																																				BgL_bufposz00_9383
																																					=
																																					BgL_bufposz00_13470;
																																				BgL_forwardz00_9382
																																					=
																																					BgL_forwardz00_13468;
																																				BgL_lastzd2matchzd2_9381
																																					=
																																					BgL_lastzd2matchzd2_13467;
																																				BgL_iportz00_9380
																																					=
																																					BgL_iportz00_13466;
																																				goto
																																					BgL_statezd220zd21080z00_9334;
																																			}
																																		else
																																			{	/* Unsafe/url.scm 110 */
																																				bool_t
																																					BgL_test4930z00_13471;
																																				{	/* Unsafe/url.scm 110 */
																																					bool_t
																																						BgL_test4931z00_13472;
																																					if ((
																																							(long)
																																							(BgL_curz00_9630)
																																							==
																																							33L))
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4931z00_13472
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4931z00_13472
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9630)
																																								==
																																								32L);
																																						}
																																					if (BgL_test4931z00_13472)
																																						{	/* Unsafe/url.scm 110 */
																																							BgL_test4930z00_13471
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/url.scm 110 */
																																							if (((long) (BgL_curz00_9630) == 36L))
																																								{	/* Unsafe/url.scm 110 */
																																									BgL_test4930z00_13471
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/url.scm 110 */
																																									bool_t
																																										BgL_test4934z00_13481;
																																									if (((long) (BgL_curz00_9630) >= 38L))
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4934z00_13481
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9630)
																																												<
																																												47L);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4934z00_13481
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test4934z00_13481)
																																										{	/* Unsafe/url.scm 110 */
																																											BgL_test4930z00_13471
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/url.scm 110 */
																																											bool_t
																																												BgL_test4936z00_13487;
																																											if (((long) (BgL_curz00_9630) >= 48L))
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4936z00_13487
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_9630)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4936z00_13487
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test4936z00_13487)
																																												{	/* Unsafe/url.scm 110 */
																																													BgL_test4930z00_13471
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/url.scm 110 */
																																													if (((long) (BgL_curz00_9630) == 59L))
																																														{	/* Unsafe/url.scm 110 */
																																															BgL_test4930z00_13471
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/url.scm 110 */
																																															if (((long) (BgL_curz00_9630) == 61L))
																																																{	/* Unsafe/url.scm 110 */
																																																	BgL_test4930z00_13471
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/url.scm 110 */
																																																	bool_t
																																																		BgL_test4940z00_13499;
																																																	if (((long) (BgL_curz00_9630) >= 65L))
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4940z00_13499
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9630)
																																																				<
																																																				91L);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4940z00_13499
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																	if (BgL_test4940z00_13499)
																																																		{	/* Unsafe/url.scm 110 */
																																																			BgL_test4930z00_13471
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/url.scm 110 */
																																																			if (((long) (BgL_curz00_9630) == 95L))
																																																				{	/* Unsafe/url.scm 110 */
																																																					BgL_test4930z00_13471
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Unsafe/url.scm 110 */
																																																					bool_t
																																																						BgL_test4943z00_13508;
																																																					if (((long) (BgL_curz00_9630) >= 97L))
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4943z00_13508
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9630)
																																																								<
																																																								123L);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4943z00_13508
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test4943z00_13508)
																																																						{	/* Unsafe/url.scm 110 */
																																																							BgL_test4930z00_13471
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/url.scm 110 */
																																																							if (((long) (BgL_curz00_9630) == 124L))
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4930z00_13471
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/url.scm 110 */
																																																									BgL_test4930z00_13471
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9630)
																																																										==
																																																										126L);
																																				}}}}}}}}}}}
																																				if (BgL_test4930z00_13471)
																																					{
																																						long
																																							BgL_bufposz00_13523;
																																						long
																																							BgL_forwardz00_13521;
																																						long
																																							BgL_lastzd2matchzd2_13520;
																																						obj_t
																																							BgL_iportz00_13519;
																																						BgL_iportz00_13519
																																							=
																																							BgL_iportz00_9623;
																																						BgL_lastzd2matchzd2_13520
																																							=
																																							BgL_newzd2matchzd2_9627;
																																						BgL_forwardz00_13521
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_9625);
																																						BgL_bufposz00_13523
																																							=
																																							BgL_bufposz00_9626;
																																						BgL_bufposz00_9393
																																							=
																																							BgL_bufposz00_13523;
																																						BgL_forwardz00_9392
																																							=
																																							BgL_forwardz00_13521;
																																						BgL_lastzd2matchzd2_9391
																																							=
																																							BgL_lastzd2matchzd2_13520;
																																						BgL_iportz00_9390
																																							=
																																							BgL_iportz00_13519;
																																						goto
																																							BgL_statezd219zd21079z00_9335;
																																					}
																																				else
																																					{
																																						long
																																							BgL_bufposz00_13528;
																																						long
																																							BgL_forwardz00_13526;
																																						long
																																							BgL_lastzd2matchzd2_13525;
																																						obj_t
																																							BgL_iportz00_13524;
																																						BgL_iportz00_13524
																																							=
																																							BgL_iportz00_9623;
																																						BgL_lastzd2matchzd2_13525
																																							=
																																							BgL_newzd2matchzd2_9627;
																																						BgL_forwardz00_13526
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_9625);
																																						BgL_bufposz00_13528
																																							=
																																							BgL_bufposz00_9626;
																																						BgL_bufposz00_9517
																																							=
																																							BgL_bufposz00_13528;
																																						BgL_forwardz00_9516
																																							=
																																							BgL_forwardz00_13526;
																																						BgL_lastzd2matchzd2_9515
																																							=
																																							BgL_lastzd2matchzd2_13525;
																																						BgL_iportz00_9514
																																							=
																																							BgL_iportz00_13524;
																																						goto
																																							BgL_statezd216zd21076z00_9347;
																																					}
																																			}
																																	}
																															}
																													}
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/url.scm 110 */
																						if (
																							((long) (BgL_curz00_9379) == 13L))
																							{	/* Unsafe/url.scm 110 */
																								BgL_iportz00_9452 =
																									BgL_iportz00_9373;
																								BgL_lastzd2matchzd2_9453 =
																									BgL_lastzd2matchzd2_9374;
																								BgL_forwardz00_9454 =
																									(1L + BgL_forwardz00_9375);
																								BgL_bufposz00_9455 =
																									BgL_bufposz00_9376;
																							BgL_statezd22zd21062z00_9340:
																								{	/* Unsafe/url.scm 110 */
																									long BgL_newzd2matchzd2_9456;

																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_13533;

																										BgL_tmpz00_13533 =
																											((obj_t)
																											BgL_iportz00_9452);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_13533,
																											BgL_forwardz00_9454);
																									}
																									BgL_newzd2matchzd2_9456 = 2L;
																									if (
																										(BgL_forwardz00_9454 ==
																											BgL_bufposz00_9455))
																										{	/* Unsafe/url.scm 110 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_9452)))
																												{	/* Unsafe/url.scm 110 */
																													long
																														BgL_arg1931z00_9457;
																													long
																														BgL_arg1932z00_9458;
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_13541;
																														BgL_tmpz00_13541 =
																															((obj_t)
																															BgL_iportz00_9452);
																														BgL_arg1931z00_9457
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_13541);
																													}
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_13544;
																														BgL_tmpz00_13544 =
																															((obj_t)
																															BgL_iportz00_9452);
																														BgL_arg1932z00_9458
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_13544);
																													}
																													{
																														long
																															BgL_bufposz00_13548;
																														long
																															BgL_forwardz00_13547;
																														BgL_forwardz00_13547
																															=
																															BgL_arg1931z00_9457;
																														BgL_bufposz00_13548
																															=
																															BgL_arg1932z00_9458;
																														BgL_bufposz00_9455 =
																															BgL_bufposz00_13548;
																														BgL_forwardz00_9454
																															=
																															BgL_forwardz00_13547;
																														goto
																															BgL_statezd22zd21062z00_9340;
																													}
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_matchz00_9649 =
																														BgL_newzd2matchzd2_9456;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											int BgL_curz00_9459;

																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_13549;

																												BgL_tmpz00_13549 =
																													((obj_t)
																													BgL_iportz00_9452);
																												BgL_curz00_9459 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_13549,
																													BgL_forwardz00_9454);
																											}
																											{	/* Unsafe/url.scm 110 */

																												if (
																													((long)
																														(BgL_curz00_9459) ==
																														58L))
																													{	/* Unsafe/url.scm 110 */
																														long
																															BgL_arg1934z00_9460;
																														BgL_arg1934z00_9460
																															=
																															(1L +
																															BgL_forwardz00_9454);
																														{	/* Unsafe/url.scm 110 */
																															long
																																BgL_newzd2matchzd2_9461;
																															{	/* Unsafe/url.scm 110 */
																																obj_t
																																	BgL_tmpz00_13556;
																																BgL_tmpz00_13556
																																	=
																																	((obj_t)
																																	BgL_iportz00_9452);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_13556,
																																	BgL_arg1934z00_9460);
																															}
																															BgL_newzd2matchzd2_9461
																																= 1L;
																															BgL_matchz00_9649
																																=
																																BgL_newzd2matchzd2_9461;
																													}}
																												else
																													{	/* Unsafe/url.scm 110 */
																														if (
																															((long)
																																(BgL_curz00_9459)
																																== 10L))
																															{	/* Unsafe/url.scm 110 */
																																BgL_iportz00_9488
																																	=
																																	BgL_iportz00_9452;
																																BgL_lastzd2matchzd2_9489
																																	=
																																	BgL_newzd2matchzd2_9456;
																																BgL_forwardz00_9490
																																	=
																																	(1L +
																																	BgL_forwardz00_9454);
																																BgL_bufposz00_9491
																																	=
																																	BgL_bufposz00_9455;
																															BgL_statezd231zd21091z00_9344:
																																{	/* Unsafe/url.scm 110 */
																																	long
																																		BgL_newzd2matchzd2_9492;
																																	{	/* Unsafe/url.scm 110 */
																																		obj_t
																																			BgL_tmpz00_13562;
																																		BgL_tmpz00_13562
																																			=
																																			((obj_t)
																																			BgL_iportz00_9488);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_13562,
																																			BgL_forwardz00_9490);
																																	}
																																	BgL_newzd2matchzd2_9492
																																		= 2L;
																																	if (
																																		(BgL_forwardz00_9490
																																			==
																																			BgL_bufposz00_9491))
																																		{	/* Unsafe/url.scm 110 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_9488)))
																																				{	/* Unsafe/url.scm 110 */
																																					long
																																						BgL_arg1983z00_9493;
																																					long
																																						BgL_arg1984z00_9494;
																																					{	/* Unsafe/url.scm 110 */
																																						obj_t
																																							BgL_tmpz00_13570;
																																						BgL_tmpz00_13570
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_9488);
																																						BgL_arg1983z00_9493
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_13570);
																																					}
																																					{	/* Unsafe/url.scm 110 */
																																						obj_t
																																							BgL_tmpz00_13573;
																																						BgL_tmpz00_13573
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_9488);
																																						BgL_arg1984z00_9494
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_13573);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_13577;
																																						long
																																							BgL_forwardz00_13576;
																																						BgL_forwardz00_13576
																																							=
																																							BgL_arg1983z00_9493;
																																						BgL_bufposz00_13577
																																							=
																																							BgL_arg1984z00_9494;
																																						BgL_bufposz00_9491
																																							=
																																							BgL_bufposz00_13577;
																																						BgL_forwardz00_9490
																																							=
																																							BgL_forwardz00_13576;
																																						goto
																																							BgL_statezd231zd21091z00_9344;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/url.scm 110 */
																																					BgL_matchz00_9649
																																						=
																																						BgL_newzd2matchzd2_9492;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/url.scm 110 */
																																			int
																																				BgL_curz00_9495;
																																			{	/* Unsafe/url.scm 110 */
																																				obj_t
																																					BgL_tmpz00_13578;
																																				BgL_tmpz00_13578
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_9488);
																																				BgL_curz00_9495
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_13578,
																																					BgL_forwardz00_9490);
																																			}
																																			{	/* Unsafe/url.scm 110 */

																																				if (
																																					((long) (BgL_curz00_9495) == 58L))
																																					{	/* Unsafe/url.scm 110 */
																																						long
																																							BgL_arg1987z00_9496;
																																						BgL_arg1987z00_9496
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_9490);
																																						{	/* Unsafe/url.scm 110 */
																																							long
																																								BgL_newzd2matchzd2_9497;
																																							{	/* Unsafe/url.scm 110 */
																																								obj_t
																																									BgL_tmpz00_13585;
																																								BgL_tmpz00_13585
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_9488);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_13585,
																																									BgL_arg1987z00_9496);
																																							}
																																							BgL_newzd2matchzd2_9497
																																								=
																																								1L;
																																							BgL_matchz00_9649
																																								=
																																								BgL_newzd2matchzd2_9497;
																																					}}
																																				else
																																					{	/* Unsafe/url.scm 110 */
																																						bool_t
																																							BgL_test4954z00_13588;
																																						if (
																																							((long) (BgL_curz00_9495) == 47L))
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_test4954z00_13588
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/url.scm 110 */
																																								if (((long) (BgL_curz00_9495) == 58L))
																																									{	/* Unsafe/url.scm 110 */
																																										BgL_test4954z00_13588
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/url.scm 110 */
																																										BgL_test4954z00_13588
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_9495)
																																											==
																																											64L);
																																							}}
																																						if (BgL_test4954z00_13588)
																																							{	/* Unsafe/url.scm 110 */
																																								BgL_matchz00_9649
																																									=
																																									BgL_newzd2matchzd2_9492;
																																							}
																																						else
																																							{
																																								long
																																									BgL_bufposz00_13601;
																																								long
																																									BgL_forwardz00_13599;
																																								long
																																									BgL_lastzd2matchzd2_13598;
																																								obj_t
																																									BgL_iportz00_13597;
																																								BgL_iportz00_13597
																																									=
																																									BgL_iportz00_9488;
																																								BgL_lastzd2matchzd2_13598
																																									=
																																									BgL_newzd2matchzd2_9492;
																																								BgL_forwardz00_13599
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_9490);
																																								BgL_bufposz00_13601
																																									=
																																									BgL_bufposz00_9491;
																																								BgL_bufposz00_9517
																																									=
																																									BgL_bufposz00_13601;
																																								BgL_forwardz00_9516
																																									=
																																									BgL_forwardz00_13599;
																																								BgL_lastzd2matchzd2_9515
																																									=
																																									BgL_lastzd2matchzd2_13598;
																																								BgL_iportz00_9514
																																									=
																																									BgL_iportz00_13597;
																																								goto
																																									BgL_statezd216zd21076z00_9347;
																																							}
																																					}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Unsafe/url.scm 110 */
																																bool_t
																																	BgL_test4957z00_13603;
																																switch ((long)
																																	(BgL_curz00_9459))
																																	{
																																	case 10L:

																																		BgL_test4957z00_13603 = ((bool_t) 1);
																																		break;
																																	case 47L:

																																		BgL_test4957z00_13603 = ((bool_t) 1);
																																		break;
																																	case 58L:

																																		BgL_test4957z00_13603 = ((bool_t) 1);
																																		break;
																																	default:
																																		BgL_test4957z00_13603 = ((long) (BgL_curz00_9459) == 64L);
																																	}
																																if (BgL_test4957z00_13603)
																																	{	/* Unsafe/url.scm 110 */
																																		BgL_matchz00_9649
																																			=
																																			BgL_newzd2matchzd2_9456;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_13612;
																																		long
																																			BgL_forwardz00_13610;
																																		long
																																			BgL_lastzd2matchzd2_13609;
																																		obj_t
																																			BgL_iportz00_13608;
																																		BgL_iportz00_13608
																																			=
																																			BgL_iportz00_9452;
																																		BgL_lastzd2matchzd2_13609
																																			=
																																			BgL_newzd2matchzd2_9456;
																																		BgL_forwardz00_13610
																																			=
																																			(1L +
																																			BgL_forwardz00_9454);
																																		BgL_bufposz00_13612
																																			=
																																			BgL_bufposz00_9455;
																																		BgL_bufposz00_9517
																																			=
																																			BgL_bufposz00_13612;
																																		BgL_forwardz00_9516
																																			=
																																			BgL_forwardz00_13610;
																																		BgL_lastzd2matchzd2_9515
																																			=
																																			BgL_lastzd2matchzd2_13609;
																																		BgL_iportz00_9514
																																			=
																																			BgL_iportz00_13608;
																																		goto
																																			BgL_statezd216zd21076z00_9347;
																																	}
																															}
																													}
																											}
																										}
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 110 */
																								BgL_iportz00_9442 =
																									BgL_iportz00_9373;
																								BgL_lastzd2matchzd2_9443 =
																									BgL_lastzd2matchzd2_9374;
																								BgL_forwardz00_9444 =
																									(1L + BgL_forwardz00_9375);
																								BgL_bufposz00_9445 =
																									BgL_bufposz00_9376;
																							BgL_statezd21zd21061z00_9339:
																								{	/* Unsafe/url.scm 110 */
																									long BgL_newzd2matchzd2_9446;

																									{	/* Unsafe/url.scm 110 */
																										obj_t BgL_tmpz00_13614;

																										BgL_tmpz00_13614 =
																											((obj_t)
																											BgL_iportz00_9442);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_13614,
																											BgL_forwardz00_9444);
																									}
																									BgL_newzd2matchzd2_9446 = 2L;
																									if (
																										(BgL_forwardz00_9444 ==
																											BgL_bufposz00_9445))
																										{	/* Unsafe/url.scm 110 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_9442)))
																												{	/* Unsafe/url.scm 110 */
																													long
																														BgL_arg1918z00_9447;
																													long
																														BgL_arg1919z00_9448;
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_13622;
																														BgL_tmpz00_13622 =
																															((obj_t)
																															BgL_iportz00_9442);
																														BgL_arg1918z00_9447
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_13622);
																													}
																													{	/* Unsafe/url.scm 110 */
																														obj_t
																															BgL_tmpz00_13625;
																														BgL_tmpz00_13625 =
																															((obj_t)
																															BgL_iportz00_9442);
																														BgL_arg1919z00_9448
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_13625);
																													}
																													{
																														long
																															BgL_bufposz00_13629;
																														long
																															BgL_forwardz00_13628;
																														BgL_forwardz00_13628
																															=
																															BgL_arg1918z00_9447;
																														BgL_bufposz00_13629
																															=
																															BgL_arg1919z00_9448;
																														BgL_bufposz00_9445 =
																															BgL_bufposz00_13629;
																														BgL_forwardz00_9444
																															=
																															BgL_forwardz00_13628;
																														goto
																															BgL_statezd21zd21061z00_9339;
																													}
																												}
																											else
																												{	/* Unsafe/url.scm 110 */
																													BgL_matchz00_9649 =
																														BgL_newzd2matchzd2_9446;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 110 */
																											int BgL_curz00_9449;

																											{	/* Unsafe/url.scm 110 */
																												obj_t BgL_tmpz00_13630;

																												BgL_tmpz00_13630 =
																													((obj_t)
																													BgL_iportz00_9442);
																												BgL_curz00_9449 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_13630,
																													BgL_forwardz00_9444);
																											}
																											{	/* Unsafe/url.scm 110 */

																												if (
																													((long)
																														(BgL_curz00_9449) ==
																														58L))
																													{	/* Unsafe/url.scm 110 */
																														long
																															BgL_arg1921z00_9450;
																														BgL_arg1921z00_9450
																															=
																															(1L +
																															BgL_forwardz00_9444);
																														{	/* Unsafe/url.scm 110 */
																															long
																																BgL_newzd2matchzd2_9451;
																															{	/* Unsafe/url.scm 110 */
																																obj_t
																																	BgL_tmpz00_13637;
																																BgL_tmpz00_13637
																																	=
																																	((obj_t)
																																	BgL_iportz00_9442);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_13637,
																																	BgL_arg1921z00_9450);
																															}
																															BgL_newzd2matchzd2_9451
																																= 1L;
																															BgL_matchz00_9649
																																=
																																BgL_newzd2matchzd2_9451;
																													}}
																												else
																													{	/* Unsafe/url.scm 110 */
																														bool_t
																															BgL_test4961z00_13640;
																														if (((long)
																																(BgL_curz00_9449)
																																== 47L))
																															{	/* Unsafe/url.scm 110 */
																																BgL_test4961z00_13640
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/url.scm 110 */
																																if (
																																	((long)
																																		(BgL_curz00_9449)
																																		== 58L))
																																	{	/* Unsafe/url.scm 110 */
																																		BgL_test4961z00_13640
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/url.scm 110 */
																																		BgL_test4961z00_13640
																																			=
																																			((long)
																																			(BgL_curz00_9449)
																																			== 64L);
																															}}
																														if (BgL_test4961z00_13640)
																															{	/* Unsafe/url.scm 110 */
																																BgL_matchz00_9649
																																	=
																																	BgL_newzd2matchzd2_9446;
																															}
																														else
																															{
																																long
																																	BgL_bufposz00_13653;
																																long
																																	BgL_forwardz00_13651;
																																long
																																	BgL_lastzd2matchzd2_13650;
																																obj_t
																																	BgL_iportz00_13649;
																																BgL_iportz00_13649
																																	=
																																	BgL_iportz00_9442;
																																BgL_lastzd2matchzd2_13650
																																	=
																																	BgL_newzd2matchzd2_9446;
																																BgL_forwardz00_13651
																																	=
																																	(1L +
																																	BgL_forwardz00_9444);
																																BgL_bufposz00_13653
																																	=
																																	BgL_bufposz00_9445;
																																BgL_bufposz00_9517
																																	=
																																	BgL_bufposz00_13653;
																																BgL_forwardz00_9516
																																	=
																																	BgL_forwardz00_13651;
																																BgL_lastzd2matchzd2_9515
																																	=
																																	BgL_lastzd2matchzd2_13650;
																																BgL_iportz00_9514
																																	=
																																	BgL_iportz00_13649;
																																goto
																																	BgL_statezd216zd21076z00_9347;
																															}
																													}
																											}
																										}
																								}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
								}
						}
						{	/* Unsafe/url.scm 110 */
							obj_t BgL_tmpz00_13655;

							BgL_tmpz00_13655 = ((obj_t) BgL_iportz00_8873);
							RGC_SET_FILEPOS(BgL_tmpz00_13655);
						}
						switch (BgL_matchz00_9649)
							{
							case 5L:

								{	/* Unsafe/url.scm 134 */
									obj_t BgL_arg2437z00_9652;

									{	/* Unsafe/url.scm 110 */
										bool_t BgL_test4964z00_13658;

										{	/* Unsafe/url.scm 110 */
											long BgL_arg2427z00_9648;

											{	/* Unsafe/url.scm 110 */
												obj_t BgL_tmpz00_13659;

												BgL_tmpz00_13659 = ((obj_t) BgL_iportz00_8873);
												BgL_arg2427z00_9648 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13659);
											}
											BgL_test4964z00_13658 = (BgL_arg2427z00_9648 == 0L);
										}
										if (BgL_test4964z00_13658)
											{	/* Unsafe/url.scm 110 */
												BgL_arg2437z00_9652 = BEOF;
											}
										else
											{	/* Unsafe/url.scm 110 */
												unsigned char BgL_tmpz00_13663;

												{	/* Unsafe/url.scm 110 */
													obj_t BgL_tmpz00_13664;

													BgL_tmpz00_13664 = ((obj_t) BgL_iportz00_8873);
													BgL_tmpz00_13663 =
														RGC_BUFFER_CHARACTER(BgL_tmpz00_13664);
												}
												BgL_arg2437z00_9652 = BCHAR(BgL_tmpz00_13663);
									}}
									return
										BGl_parsezd2errorzd2zz__urlz00(
										((obj_t) BgL_iportz00_8873), BGl_string4128z00zz__urlz00,
										BgL_arg2437z00_9652);
								}
								break;
							case 4L:

								return BFALSE;
								break;
							case 3L:

								{	/* Unsafe/url.scm 130 */
									obj_t BgL_val4_1269z00_9653;

									{	/* Unsafe/url.scm 110 */
										long BgL_arg2343z00_9654;

										{	/* Unsafe/url.scm 110 */
											obj_t BgL_tmpz00_13670;

											BgL_tmpz00_13670 = ((obj_t) BgL_iportz00_8873);
											BgL_arg2343z00_9654 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13670);
										}
										BgL_val4_1269z00_9653 =
											rgc_buffer_substring(
											((obj_t) BgL_iportz00_8873), 0L, BgL_arg2343z00_9654);
									}
									{	/* Unsafe/url.scm 130 */
										int BgL_tmpz00_13675;

										BgL_tmpz00_13675 = (int) (5L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_13675);
									}
									{	/* Unsafe/url.scm 130 */
										int BgL_tmpz00_13678;

										BgL_tmpz00_13678 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_13678, BFALSE);
									}
									{	/* Unsafe/url.scm 130 */
										int BgL_tmpz00_13681;

										BgL_tmpz00_13681 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_13681, BFALSE);
									}
									{	/* Unsafe/url.scm 130 */
										int BgL_tmpz00_13684;

										BgL_tmpz00_13684 = (int) (3L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_13684, BFALSE);
									}
									{	/* Unsafe/url.scm 130 */
										int BgL_tmpz00_13687;

										BgL_tmpz00_13687 = (int) (4L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_13687,
											BgL_val4_1269z00_9653);
									}
									return BgL_protocolz00_8874;
								}
								break;
							case 2L:

								{	/* Unsafe/url.scm 125 */
									obj_t BgL_hostz00_9655;

									{	/* Unsafe/url.scm 125 */
										long BgL_arg2442z00_9656;

										{	/* Unsafe/url.scm 110 */
											obj_t BgL_tmpz00_13690;

											BgL_tmpz00_13690 = ((obj_t) BgL_iportz00_8873);
											BgL_arg2442z00_9656 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13690);
										}
										BgL_hostz00_9655 =
											BGl_thezd2substringze70z35zz__urlz00(BgL_iportz00_8873,
											(int) (0L), (int) (BgL_arg2442z00_9656));
									}
									{	/* Unsafe/url.scm 125 */
										obj_t BgL_portz00_9657;

										{	/* Unsafe/url.scm 126 */
											bool_t BgL_test4965z00_13696;

											{	/* Unsafe/url.scm 126 */
												long BgL_l1z00_9658;

												BgL_l1z00_9658 =
													STRING_LENGTH(((obj_t) BgL_protocolz00_8874));
												if ((BgL_l1z00_9658 == 5L))
													{	/* Unsafe/url.scm 126 */
														int BgL_arg3828z00_9659;

														{	/* Unsafe/url.scm 126 */
															char *BgL_auxz00_13704;
															char *BgL_tmpz00_13701;

															BgL_auxz00_13704 =
																BSTRING_TO_STRING(BGl_string4133z00zz__urlz00);
															BgL_tmpz00_13701 =
																BSTRING_TO_STRING(
																((obj_t) BgL_protocolz00_8874));
															BgL_arg3828z00_9659 =
																memcmp(BgL_tmpz00_13701, BgL_auxz00_13704,
																BgL_l1z00_9658);
														}
														BgL_test4965z00_13696 =
															((long) (BgL_arg3828z00_9659) == 0L);
													}
												else
													{	/* Unsafe/url.scm 126 */
														BgL_test4965z00_13696 = ((bool_t) 0);
													}
											}
											if (BgL_test4965z00_13696)
												{	/* Unsafe/url.scm 126 */
													BgL_portz00_9657 = BINT(443L);
												}
											else
												{	/* Unsafe/url.scm 126 */
													BgL_portz00_9657 = BINT(80L);
												}
										}
										{	/* Unsafe/url.scm 126 */
											obj_t BgL_abspathz00_9660;

											BgL_abspathz00_9660 =
												BGl_z62zc3z04anonymousza31594ze3ze5zz__urlz00
												(BGl_abspathzd2grammarzd2zz__urlz00,
												((obj_t) BgL_iportz00_8873));
											{	/* Unsafe/url.scm 127 */

												{	/* Unsafe/url.scm 128 */
													obj_t BgL_val1_1271z00_9661;

													BgL_val1_1271z00_9661 = BgL_userinfoz00_9331;
													{	/* Unsafe/url.scm 128 */
														int BgL_tmpz00_13716;

														BgL_tmpz00_13716 = (int) (5L);
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_13716);
													}
													{	/* Unsafe/url.scm 128 */
														int BgL_tmpz00_13719;

														BgL_tmpz00_13719 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13719,
															BgL_val1_1271z00_9661);
													}
													{	/* Unsafe/url.scm 128 */
														int BgL_tmpz00_13722;

														BgL_tmpz00_13722 = (int) (2L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13722,
															BgL_hostz00_9655);
													}
													{	/* Unsafe/url.scm 128 */
														int BgL_tmpz00_13725;

														BgL_tmpz00_13725 = (int) (3L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13725,
															BgL_portz00_9657);
													}
													{	/* Unsafe/url.scm 128 */
														int BgL_tmpz00_13728;

														BgL_tmpz00_13728 = (int) (4L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13728,
															BgL_abspathz00_9660);
													}
													return BgL_protocolz00_8874;
												}
											}
										}
									}
								}
								break;
							case 1L:

								{	/* Unsafe/url.scm 120 */
									obj_t BgL_hostz00_9662;

									{	/* Unsafe/url.scm 120 */
										long BgL_arg2451z00_9663;

										{	/* Unsafe/url.scm 120 */
											long BgL_arg2453z00_9664;

											{	/* Unsafe/url.scm 110 */
												obj_t BgL_tmpz00_13731;

												BgL_tmpz00_13731 = ((obj_t) BgL_iportz00_8873);
												BgL_arg2453z00_9664 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13731);
											}
											BgL_arg2451z00_9663 = (BgL_arg2453z00_9664 - 1L);
										}
										BgL_hostz00_9662 =
											BGl_thezd2substringze70z35zz__urlz00(BgL_iportz00_8873,
											(int) (0L), (int) (BgL_arg2451z00_9663));
									}
									{	/* Unsafe/url.scm 120 */
										obj_t BgL_portz00_9665;

										BgL_portz00_9665 =
											BGL_PROCEDURE_CALL1
											(BGl_httpzd2portzd2grammarz00zz__urlz00,
											((obj_t) BgL_iportz00_8873));
										{	/* Unsafe/url.scm 121 */
											obj_t BgL_abspathz00_9666;

											BgL_abspathz00_9666 =
												BGl_z62zc3z04anonymousza31594ze3ze5zz__urlz00
												(BGl_abspathzd2grammarzd2zz__urlz00,
												((obj_t) BgL_iportz00_8873));
											{	/* Unsafe/url.scm 122 */

												{	/* Unsafe/url.scm 123 */
													obj_t BgL_val1_1276z00_9667;

													BgL_val1_1276z00_9667 = BgL_userinfoz00_9331;
													{	/* Unsafe/url.scm 123 */
														int BgL_tmpz00_13748;

														BgL_tmpz00_13748 = (int) (5L);
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_13748);
													}
													{	/* Unsafe/url.scm 123 */
														int BgL_tmpz00_13751;

														BgL_tmpz00_13751 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13751,
															BgL_val1_1276z00_9667);
													}
													{	/* Unsafe/url.scm 123 */
														int BgL_tmpz00_13754;

														BgL_tmpz00_13754 = (int) (2L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13754,
															BgL_hostz00_9662);
													}
													{	/* Unsafe/url.scm 123 */
														int BgL_tmpz00_13757;

														BgL_tmpz00_13757 = (int) (3L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13757,
															BgL_portz00_9665);
													}
													{	/* Unsafe/url.scm 123 */
														int BgL_tmpz00_13760;

														BgL_tmpz00_13760 = (int) (4L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_13760,
															BgL_abspathz00_9666);
													}
													return BgL_protocolz00_8874;
												}
											}
										}
									}
								}
								break;
							case 0L:

								BgL_userinfoz00_9331 =
									BGl_thezd2substringze70z35zz__urlz00(BgL_iportz00_8873,
									(int) (0L), (int) ((-1L)));
								goto BgL_ignorez00_9362;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string4129z00zz__urlz00,
									BGl_string4130z00zz__urlz00, BINT(BgL_matchz00_9649));
							}
					}
				}
			}
		}

	}



/* the-substring~0 */
	obj_t BGl_thezd2substringze70z35zz__urlz00(obj_t BgL_iportz00_8923,
		int BgL_minz00_3019, int BgL_maxz00_3020)
	{
		{	/* Unsafe/url.scm 110 */
			if (((long) (BgL_maxz00_3020) < (long) (BgL_minz00_3019)))
				{	/* Unsafe/url.scm 110 */
					long BgL_arg2346z00_3023;

					{	/* Unsafe/url.scm 110 */
						obj_t BgL_tmpz00_13773;

						BgL_tmpz00_13773 = ((obj_t) BgL_iportz00_8923);
						BgL_arg2346z00_3023 = RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13773);
					}
					{	/* Unsafe/url.scm 110 */
						long BgL_za72za7_7145;

						BgL_za72za7_7145 = (long) (BgL_maxz00_3020);
						BgL_maxz00_3020 = (int) ((BgL_arg2346z00_3023 + BgL_za72za7_7145));
				}}
			else
				{	/* Unsafe/url.scm 110 */
					BFALSE;
				}
			{	/* Unsafe/url.scm 110 */
				bool_t BgL_test4968z00_13779;

				if (((long) (BgL_minz00_3019) >= 0L))
					{	/* Unsafe/url.scm 110 */
						if (((long) (BgL_maxz00_3020) >= (long) (BgL_minz00_3019)))
							{	/* Unsafe/url.scm 110 */
								long BgL_arg2356z00_3034;

								{	/* Unsafe/url.scm 110 */
									obj_t BgL_tmpz00_13787;

									BgL_tmpz00_13787 = ((obj_t) BgL_iportz00_8923);
									BgL_arg2356z00_3034 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13787);
								}
								BgL_test4968z00_13779 =
									((long) (BgL_maxz00_3020) <= BgL_arg2356z00_3034);
							}
						else
							{	/* Unsafe/url.scm 110 */
								BgL_test4968z00_13779 = ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/url.scm 110 */
						BgL_test4968z00_13779 = ((bool_t) 0);
					}
				if (BgL_test4968z00_13779)
					{	/* Unsafe/url.scm 110 */
						long BgL_startz00_7153;
						long BgL_stopz00_7154;

						BgL_startz00_7153 = (long) (BgL_minz00_3019);
						BgL_stopz00_7154 = (long) (BgL_maxz00_3020);
						return
							rgc_buffer_substring(
							((obj_t) BgL_iportz00_8923), BgL_startz00_7153, BgL_stopz00_7154);
					}
				else
					{	/* Unsafe/url.scm 110 */
						obj_t BgL_arg2351z00_3028;
						obj_t BgL_arg2353z00_3029;

						{	/* Unsafe/url.scm 110 */
							obj_t BgL_arg2354z00_3030;

							{	/* Unsafe/url.scm 110 */
								long BgL_arg2343z00_7155;

								{	/* Unsafe/url.scm 110 */
									obj_t BgL_tmpz00_13796;

									BgL_tmpz00_13796 = ((obj_t) BgL_iportz00_8923);
									BgL_arg2343z00_7155 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13796);
								}
								BgL_arg2354z00_3030 =
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_8923), 0L, BgL_arg2343z00_7155);
							}
							{	/* Unsafe/url.scm 110 */
								obj_t BgL_list2355z00_3031;

								BgL_list2355z00_3031 =
									MAKE_YOUNG_PAIR(BgL_arg2354z00_3030, BNIL);
								BgL_arg2351z00_3028 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string4134z00zz__urlz00, BgL_list2355z00_3031);
						}}
						BgL_arg2353z00_3029 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_3019), BINT(BgL_maxz00_3020));
						return
							BGl_errorz00zz__errorz00(BGl_string4135z00zz__urlz00,
							BgL_arg2351z00_3028, BgL_arg2353z00_3029);
					}
			}
		}

	}



/* &<@anonymous:1594> */
	obj_t BGl_z62zc3z04anonymousza31594ze3ze5zz__urlz00(obj_t BgL_envz00_8876,
		obj_t BgL_iportz00_8877)
	{
		{	/* Unsafe/url.scm 97 */
			{
				obj_t BgL_iportz00_9689;
				long BgL_lastzd2matchzd2_9690;
				long BgL_forwardz00_9691;
				long BgL_bufposz00_9692;
				obj_t BgL_iportz00_9681;
				long BgL_lastzd2matchzd2_9682;
				long BgL_forwardz00_9683;
				long BgL_bufposz00_9684;
				obj_t BgL_iportz00_9673;
				long BgL_lastzd2matchzd2_9674;
				long BgL_forwardz00_9675;
				long BgL_bufposz00_9676;

				RGC_START_MATCH(BgL_iportz00_8877);
				{	/* Unsafe/url.scm 97 */
					long BgL_matchz00_9698;

					{	/* Unsafe/url.scm 97 */
						long BgL_arg1726z00_9699;
						long BgL_arg1727z00_9700;

						BgL_arg1726z00_9699 = RGC_BUFFER_FORWARD(BgL_iportz00_8877);
						BgL_arg1727z00_9700 = RGC_BUFFER_BUFPOS(BgL_iportz00_8877);
						BgL_iportz00_9689 = BgL_iportz00_8877;
						BgL_lastzd2matchzd2_9690 = 1L;
						BgL_forwardz00_9691 = BgL_arg1726z00_9699;
						BgL_bufposz00_9692 = BgL_arg1727z00_9700;
					BgL_statezd20zd21053z00_9671:
						if ((BgL_forwardz00_9691 == BgL_bufposz00_9692))
							{	/* Unsafe/url.scm 97 */
								if (rgc_fill_buffer(BgL_iportz00_9689))
									{	/* Unsafe/url.scm 97 */
										long BgL_arg1616z00_9693;
										long BgL_arg1617z00_9694;

										BgL_arg1616z00_9693 = RGC_BUFFER_FORWARD(BgL_iportz00_9689);
										BgL_arg1617z00_9694 = RGC_BUFFER_BUFPOS(BgL_iportz00_9689);
										{
											long BgL_bufposz00_13817;
											long BgL_forwardz00_13816;

											BgL_forwardz00_13816 = BgL_arg1616z00_9693;
											BgL_bufposz00_13817 = BgL_arg1617z00_9694;
											BgL_bufposz00_9692 = BgL_bufposz00_13817;
											BgL_forwardz00_9691 = BgL_forwardz00_13816;
											goto BgL_statezd20zd21053z00_9671;
										}
									}
								else
									{	/* Unsafe/url.scm 97 */
										BgL_matchz00_9698 = BgL_lastzd2matchzd2_9690;
									}
							}
						else
							{	/* Unsafe/url.scm 97 */
								int BgL_curz00_9695;

								BgL_curz00_9695 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_9689, BgL_forwardz00_9691);
								{	/* Unsafe/url.scm 97 */

									{	/* Unsafe/url.scm 97 */
										bool_t BgL_test4973z00_13819;

										if (((long) (BgL_curz00_9695) == 47L))
											{	/* Unsafe/url.scm 97 */
												BgL_test4973z00_13819 = ((bool_t) 1);
											}
										else
											{	/* Unsafe/url.scm 97 */
												BgL_test4973z00_13819 =
													((long) (BgL_curz00_9695) == 63L);
											}
										if (BgL_test4973z00_13819)
											{	/* Unsafe/url.scm 97 */
												BgL_iportz00_9673 = BgL_iportz00_9689;
												BgL_lastzd2matchzd2_9674 = BgL_lastzd2matchzd2_9690;
												BgL_forwardz00_9675 = (1L + BgL_forwardz00_9691);
												BgL_bufposz00_9676 = BgL_bufposz00_9692;
											BgL_statezd22zd21055z00_9669:
												{	/* Unsafe/url.scm 97 */
													long BgL_newzd2matchzd2_9677;

													RGC_STOP_MATCH(BgL_iportz00_9673,
														BgL_forwardz00_9675);
													BgL_newzd2matchzd2_9677 = 0L;
													if ((BgL_forwardz00_9675 == BgL_bufposz00_9676))
														{	/* Unsafe/url.scm 97 */
															if (rgc_fill_buffer(BgL_iportz00_9673))
																{	/* Unsafe/url.scm 97 */
																	long BgL_arg1598z00_9678;
																	long BgL_arg1599z00_9679;

																	BgL_arg1598z00_9678 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_9673);
																	BgL_arg1599z00_9679 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_9673);
																	{
																		long BgL_bufposz00_13833;
																		long BgL_forwardz00_13832;

																		BgL_forwardz00_13832 = BgL_arg1598z00_9678;
																		BgL_bufposz00_13833 = BgL_arg1599z00_9679;
																		BgL_bufposz00_9676 = BgL_bufposz00_13833;
																		BgL_forwardz00_9675 = BgL_forwardz00_13832;
																		goto BgL_statezd22zd21055z00_9669;
																	}
																}
															else
																{	/* Unsafe/url.scm 97 */
																	BgL_matchz00_9698 = BgL_newzd2matchzd2_9677;
																}
														}
													else
														{	/* Unsafe/url.scm 97 */
															int BgL_curz00_9680;

															BgL_curz00_9680 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_9673,
																BgL_forwardz00_9675);
															{	/* Unsafe/url.scm 97 */

																{	/* Unsafe/url.scm 97 */
																	bool_t BgL_test4977z00_13835;

																	if (((long) (BgL_curz00_9680) == 10L))
																		{	/* Unsafe/url.scm 97 */
																			BgL_test4977z00_13835 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/url.scm 97 */
																			BgL_test4977z00_13835 =
																				((long) (BgL_curz00_9680) == 13L);
																		}
																	if (BgL_test4977z00_13835)
																		{	/* Unsafe/url.scm 97 */
																			BgL_matchz00_9698 =
																				BgL_newzd2matchzd2_9677;
																		}
																	else
																		{	/* Unsafe/url.scm 97 */
																			BgL_iportz00_9681 = BgL_iportz00_9673;
																			BgL_lastzd2matchzd2_9682 =
																				BgL_newzd2matchzd2_9677;
																			BgL_forwardz00_9683 =
																				(1L + BgL_forwardz00_9675);
																			BgL_bufposz00_9684 = BgL_bufposz00_9676;
																		BgL_statezd23zd21056z00_9670:
																			{	/* Unsafe/url.scm 97 */
																				long BgL_newzd2matchzd2_9685;

																				RGC_STOP_MATCH(BgL_iportz00_9681,
																					BgL_forwardz00_9683);
																				BgL_newzd2matchzd2_9685 = 0L;
																				if (
																					(BgL_forwardz00_9683 ==
																						BgL_bufposz00_9684))
																					{	/* Unsafe/url.scm 97 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_9681))
																							{	/* Unsafe/url.scm 97 */
																								long BgL_arg1608z00_9686;
																								long BgL_arg1609z00_9687;

																								BgL_arg1608z00_9686 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_9681);
																								BgL_arg1609z00_9687 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_9681);
																								{
																									long BgL_bufposz00_13849;
																									long BgL_forwardz00_13848;

																									BgL_forwardz00_13848 =
																										BgL_arg1608z00_9686;
																									BgL_bufposz00_13849 =
																										BgL_arg1609z00_9687;
																									BgL_bufposz00_9684 =
																										BgL_bufposz00_13849;
																									BgL_forwardz00_9683 =
																										BgL_forwardz00_13848;
																									goto
																										BgL_statezd23zd21056z00_9670;
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 97 */
																								BgL_matchz00_9698 =
																									BgL_newzd2matchzd2_9685;
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 97 */
																						int BgL_curz00_9688;

																						BgL_curz00_9688 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_9681,
																							BgL_forwardz00_9683);
																						{	/* Unsafe/url.scm 97 */

																							{	/* Unsafe/url.scm 97 */
																								bool_t BgL_test4981z00_13851;

																								if (
																									((long) (BgL_curz00_9688) ==
																										10L))
																									{	/* Unsafe/url.scm 97 */
																										BgL_test4981z00_13851 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/url.scm 97 */
																										BgL_test4981z00_13851 =
																											(
																											(long) (BgL_curz00_9688)
																											== 13L);
																									}
																								if (BgL_test4981z00_13851)
																									{	/* Unsafe/url.scm 97 */
																										BgL_matchz00_9698 =
																											BgL_newzd2matchzd2_9685;
																									}
																								else
																									{
																										long BgL_forwardz00_13858;
																										long
																											BgL_lastzd2matchzd2_13857;
																										BgL_lastzd2matchzd2_13857 =
																											BgL_newzd2matchzd2_9685;
																										BgL_forwardz00_13858 =
																											(1L +
																											BgL_forwardz00_9683);
																										BgL_forwardz00_9683 =
																											BgL_forwardz00_13858;
																										BgL_lastzd2matchzd2_9682 =
																											BgL_lastzd2matchzd2_13857;
																										goto
																											BgL_statezd23zd21056z00_9670;
																									}
																							}
																						}
																					}
																			}
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/url.scm 97 */
												long BgL_arg1621z00_9696;

												BgL_arg1621z00_9696 = (1L + BgL_forwardz00_9691);
												{	/* Unsafe/url.scm 97 */
													long BgL_newzd2matchzd2_9697;

													RGC_STOP_MATCH(BgL_iportz00_9689,
														BgL_arg1621z00_9696);
													BgL_newzd2matchzd2_9697 = 1L;
													BgL_matchz00_9698 = BgL_newzd2matchzd2_9697;
					}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_8877);
					switch (BgL_matchz00_9698)
						{
						case 1L:

							{	/* Unsafe/url.scm 101 */
								obj_t BgL_cz00_9701;

								BgL_cz00_9701 =
									BGl_thezd2failureze70z35zz__urlz00(BgL_iportz00_8877);
								if (EOF_OBJECTP(BgL_cz00_9701))
									{	/* Unsafe/url.scm 102 */
										return BGl_string4132z00zz__urlz00;
									}
								else
									{	/* Unsafe/url.scm 102 */
										return
											BGl_parsezd2errorzd2zz__urlz00(BgL_iportz00_8877,
											BGl_string4128z00zz__urlz00,
											BGl_thezd2failureze70z35zz__urlz00(BgL_iportz00_8877));
									}
							}
							break;
						case 0L:

							{	/* Unsafe/url.scm 97 */
								long BgL_arg1629z00_9702;

								BgL_arg1629z00_9702 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8877);
								return
									rgc_buffer_substring(BgL_iportz00_8877, 0L,
									BgL_arg1629z00_9702);
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4129z00zz__urlz00,
								BGl_string4130z00zz__urlz00, BINT(BgL_matchz00_9698));
						}
				}
			}
		}

	}



/* the-failure~0 */
	obj_t BGl_thezd2failureze70z35zz__urlz00(obj_t BgL_iportz00_8922)
	{
		{	/* Unsafe/url.scm 97 */
			{	/* Unsafe/url.scm 97 */
				bool_t BgL_test4984z00_13875;

				{	/* Unsafe/url.scm 97 */
					long BgL_arg1716z00_1756;

					BgL_arg1716z00_1756 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8922);
					BgL_test4984z00_13875 = (BgL_arg1716z00_1756 == 0L);
				}
				if (BgL_test4984z00_13875)
					{	/* Unsafe/url.scm 97 */
						return BEOF;
					}
				else
					{	/* Unsafe/url.scm 97 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_8922));
					}
			}
		}

	}



/* &<@anonymous:1410> */
	obj_t BGl_z62zc3z04anonymousza31410ze3ze5zz__urlz00(obj_t BgL_envz00_8878,
		obj_t BgL_iportz00_8879)
	{
		{	/* Unsafe/url.scm 82 */
			{
				obj_t BgL_iportz00_9798;
				long BgL_lastzd2matchzd2_9799;
				long BgL_forwardz00_9800;
				long BgL_bufposz00_9801;
				obj_t BgL_iportz00_9783;
				long BgL_lastzd2matchzd2_9784;
				long BgL_forwardz00_9785;
				long BgL_bufposz00_9786;
				obj_t BgL_iportz00_9776;
				long BgL_lastzd2matchzd2_9777;
				long BgL_forwardz00_9778;
				long BgL_bufposz00_9779;
				obj_t BgL_iportz00_9768;
				long BgL_lastzd2matchzd2_9769;
				long BgL_forwardz00_9770;
				long BgL_bufposz00_9771;
				obj_t BgL_iportz00_9760;
				long BgL_lastzd2matchzd2_9761;
				long BgL_forwardz00_9762;
				long BgL_bufposz00_9763;
				obj_t BgL_iportz00_9746;
				long BgL_lastzd2matchzd2_9747;
				long BgL_forwardz00_9748;
				long BgL_bufposz00_9749;
				obj_t BgL_iportz00_9731;
				long BgL_lastzd2matchzd2_9732;
				long BgL_forwardz00_9733;
				long BgL_bufposz00_9734;
				int BgL_minz00_9721;
				int BgL_maxz00_9722;

				RGC_START_MATCH(BgL_iportz00_8879);
				{	/* Unsafe/url.scm 82 */
					long BgL_matchz00_9713;

					{	/* Unsafe/url.scm 82 */
						long BgL_arg1592z00_9714;
						long BgL_arg1593z00_9715;

						BgL_arg1592z00_9714 = RGC_BUFFER_FORWARD(BgL_iportz00_8879);
						BgL_arg1593z00_9715 = RGC_BUFFER_BUFPOS(BgL_iportz00_8879);
						BgL_iportz00_9776 = BgL_iportz00_8879;
						BgL_lastzd2matchzd2_9777 = 3L;
						BgL_forwardz00_9778 = BgL_arg1592z00_9714;
						BgL_bufposz00_9779 = BgL_arg1593z00_9715;
					BgL_statezd20zd21041z00_9710:
						if ((BgL_forwardz00_9778 == BgL_bufposz00_9779))
							{	/* Unsafe/url.scm 82 */
								if (rgc_fill_buffer(BgL_iportz00_9776))
									{	/* Unsafe/url.scm 82 */
										long BgL_arg1436z00_9780;
										long BgL_arg1437z00_9781;

										BgL_arg1436z00_9780 = RGC_BUFFER_FORWARD(BgL_iportz00_9776);
										BgL_arg1437z00_9781 = RGC_BUFFER_BUFPOS(BgL_iportz00_9776);
										{
											long BgL_bufposz00_13890;
											long BgL_forwardz00_13889;

											BgL_forwardz00_13889 = BgL_arg1436z00_9780;
											BgL_bufposz00_13890 = BgL_arg1437z00_9781;
											BgL_bufposz00_9779 = BgL_bufposz00_13890;
											BgL_forwardz00_9778 = BgL_forwardz00_13889;
											goto BgL_statezd20zd21041z00_9710;
										}
									}
								else
									{	/* Unsafe/url.scm 82 */
										BgL_matchz00_9713 = BgL_lastzd2matchzd2_9777;
									}
							}
						else
							{	/* Unsafe/url.scm 82 */
								int BgL_curz00_9782;

								BgL_curz00_9782 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_9776, BgL_forwardz00_9778);
								{	/* Unsafe/url.scm 82 */

									if (((long) (BgL_curz00_9782) == 47L))
										{	/* Unsafe/url.scm 82 */
											BgL_iportz00_9760 = BgL_iportz00_9776;
											BgL_lastzd2matchzd2_9761 = BgL_lastzd2matchzd2_9777;
											BgL_forwardz00_9762 = (1L + BgL_forwardz00_9778);
											BgL_bufposz00_9763 = BgL_bufposz00_9779;
										BgL_statezd23zd21044z00_9708:
											{	/* Unsafe/url.scm 82 */
												long BgL_newzd2matchzd2_9764;

												RGC_STOP_MATCH(BgL_iportz00_9760, BgL_forwardz00_9762);
												BgL_newzd2matchzd2_9764 = 1L;
												if ((BgL_forwardz00_9762 == BgL_bufposz00_9763))
													{	/* Unsafe/url.scm 82 */
														if (rgc_fill_buffer(BgL_iportz00_9760))
															{	/* Unsafe/url.scm 82 */
																long BgL_arg1456z00_9765;
																long BgL_arg1457z00_9766;

																BgL_arg1456z00_9765 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_9760);
																BgL_arg1457z00_9766 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_9760);
																{
																	long BgL_bufposz00_13903;
																	long BgL_forwardz00_13902;

																	BgL_forwardz00_13902 = BgL_arg1456z00_9765;
																	BgL_bufposz00_13903 = BgL_arg1457z00_9766;
																	BgL_bufposz00_9763 = BgL_bufposz00_13903;
																	BgL_forwardz00_9762 = BgL_forwardz00_13902;
																	goto BgL_statezd23zd21044z00_9708;
																}
															}
														else
															{	/* Unsafe/url.scm 82 */
																BgL_matchz00_9713 = BgL_newzd2matchzd2_9764;
															}
													}
												else
													{	/* Unsafe/url.scm 82 */
														int BgL_curz00_9767;

														BgL_curz00_9767 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_9760,
															BgL_forwardz00_9762);
														{	/* Unsafe/url.scm 82 */

															{	/* Unsafe/url.scm 82 */
																bool_t BgL_test4990z00_13905;

																if (((long) (BgL_curz00_9767) == 10L))
																	{	/* Unsafe/url.scm 82 */
																		BgL_test4990z00_13905 = ((bool_t) 1);
																	}
																else
																	{	/* Unsafe/url.scm 82 */
																		if (((long) (BgL_curz00_9767) == 13L))
																			{	/* Unsafe/url.scm 82 */
																				BgL_test4990z00_13905 = ((bool_t) 1);
																			}
																		else
																			{	/* Unsafe/url.scm 82 */
																				BgL_test4990z00_13905 =
																					((long) (BgL_curz00_9767) == 32L);
																	}}
																if (BgL_test4990z00_13905)
																	{	/* Unsafe/url.scm 82 */
																		BgL_matchz00_9713 = BgL_newzd2matchzd2_9764;
																	}
																else
																	{	/* Unsafe/url.scm 82 */
																		BgL_iportz00_9768 = BgL_iportz00_9760;
																		BgL_lastzd2matchzd2_9769 =
																			BgL_newzd2matchzd2_9764;
																		BgL_forwardz00_9770 =
																			(1L + BgL_forwardz00_9762);
																		BgL_bufposz00_9771 = BgL_bufposz00_9763;
																	BgL_statezd24zd21045z00_9709:
																		{	/* Unsafe/url.scm 82 */
																			long BgL_newzd2matchzd2_9772;

																			RGC_STOP_MATCH(BgL_iportz00_9768,
																				BgL_forwardz00_9770);
																			BgL_newzd2matchzd2_9772 = 1L;
																			if (
																				(BgL_forwardz00_9770 ==
																					BgL_bufposz00_9771))
																				{	/* Unsafe/url.scm 82 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_9768))
																						{	/* Unsafe/url.scm 82 */
																							long BgL_arg1447z00_9773;
																							long BgL_arg1448z00_9774;

																							BgL_arg1447z00_9773 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_9768);
																							BgL_arg1448z00_9774 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_9768);
																							{
																								long BgL_bufposz00_13922;
																								long BgL_forwardz00_13921;

																								BgL_forwardz00_13921 =
																									BgL_arg1447z00_9773;
																								BgL_bufposz00_13922 =
																									BgL_arg1448z00_9774;
																								BgL_bufposz00_9771 =
																									BgL_bufposz00_13922;
																								BgL_forwardz00_9770 =
																									BgL_forwardz00_13921;
																								goto
																									BgL_statezd24zd21045z00_9709;
																							}
																						}
																					else
																						{	/* Unsafe/url.scm 82 */
																							BgL_matchz00_9713 =
																								BgL_newzd2matchzd2_9772;
																						}
																				}
																			else
																				{	/* Unsafe/url.scm 82 */
																					int BgL_curz00_9775;

																					BgL_curz00_9775 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_9768,
																						BgL_forwardz00_9770);
																					{	/* Unsafe/url.scm 82 */

																						{	/* Unsafe/url.scm 82 */
																							bool_t BgL_test4997z00_13924;

																							if (
																								((long) (BgL_curz00_9775) ==
																									10L))
																								{	/* Unsafe/url.scm 82 */
																									BgL_test4997z00_13924 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/url.scm 82 */
																									if (
																										((long) (BgL_curz00_9775) ==
																											13L))
																										{	/* Unsafe/url.scm 82 */
																											BgL_test4997z00_13924 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Unsafe/url.scm 82 */
																											BgL_test4997z00_13924 =
																												(
																												(long) (BgL_curz00_9775)
																												== 32L);
																								}}
																							if (BgL_test4997z00_13924)
																								{	/* Unsafe/url.scm 82 */
																									BgL_matchz00_9713 =
																										BgL_newzd2matchzd2_9772;
																								}
																							else
																								{
																									long BgL_forwardz00_13934;
																									long
																										BgL_lastzd2matchzd2_13933;
																									BgL_lastzd2matchzd2_13933 =
																										BgL_newzd2matchzd2_9772;
																									BgL_forwardz00_13934 =
																										(1L + BgL_forwardz00_9770);
																									BgL_forwardz00_9770 =
																										BgL_forwardz00_13934;
																									BgL_lastzd2matchzd2_9769 =
																										BgL_lastzd2matchzd2_13933;
																									goto
																										BgL_statezd24zd21045z00_9709;
																								}
																						}
																					}
																				}
																		}
																	}
															}
														}
													}
											}
										}
									else
										{	/* Unsafe/url.scm 82 */
											if (((long) (BgL_curz00_9782) == 42L))
												{	/* Unsafe/url.scm 82 */
													BgL_iportz00_9783 = BgL_iportz00_9776;
													BgL_lastzd2matchzd2_9784 = BgL_lastzd2matchzd2_9777;
													BgL_forwardz00_9785 = (1L + BgL_forwardz00_9778);
													BgL_bufposz00_9786 = BgL_bufposz00_9779;
												BgL_statezd22zd21043z00_9711:
													{	/* Unsafe/url.scm 82 */
														long BgL_newzd2matchzd2_9787;

														RGC_STOP_MATCH(BgL_iportz00_9783,
															BgL_forwardz00_9785);
														BgL_newzd2matchzd2_9787 = 0L;
														if ((BgL_forwardz00_9785 == BgL_bufposz00_9786))
															{	/* Unsafe/url.scm 82 */
																if (rgc_fill_buffer(BgL_iportz00_9783))
																	{	/* Unsafe/url.scm 82 */
																		long BgL_arg1428z00_9788;
																		long BgL_arg1429z00_9789;

																		BgL_arg1428z00_9788 =
																			RGC_BUFFER_FORWARD(BgL_iportz00_9783);
																		BgL_arg1429z00_9789 =
																			RGC_BUFFER_BUFPOS(BgL_iportz00_9783);
																		{
																			long BgL_bufposz00_13949;
																			long BgL_forwardz00_13948;

																			BgL_forwardz00_13948 =
																				BgL_arg1428z00_9788;
																			BgL_bufposz00_13949 = BgL_arg1429z00_9789;
																			BgL_bufposz00_9786 = BgL_bufposz00_13949;
																			BgL_forwardz00_9785 =
																				BgL_forwardz00_13948;
																			goto BgL_statezd22zd21043z00_9711;
																		}
																	}
																else
																	{	/* Unsafe/url.scm 82 */
																		BgL_matchz00_9713 = BgL_newzd2matchzd2_9787;
																	}
															}
														else
															{	/* Unsafe/url.scm 82 */
																int BgL_curz00_9790;

																BgL_curz00_9790 =
																	RGC_BUFFER_GET_CHAR(BgL_iportz00_9783,
																	BgL_forwardz00_9785);
																{	/* Unsafe/url.scm 82 */

																	if (((long) (BgL_curz00_9790) == 58L))
																		{	/* Unsafe/url.scm 82 */
																			long BgL_arg1431z00_9791;

																			BgL_arg1431z00_9791 =
																				(1L + BgL_forwardz00_9785);
																			{
																				long BgL_forwardz00_9793;
																				long BgL_bufposz00_9794;

																				BgL_forwardz00_9793 =
																					BgL_arg1431z00_9791;
																				BgL_bufposz00_9794 = BgL_bufposz00_9786;
																			BgL_statezd27zd21048z00_9792:
																				if (
																					(BgL_forwardz00_9793 ==
																						BgL_bufposz00_9794))
																					{	/* Unsafe/url.scm 82 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_9783))
																							{	/* Unsafe/url.scm 82 */
																								long BgL_arg1414z00_9795;
																								long BgL_arg1415z00_9796;

																								BgL_arg1414z00_9795 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_9783);
																								BgL_arg1415z00_9796 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_9783);
																								{
																									long BgL_bufposz00_13962;
																									long BgL_forwardz00_13961;

																									BgL_forwardz00_13961 =
																										BgL_arg1414z00_9795;
																									BgL_bufposz00_13962 =
																										BgL_arg1415z00_9796;
																									BgL_bufposz00_9794 =
																										BgL_bufposz00_13962;
																									BgL_forwardz00_9793 =
																										BgL_forwardz00_13961;
																									goto
																										BgL_statezd27zd21048z00_9792;
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 82 */
																								BgL_matchz00_9713 =
																									BgL_newzd2matchzd2_9787;
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 82 */
																						int BgL_curz00_9797;

																						BgL_curz00_9797 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_9783,
																							BgL_forwardz00_9793);
																						{	/* Unsafe/url.scm 82 */

																							if (
																								((long) (BgL_curz00_9797) ==
																									47L))
																								{	/* Unsafe/url.scm 82 */
																									BgL_iportz00_9798 =
																										BgL_iportz00_9783;
																									BgL_lastzd2matchzd2_9799 =
																										BgL_newzd2matchzd2_9787;
																									BgL_forwardz00_9800 =
																										(1L + BgL_forwardz00_9793);
																									BgL_bufposz00_9801 =
																										BgL_bufposz00_9794;
																								BgL_statezd28zd21049z00_9712:
																									if (
																										(BgL_forwardz00_9800 ==
																											BgL_bufposz00_9801))
																										{	/* Unsafe/url.scm 82 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_9798))
																												{	/* Unsafe/url.scm 82 */
																													long
																														BgL_arg1421z00_9802;
																													long
																														BgL_arg1422z00_9803;
																													BgL_arg1421z00_9802 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_9798);
																													BgL_arg1422z00_9803 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_9798);
																													if (
																														(BgL_arg1421z00_9802
																															==
																															BgL_arg1422z00_9803))
																														{	/* Unsafe/url.scm 82 */
																															if (rgc_fill_buffer(BgL_iportz00_9798))
																																{	/* Unsafe/url.scm 82 */
																																	long
																																		BgL_arg1421z00_9804;
																																	long
																																		BgL_arg1422z00_9805;
																																	BgL_arg1421z00_9804
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_9798);
																																	BgL_arg1422z00_9805
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_9798);
																																	{
																																		long
																																			BgL_bufposz00_13980;
																																		long
																																			BgL_forwardz00_13979;
																																		BgL_forwardz00_13979
																																			=
																																			BgL_arg1421z00_9804;
																																		BgL_bufposz00_13980
																																			=
																																			BgL_arg1422z00_9805;
																																		BgL_bufposz00_9801
																																			=
																																			BgL_bufposz00_13980;
																																		BgL_forwardz00_9800
																																			=
																																			BgL_forwardz00_13979;
																																		goto
																																			BgL_statezd28zd21049z00_9712;
																																	}
																																}
																															else
																																{	/* Unsafe/url.scm 82 */
																																	BgL_matchz00_9713
																																		=
																																		BgL_lastzd2matchzd2_9799;
																																}
																														}
																													else
																														{	/* Unsafe/url.scm 82 */
																															int
																																BgL_curz00_9806;
																															BgL_curz00_9806 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_9798,
																																BgL_arg1421z00_9802);
																															{	/* Unsafe/url.scm 82 */

																																if (
																																	((long)
																																		(BgL_curz00_9806)
																																		== 47L))
																																	{	/* Unsafe/url.scm 82 */
																																		long
																																			BgL_arg1424z00_9807;
																																		BgL_arg1424z00_9807
																																			=
																																			(1L +
																																			BgL_arg1421z00_9802);
																																		{	/* Unsafe/url.scm 82 */
																																			long
																																				BgL_newzd2matchzd2_9808;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_9798,
																																				BgL_arg1424z00_9807);
																																			BgL_newzd2matchzd2_9808
																																				= 2L;
																																			BgL_matchz00_9713
																																				=
																																				BgL_newzd2matchzd2_9808;
																																	}}
																																else
																																	{	/* Unsafe/url.scm 82 */
																																		BgL_matchz00_9713
																																			=
																																			BgL_lastzd2matchzd2_9799;
																																	}
																															}
																														}
																												}
																											else
																												{	/* Unsafe/url.scm 82 */
																													BgL_matchz00_9713 =
																														BgL_lastzd2matchzd2_9799;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 82 */
																											int BgL_curz00_9809;

																											BgL_curz00_9809 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_9798,
																												BgL_forwardz00_9800);
																											{	/* Unsafe/url.scm 82 */

																												if (
																													((long)
																														(BgL_curz00_9809) ==
																														47L))
																													{	/* Unsafe/url.scm 82 */
																														long
																															BgL_arg1424z00_9810;
																														BgL_arg1424z00_9810
																															=
																															(1L +
																															BgL_forwardz00_9800);
																														{	/* Unsafe/url.scm 82 */
																															long
																																BgL_newzd2matchzd2_9811;
																															RGC_STOP_MATCH
																																(BgL_iportz00_9798,
																																BgL_arg1424z00_9810);
																															BgL_newzd2matchzd2_9811
																																= 2L;
																															BgL_matchz00_9713
																																=
																																BgL_newzd2matchzd2_9811;
																													}}
																												else
																													{	/* Unsafe/url.scm 82 */
																														BgL_matchz00_9713 =
																															BgL_lastzd2matchzd2_9799;
																													}
																											}
																										}
																								}
																							else
																								{	/* Unsafe/url.scm 82 */
																									BgL_matchz00_9713 =
																										BgL_newzd2matchzd2_9787;
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/url.scm 82 */
																			BgL_iportz00_9746 = BgL_iportz00_9783;
																			BgL_lastzd2matchzd2_9747 =
																				BgL_newzd2matchzd2_9787;
																			BgL_forwardz00_9748 =
																				(1L + BgL_forwardz00_9785);
																			BgL_bufposz00_9749 = BgL_bufposz00_9786;
																		BgL_statezd26zd21047z00_9707:
																			if (
																				(BgL_forwardz00_9748 ==
																					BgL_bufposz00_9749))
																				{	/* Unsafe/url.scm 82 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_9746))
																						{	/* Unsafe/url.scm 82 */
																							long BgL_arg1465z00_9750;
																							long BgL_arg1466z00_9751;

																							BgL_arg1465z00_9750 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_9746);
																							BgL_arg1466z00_9751 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_9746);
																							{
																								long BgL_bufposz00_14001;
																								long BgL_forwardz00_14000;

																								BgL_forwardz00_14000 =
																									BgL_arg1465z00_9750;
																								BgL_bufposz00_14001 =
																									BgL_arg1466z00_9751;
																								BgL_bufposz00_9749 =
																									BgL_bufposz00_14001;
																								BgL_forwardz00_9748 =
																									BgL_forwardz00_14000;
																								goto
																									BgL_statezd26zd21047z00_9707;
																							}
																						}
																					else
																						{	/* Unsafe/url.scm 82 */
																							BgL_matchz00_9713 =
																								BgL_lastzd2matchzd2_9747;
																						}
																				}
																			else
																				{	/* Unsafe/url.scm 82 */
																					int BgL_curz00_9752;

																					BgL_curz00_9752 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_9746,
																						BgL_forwardz00_9748);
																					{	/* Unsafe/url.scm 82 */

																						if (
																							((long) (BgL_curz00_9752) == 58L))
																							{	/* Unsafe/url.scm 82 */
																								long BgL_arg1468z00_9753;

																								BgL_arg1468z00_9753 =
																									(1L + BgL_forwardz00_9748);
																								{
																									long BgL_forwardz00_9755;
																									long BgL_bufposz00_9756;

																									BgL_forwardz00_9755 =
																										BgL_arg1468z00_9753;
																									BgL_bufposz00_9756 =
																										BgL_bufposz00_9749;
																								BgL_statezd27zd21048z00_9754:
																									if (
																										(BgL_forwardz00_9755 ==
																											BgL_bufposz00_9756))
																										{	/* Unsafe/url.scm 82 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_9746))
																												{	/* Unsafe/url.scm 82 */
																													long
																														BgL_arg1414z00_9757;
																													long
																														BgL_arg1415z00_9758;
																													BgL_arg1414z00_9757 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_9746);
																													BgL_arg1415z00_9758 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_9746);
																													{
																														long
																															BgL_bufposz00_14014;
																														long
																															BgL_forwardz00_14013;
																														BgL_forwardz00_14013
																															=
																															BgL_arg1414z00_9757;
																														BgL_bufposz00_14014
																															=
																															BgL_arg1415z00_9758;
																														BgL_bufposz00_9756 =
																															BgL_bufposz00_14014;
																														BgL_forwardz00_9755
																															=
																															BgL_forwardz00_14013;
																														goto
																															BgL_statezd27zd21048z00_9754;
																													}
																												}
																											else
																												{	/* Unsafe/url.scm 82 */
																													BgL_matchz00_9713 =
																														BgL_lastzd2matchzd2_9747;
																												}
																										}
																									else
																										{	/* Unsafe/url.scm 82 */
																											int BgL_curz00_9759;

																											BgL_curz00_9759 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_9746,
																												BgL_forwardz00_9755);
																											{	/* Unsafe/url.scm 82 */

																												if (
																													((long)
																														(BgL_curz00_9759) ==
																														47L))
																													{
																														long
																															BgL_bufposz00_14023;
																														long
																															BgL_forwardz00_14021;
																														long
																															BgL_lastzd2matchzd2_14020;
																														obj_t
																															BgL_iportz00_14019;
																														BgL_iportz00_14019 =
																															BgL_iportz00_9746;
																														BgL_lastzd2matchzd2_14020
																															=
																															BgL_lastzd2matchzd2_9747;
																														BgL_forwardz00_14021
																															=
																															(1L +
																															BgL_forwardz00_9755);
																														BgL_bufposz00_14023
																															=
																															BgL_bufposz00_9756;
																														BgL_bufposz00_9801 =
																															BgL_bufposz00_14023;
																														BgL_forwardz00_9800
																															=
																															BgL_forwardz00_14021;
																														BgL_lastzd2matchzd2_9799
																															=
																															BgL_lastzd2matchzd2_14020;
																														BgL_iportz00_9798 =
																															BgL_iportz00_14019;
																														goto
																															BgL_statezd28zd21049z00_9712;
																													}
																												else
																													{	/* Unsafe/url.scm 82 */
																														BgL_matchz00_9713 =
																															BgL_lastzd2matchzd2_9747;
																													}
																											}
																										}
																								}
																							}
																						else
																							{
																								long BgL_forwardz00_14024;

																								BgL_forwardz00_14024 =
																									(1L + BgL_forwardz00_9748);
																								BgL_forwardz00_9748 =
																									BgL_forwardz00_14024;
																								goto
																									BgL_statezd26zd21047z00_9707;
																							}
																					}
																				}
																		}
																}
															}
													}
												}
											else
												{	/* Unsafe/url.scm 82 */
													BgL_iportz00_9731 = BgL_iportz00_9776;
													BgL_lastzd2matchzd2_9732 = BgL_lastzd2matchzd2_9777;
													BgL_forwardz00_9733 = (1L + BgL_forwardz00_9778);
													BgL_bufposz00_9734 = BgL_bufposz00_9779;
												BgL_statezd21zd21042z00_9706:
													{	/* Unsafe/url.scm 82 */
														long BgL_newzd2matchzd2_9735;

														RGC_STOP_MATCH(BgL_iportz00_9731,
															BgL_forwardz00_9733);
														BgL_newzd2matchzd2_9735 = 3L;
														if ((BgL_forwardz00_9733 == BgL_bufposz00_9734))
															{	/* Unsafe/url.scm 82 */
																if (rgc_fill_buffer(BgL_iportz00_9731))
																	{	/* Unsafe/url.scm 82 */
																		long BgL_arg1473z00_9736;
																		long BgL_arg1474z00_9737;

																		BgL_arg1473z00_9736 =
																			RGC_BUFFER_FORWARD(BgL_iportz00_9731);
																		BgL_arg1474z00_9737 =
																			RGC_BUFFER_BUFPOS(BgL_iportz00_9731);
																		{
																			long BgL_bufposz00_14036;
																			long BgL_forwardz00_14035;

																			BgL_forwardz00_14035 =
																				BgL_arg1473z00_9736;
																			BgL_bufposz00_14036 = BgL_arg1474z00_9737;
																			BgL_bufposz00_9734 = BgL_bufposz00_14036;
																			BgL_forwardz00_9733 =
																				BgL_forwardz00_14035;
																			goto BgL_statezd21zd21042z00_9706;
																		}
																	}
																else
																	{	/* Unsafe/url.scm 82 */
																		BgL_matchz00_9713 = BgL_newzd2matchzd2_9735;
																	}
															}
														else
															{	/* Unsafe/url.scm 82 */
																int BgL_curz00_9738;

																BgL_curz00_9738 =
																	RGC_BUFFER_GET_CHAR(BgL_iportz00_9731,
																	BgL_forwardz00_9733);
																{	/* Unsafe/url.scm 82 */

																	if (((long) (BgL_curz00_9738) == 58L))
																		{	/* Unsafe/url.scm 82 */
																			long BgL_arg1476z00_9739;

																			BgL_arg1476z00_9739 =
																				(1L + BgL_forwardz00_9733);
																			{
																				long BgL_forwardz00_9741;
																				long BgL_bufposz00_9742;

																				BgL_forwardz00_9741 =
																					BgL_arg1476z00_9739;
																				BgL_bufposz00_9742 = BgL_bufposz00_9734;
																			BgL_statezd27zd21048z00_9740:
																				if (
																					(BgL_forwardz00_9741 ==
																						BgL_bufposz00_9742))
																					{	/* Unsafe/url.scm 82 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_9731))
																							{	/* Unsafe/url.scm 82 */
																								long BgL_arg1414z00_9743;
																								long BgL_arg1415z00_9744;

																								BgL_arg1414z00_9743 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_9731);
																								BgL_arg1415z00_9744 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_9731);
																								{
																									long BgL_bufposz00_14049;
																									long BgL_forwardz00_14048;

																									BgL_forwardz00_14048 =
																										BgL_arg1414z00_9743;
																									BgL_bufposz00_14049 =
																										BgL_arg1415z00_9744;
																									BgL_bufposz00_9742 =
																										BgL_bufposz00_14049;
																									BgL_forwardz00_9741 =
																										BgL_forwardz00_14048;
																									goto
																										BgL_statezd27zd21048z00_9740;
																								}
																							}
																						else
																							{	/* Unsafe/url.scm 82 */
																								BgL_matchz00_9713 =
																									BgL_newzd2matchzd2_9735;
																							}
																					}
																				else
																					{	/* Unsafe/url.scm 82 */
																						int BgL_curz00_9745;

																						BgL_curz00_9745 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_9731,
																							BgL_forwardz00_9741);
																						{	/* Unsafe/url.scm 82 */

																							if (
																								((long) (BgL_curz00_9745) ==
																									47L))
																								{
																									long BgL_bufposz00_14058;
																									long BgL_forwardz00_14056;
																									long
																										BgL_lastzd2matchzd2_14055;
																									obj_t BgL_iportz00_14054;

																									BgL_iportz00_14054 =
																										BgL_iportz00_9731;
																									BgL_lastzd2matchzd2_14055 =
																										BgL_newzd2matchzd2_9735;
																									BgL_forwardz00_14056 =
																										(1L + BgL_forwardz00_9741);
																									BgL_bufposz00_14058 =
																										BgL_bufposz00_9742;
																									BgL_bufposz00_9801 =
																										BgL_bufposz00_14058;
																									BgL_forwardz00_9800 =
																										BgL_forwardz00_14056;
																									BgL_lastzd2matchzd2_9799 =
																										BgL_lastzd2matchzd2_14055;
																									BgL_iportz00_9798 =
																										BgL_iportz00_14054;
																									goto
																										BgL_statezd28zd21049z00_9712;
																								}
																							else
																								{	/* Unsafe/url.scm 82 */
																									BgL_matchz00_9713 =
																										BgL_newzd2matchzd2_9735;
																								}
																						}
																					}
																			}
																		}
																	else
																		{
																			long BgL_bufposz00_14063;
																			long BgL_forwardz00_14061;
																			long BgL_lastzd2matchzd2_14060;
																			obj_t BgL_iportz00_14059;

																			BgL_iportz00_14059 = BgL_iportz00_9731;
																			BgL_lastzd2matchzd2_14060 =
																				BgL_newzd2matchzd2_9735;
																			BgL_forwardz00_14061 =
																				(1L + BgL_forwardz00_9733);
																			BgL_bufposz00_14063 = BgL_bufposz00_9734;
																			BgL_bufposz00_9749 = BgL_bufposz00_14063;
																			BgL_forwardz00_9748 =
																				BgL_forwardz00_14061;
																			BgL_lastzd2matchzd2_9747 =
																				BgL_lastzd2matchzd2_14060;
																			BgL_iportz00_9746 = BgL_iportz00_14059;
																			goto BgL_statezd26zd21047z00_9707;
																		}
																}
															}
													}
												}
										}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_8879);
					switch (BgL_matchz00_9713)
						{
						case 3L:

							{	/* Unsafe/url.scm 90 */
								int BgL_arg1584z00_9716;

								BgL_arg1584z00_9716 = RGC_BUFFER_BYTE(BgL_iportz00_8879);
								rgc_buffer_unget_char(BgL_iportz00_8879, BgL_arg1584z00_9716);
							}
							{	/* Unsafe/url.scm 91 */
								obj_t BgL_val4_1254z00_9717;

								BgL_val4_1254z00_9717 =
									BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_iportz00_8879);
								{	/* Unsafe/url.scm 91 */
									int BgL_tmpz00_14069;

									BgL_tmpz00_14069 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14069);
								}
								{	/* Unsafe/url.scm 91 */
									int BgL_tmpz00_14072;

									BgL_tmpz00_14072 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14072, BFALSE);
								}
								{	/* Unsafe/url.scm 91 */
									int BgL_tmpz00_14075;

									BgL_tmpz00_14075 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14075, BFALSE);
								}
								{	/* Unsafe/url.scm 91 */
									int BgL_tmpz00_14078;

									BgL_tmpz00_14078 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14078, BFALSE);
								}
								{	/* Unsafe/url.scm 91 */
									int BgL_tmpz00_14081;

									BgL_tmpz00_14081 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14081, BgL_val4_1254z00_9717);
								}
								return BGl_string4137z00zz__urlz00;
							}
							break;
						case 2L:

							{	/* Unsafe/url.scm 88 */
								obj_t BgL_arg1588z00_9718;

								BgL_minz00_9721 = (int) (0L);
								BgL_maxz00_9722 = (int) ((-3L));
								if (((long) (BgL_maxz00_9722) < (long) (BgL_minz00_9721)))
									{	/* Unsafe/url.scm 82 */
										long BgL_arg1490z00_9723;

										BgL_arg1490z00_9723 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8879);
										{	/* Unsafe/url.scm 82 */
											long BgL_za72za7_9724;

											BgL_za72za7_9724 = (long) (BgL_maxz00_9722);
											BgL_maxz00_9722 =
												(int) ((BgL_arg1490z00_9723 + BgL_za72za7_9724));
									}}
								else
									{	/* Unsafe/url.scm 82 */
										BFALSE;
									}
								{	/* Unsafe/url.scm 82 */
									bool_t BgL_test5027z00_14092;

									if (((long) (BgL_minz00_9721) >= 0L))
										{	/* Unsafe/url.scm 82 */
											if (
												((long) (BgL_maxz00_9722) >= (long) (BgL_minz00_9721)))
												{	/* Unsafe/url.scm 82 */
													long BgL_arg1501z00_9725;

													BgL_arg1501z00_9725 =
														RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8879);
													BgL_test5027z00_14092 =
														((long) (BgL_maxz00_9722) <= BgL_arg1501z00_9725);
												}
											else
												{	/* Unsafe/url.scm 82 */
													BgL_test5027z00_14092 = ((bool_t) 0);
												}
										}
									else
										{	/* Unsafe/url.scm 82 */
											BgL_test5027z00_14092 = ((bool_t) 0);
										}
									if (BgL_test5027z00_14092)
										{	/* Unsafe/url.scm 82 */
											BgL_arg1588z00_9718 =
												rgc_buffer_substring(BgL_iportz00_8879,
												(long) (BgL_minz00_9721), (long) (BgL_maxz00_9722));
										}
									else
										{	/* Unsafe/url.scm 82 */
											obj_t BgL_arg1497z00_9726;
											obj_t BgL_arg1498z00_9727;

											{	/* Unsafe/url.scm 82 */
												obj_t BgL_arg1499z00_9728;

												{	/* Unsafe/url.scm 82 */
													long BgL_arg1487z00_9729;

													BgL_arg1487z00_9729 =
														RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8879);
													BgL_arg1499z00_9728 =
														rgc_buffer_substring(BgL_iportz00_8879, 0L,
														BgL_arg1487z00_9729);
												}
												{	/* Unsafe/url.scm 82 */
													obj_t BgL_list1500z00_9730;

													BgL_list1500z00_9730 =
														MAKE_YOUNG_PAIR(BgL_arg1499z00_9728, BNIL);
													BgL_arg1497z00_9726 =
														BGl_formatz00zz__r4_output_6_10_3z00
														(BGl_string4134z00zz__urlz00, BgL_list1500z00_9730);
											}}
											BgL_arg1498z00_9727 =
												MAKE_YOUNG_PAIR(BINT(BgL_minz00_9721),
												BINT(BgL_maxz00_9722));
											BgL_arg1588z00_9718 =
												BGl_errorz00zz__errorz00(BGl_string4135z00zz__urlz00,
												BgL_arg1497z00_9726, BgL_arg1498z00_9727);
								}}
								return
									BGL_PROCEDURE_CALL3(BGl_absolutezd2urizd2grammarz00zz__urlz00,
									BgL_iportz00_8879, BgL_arg1588z00_9718, BFALSE);
							}
							break;
						case 1L:

							{	/* Unsafe/url.scm 86 */
								obj_t BgL_val4_1259z00_9719;

								{	/* Unsafe/url.scm 82 */
									long BgL_arg1487z00_9720;

									BgL_arg1487z00_9720 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_8879);
									BgL_val4_1259z00_9719 =
										rgc_buffer_substring(BgL_iportz00_8879, 0L,
										BgL_arg1487z00_9720);
								}
								{	/* Unsafe/url.scm 86 */
									int BgL_tmpz00_14124;

									BgL_tmpz00_14124 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14124);
								}
								{	/* Unsafe/url.scm 86 */
									int BgL_tmpz00_14127;

									BgL_tmpz00_14127 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14127, BFALSE);
								}
								{	/* Unsafe/url.scm 86 */
									int BgL_tmpz00_14130;

									BgL_tmpz00_14130 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14130, BFALSE);
								}
								{	/* Unsafe/url.scm 86 */
									int BgL_tmpz00_14133;

									BgL_tmpz00_14133 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14133, BFALSE);
								}
								{	/* Unsafe/url.scm 86 */
									int BgL_tmpz00_14136;

									BgL_tmpz00_14136 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_14136, BgL_val4_1259z00_9719);
								}
								return BGl_string4138z00zz__urlz00;
							}
							break;
						case 0L:

							{	/* Unsafe/url.scm 84 */
								int BgL_tmpz00_14139;

								BgL_tmpz00_14139 = (int) (5L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14139);
							}
							{	/* Unsafe/url.scm 84 */
								int BgL_tmpz00_14142;

								BgL_tmpz00_14142 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_14142, BFALSE);
							}
							{	/* Unsafe/url.scm 84 */
								int BgL_tmpz00_14145;

								BgL_tmpz00_14145 = (int) (2L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_14145, BFALSE);
							}
							{	/* Unsafe/url.scm 84 */
								int BgL_tmpz00_14148;

								BgL_tmpz00_14148 = (int) (3L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_14148, BFALSE);
							}
							{	/* Unsafe/url.scm 84 */
								int BgL_tmpz00_14151;

								BgL_tmpz00_14151 = (int) (4L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_14151, BFALSE);
							}
							return BGl_string4137z00zz__urlz00;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4129z00zz__urlz00,
								BGl_string4130z00zz__urlz00, BINT(BgL_matchz00_9713));
						}
				}
			}
		}

	}



/* parse-error */
	obj_t BGl_parsezd2errorzd2zz__urlz00(obj_t BgL_portz00_3, obj_t BgL_msgz00_4,
		obj_t BgL_objz00_5)
	{
		{	/* Unsafe/url.scm 69 */
			{	/* Unsafe/url.scm 70 */
				obj_t BgL_linez00_4958;

				BgL_linez00_4958 =
					BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_portz00_3);
				{	/* Unsafe/url.scm 71 */
					BgL_z62iozd2parsezd2errorz62_bglt BgL_arg3473z00_4959;

					{	/* Unsafe/url.scm 71 */
						BgL_z62iozd2parsezd2errorz62_bglt BgL_new1040z00_4960;

						{	/* Unsafe/url.scm 71 */
							BgL_z62iozd2parsezd2errorz62_bglt BgL_new1039z00_4966;

							BgL_new1039z00_4966 =
								((BgL_z62iozd2parsezd2errorz62_bglt)
								BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2parsezd2errorz62_bgl))));
							{	/* Unsafe/url.scm 71 */
								long BgL_arg3480z00_4967;

								BgL_arg3480z00_4967 =
									BGL_CLASS_NUM(BGl_z62iozd2parsezd2errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1039z00_4966),
									BgL_arg3480z00_4967);
							}
							BgL_new1040z00_4960 = BgL_new1039z00_4966;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1040z00_4960)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1040z00_4960)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_14166;

							{	/* Unsafe/url.scm 71 */
								obj_t BgL_arg3475z00_4961;

								{	/* Unsafe/url.scm 71 */
									obj_t BgL_arg3476z00_4962;

									{	/* Unsafe/url.scm 71 */
										obj_t BgL_classz00_8085;

										BgL_classz00_8085 =
											BGl_z62iozd2parsezd2errorz62zz__objectz00;
										BgL_arg3476z00_4962 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_8085);
									}
									BgL_arg3475z00_4961 = VECTOR_REF(BgL_arg3476z00_4962, 2L);
								}
								BgL_auxz00_14166 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg3475z00_4961);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1040z00_4960)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_14166), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1040z00_4960)))->
								BgL_procz00) = ((obj_t) BGl_symbol4139z00zz__urlz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1040z00_4960)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_4), BUNSPEC);
						{
							obj_t BgL_auxz00_14176;

							if (STRINGP(BgL_linez00_4958))
								{	/* Unsafe/url.scm 73 */
									obj_t BgL_list3478z00_4964;

									{	/* Unsafe/url.scm 73 */
										obj_t BgL_arg3479z00_4965;

										BgL_arg3479z00_4965 =
											MAKE_YOUNG_PAIR(BgL_linez00_4958, BNIL);
										BgL_list3478z00_4964 =
											MAKE_YOUNG_PAIR(BgL_objz00_5, BgL_arg3479z00_4965);
									}
									BgL_auxz00_14176 =
										BGl_formatz00zz__r4_output_6_10_3z00
										(BGl_string4141z00zz__urlz00, BgL_list3478z00_4964);
								}
							else
								{	/* Unsafe/url.scm 72 */
									BgL_auxz00_14176 = BgL_objz00_5;
								}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1040z00_4960)))->
									BgL_objz00) = ((obj_t) BgL_auxz00_14176), BUNSPEC);
						}
						BgL_arg3473z00_4959 = BgL_new1040z00_4960;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg3473z00_4959));
				}
			}
		}

	}



/* url-parse */
	BGL_EXPORTED_DEF obj_t BGl_urlzd2parsezd2zz__urlz00(obj_t BgL_urlz00_6)
	{
		{	/* Unsafe/url.scm 207 */
			if (INPUT_PORTP(BgL_urlz00_6))
				{	/* Unsafe/url.scm 209 */
					return
						BGl_z62zc3z04anonymousza31410ze3ze5zz__urlz00
						(BGl_urizd2grammarzd2zz__urlz00, BgL_urlz00_6);
				}
			else
				{	/* Unsafe/url.scm 209 */
					if (STRINGP(BgL_urlz00_6))
						{	/* Unsafe/url.scm 212 */
							obj_t BgL_pz00_4970;

							{	/* Ieee/port.scm 469 */
								long BgL_endz00_4978;

								BgL_endz00_4978 = STRING_LENGTH(BgL_urlz00_6);
								{	/* Ieee/port.scm 469 */

									BgL_pz00_4970 =
										BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
										(BgL_urlz00_6, BINT(0L), BINT(BgL_endz00_4978));
							}}
							{	/* Unsafe/url.scm 213 */
								obj_t BgL_exitd1181z00_4971;

								BgL_exitd1181z00_4971 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Unsafe/url.scm 215 */
									obj_t BgL_zc3z04anonymousza33483ze3z87_8880;

									BgL_zc3z04anonymousza33483ze3z87_8880 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza33483ze3ze5zz__urlz00, (int) (0L),
										(int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza33483ze3z87_8880,
										(int) (0L), BgL_pz00_4970);
									{	/* Unsafe/url.scm 213 */
										obj_t BgL_arg4075z00_8089;

										{	/* Unsafe/url.scm 213 */
											obj_t BgL_arg4076z00_8090;

											BgL_arg4076z00_8090 =
												BGL_EXITD_PROTECT(BgL_exitd1181z00_4971);
											BgL_arg4075z00_8089 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza33483ze3z87_8880,
												BgL_arg4076z00_8090);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1181z00_4971,
											BgL_arg4075z00_8089);
										BUNSPEC;
									}
									{	/* Unsafe/url.scm 214 */
										obj_t BgL_tmp1183z00_4973;

										BgL_tmp1183z00_4973 =
											BGl_z62zc3z04anonymousza31410ze3ze5zz__urlz00
											(BGl_urizd2grammarzd2zz__urlz00, BgL_pz00_4970);
										{	/* Unsafe/url.scm 213 */
											bool_t BgL_test5033z00_14211;

											{	/* Unsafe/url.scm 213 */
												obj_t BgL_arg4074z00_8092;

												BgL_arg4074z00_8092 =
													BGL_EXITD_PROTECT(BgL_exitd1181z00_4971);
												BgL_test5033z00_14211 = PAIRP(BgL_arg4074z00_8092);
											}
											if (BgL_test5033z00_14211)
												{	/* Unsafe/url.scm 213 */
													obj_t BgL_arg4072z00_8093;

													{	/* Unsafe/url.scm 213 */
														obj_t BgL_arg4073z00_8094;

														BgL_arg4073z00_8094 =
															BGL_EXITD_PROTECT(BgL_exitd1181z00_4971);
														BgL_arg4072z00_8093 =
															CDR(((obj_t) BgL_arg4073z00_8094));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1181z00_4971,
														BgL_arg4072z00_8093);
													BUNSPEC;
												}
											else
												{	/* Unsafe/url.scm 213 */
													BFALSE;
												}
										}
										bgl_close_input_port(BgL_pz00_4970);
										return BgL_tmp1183z00_4973;
									}
								}
							}
						}
					else
						{	/* Unsafe/url.scm 211 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00
								(BGl_string4140z00zz__urlz00, BGl_string4142z00zz__urlz00,
								BgL_urlz00_6);
						}
				}
		}

	}



/* &url-parse */
	obj_t BGl_z62urlzd2parsezb0zz__urlz00(obj_t BgL_envz00_8881,
		obj_t BgL_urlz00_8882)
	{
		{	/* Unsafe/url.scm 207 */
			return BGl_urlzd2parsezd2zz__urlz00(BgL_urlz00_8882);
		}

	}



/* &<@anonymous:3483> */
	obj_t BGl_z62zc3z04anonymousza33483ze3ze5zz__urlz00(obj_t BgL_envz00_8883)
	{
		{	/* Unsafe/url.scm 213 */
			{	/* Unsafe/url.scm 215 */
				obj_t BgL_pz00_8884;

				BgL_pz00_8884 = ((obj_t) PROCEDURE_REF(BgL_envz00_8883, (int) (0L)));
				return bgl_close_input_port(BgL_pz00_8884);
			}
		}

	}



/* url-sans-protocol-parse */
	BGL_EXPORTED_DEF obj_t BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(obj_t
		BgL_urlz00_7, obj_t BgL_protocolz00_8)
	{
		{	/* Unsafe/url.scm 222 */
			if (INPUT_PORTP(BgL_urlz00_7))
				{	/* Unsafe/url.scm 224 */
					return
						BGL_PROCEDURE_CALL3(BGl_absolutezd2urizd2grammarz00zz__urlz00,
						BgL_urlz00_7, BgL_protocolz00_8, BFALSE);
				}
			else
				{	/* Unsafe/url.scm 224 */
					if (STRINGP(BgL_urlz00_7))
						{	/* Unsafe/url.scm 227 */
							obj_t BgL_pz00_4981;

							{	/* Ieee/port.scm 469 */
								long BgL_endz00_4989;

								BgL_endz00_4989 = STRING_LENGTH(BgL_urlz00_7);
								{	/* Ieee/port.scm 469 */

									BgL_pz00_4981 =
										BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
										(BgL_urlz00_7, BINT(0L), BINT(BgL_endz00_4989));
							}}
							{	/* Unsafe/url.scm 228 */
								obj_t BgL_exitd1185z00_4982;

								BgL_exitd1185z00_4982 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Unsafe/url.scm 230 */
									obj_t BgL_zc3z04anonymousza33486ze3z87_8885;

									BgL_zc3z04anonymousza33486ze3z87_8885 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza33486ze3ze5zz__urlz00, (int) (0L),
										(int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza33486ze3z87_8885,
										(int) (0L), BgL_pz00_4981);
									{	/* Unsafe/url.scm 228 */
										obj_t BgL_arg4075z00_8099;

										{	/* Unsafe/url.scm 228 */
											obj_t BgL_arg4076z00_8100;

											BgL_arg4076z00_8100 =
												BGL_EXITD_PROTECT(BgL_exitd1185z00_4982);
											BgL_arg4075z00_8099 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza33486ze3z87_8885,
												BgL_arg4076z00_8100);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1185z00_4982,
											BgL_arg4075z00_8099);
										BUNSPEC;
									}
									{	/* Unsafe/url.scm 229 */
										obj_t BgL_tmp1187z00_4984;

										BgL_tmp1187z00_4984 =
											BGL_PROCEDURE_CALL3
											(BGl_absolutezd2urizd2grammarz00zz__urlz00, BgL_pz00_4981,
											BgL_protocolz00_8, BFALSE);
										{	/* Unsafe/url.scm 228 */
											bool_t BgL_test5036z00_14254;

											{	/* Unsafe/url.scm 228 */
												obj_t BgL_arg4074z00_8102;

												BgL_arg4074z00_8102 =
													BGL_EXITD_PROTECT(BgL_exitd1185z00_4982);
												BgL_test5036z00_14254 = PAIRP(BgL_arg4074z00_8102);
											}
											if (BgL_test5036z00_14254)
												{	/* Unsafe/url.scm 228 */
													obj_t BgL_arg4072z00_8103;

													{	/* Unsafe/url.scm 228 */
														obj_t BgL_arg4073z00_8104;

														BgL_arg4073z00_8104 =
															BGL_EXITD_PROTECT(BgL_exitd1185z00_4982);
														BgL_arg4072z00_8103 =
															CDR(((obj_t) BgL_arg4073z00_8104));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1185z00_4982,
														BgL_arg4072z00_8103);
													BUNSPEC;
												}
											else
												{	/* Unsafe/url.scm 228 */
													BFALSE;
												}
										}
										bgl_close_input_port(BgL_pz00_4981);
										return BgL_tmp1187z00_4984;
									}
								}
							}
						}
					else
						{	/* Unsafe/url.scm 226 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00
								(BGl_string4143z00zz__urlz00, BGl_string4142z00zz__urlz00,
								BgL_urlz00_7);
						}
				}
		}

	}



/* &url-sans-protocol-parse */
	obj_t BGl_z62urlzd2sanszd2protocolzd2parsezb0zz__urlz00(obj_t BgL_envz00_8886,
		obj_t BgL_urlz00_8887, obj_t BgL_protocolz00_8888)
	{
		{	/* Unsafe/url.scm 222 */
			{	/* Unsafe/url.scm 224 */
				obj_t BgL_auxz00_14263;

				if (STRINGP(BgL_protocolz00_8888))
					{	/* Unsafe/url.scm 224 */
						BgL_auxz00_14263 = BgL_protocolz00_8888;
					}
				else
					{
						obj_t BgL_auxz00_14266;

						BgL_auxz00_14266 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(8742L), BGl_string4145z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_protocolz00_8888);
						FAILURE(BgL_auxz00_14266, BFALSE, BFALSE);
					}
				return
					BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(BgL_urlz00_8887,
					BgL_auxz00_14263);
			}
		}

	}



/* &<@anonymous:3486> */
	obj_t BGl_z62zc3z04anonymousza33486ze3ze5zz__urlz00(obj_t BgL_envz00_8889)
	{
		{	/* Unsafe/url.scm 228 */
			{	/* Unsafe/url.scm 230 */
				obj_t BgL_pz00_8890;

				BgL_pz00_8890 = ((obj_t) PROCEDURE_REF(BgL_envz00_8889, (int) (0L)));
				return bgl_close_input_port(BgL_pz00_8890);
			}
		}

	}



/* http-url-parse */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2urlzd2parsez00zz__urlz00(obj_t BgL_urlz00_9)
	{
		{	/* Unsafe/url.scm 237 */
			if (INPUT_PORTP(BgL_urlz00_9))
				{	/* Unsafe/url.scm 239 */
					return
						BGl_z62zc3z04anonymousza32456ze3ze5zz__urlz00
						(BGl_httpzd2urizd2grammarz00zz__urlz00, BgL_urlz00_9);
				}
			else
				{	/* Unsafe/url.scm 239 */
					if (STRINGP(BgL_urlz00_9))
						{	/* Unsafe/url.scm 242 */
							obj_t BgL_pz00_4992;

							{	/* Ieee/port.scm 469 */
								long BgL_endz00_5000;

								BgL_endz00_5000 = STRING_LENGTH(BgL_urlz00_9);
								{	/* Ieee/port.scm 469 */

									BgL_pz00_4992 =
										BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
										(BgL_urlz00_9, BINT(0L), BINT(BgL_endz00_5000));
							}}
							{	/* Unsafe/url.scm 243 */
								obj_t BgL_exitd1189z00_4993;

								BgL_exitd1189z00_4993 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Unsafe/url.scm 245 */
									obj_t BgL_zc3z04anonymousza33489ze3z87_8891;

									BgL_zc3z04anonymousza33489ze3z87_8891 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza33489ze3ze5zz__urlz00, (int) (0L),
										(int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza33489ze3z87_8891,
										(int) (0L), BgL_pz00_4992);
									{	/* Unsafe/url.scm 243 */
										obj_t BgL_arg4075z00_8109;

										{	/* Unsafe/url.scm 243 */
											obj_t BgL_arg4076z00_8110;

											BgL_arg4076z00_8110 =
												BGL_EXITD_PROTECT(BgL_exitd1189z00_4993);
											BgL_arg4075z00_8109 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza33489ze3z87_8891,
												BgL_arg4076z00_8110);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1189z00_4993,
											BgL_arg4075z00_8109);
										BUNSPEC;
									}
									{	/* Unsafe/url.scm 244 */
										obj_t BgL_tmp1191z00_4995;

										BgL_tmp1191z00_4995 =
											BGl_z62zc3z04anonymousza32456ze3ze5zz__urlz00
											(BGl_httpzd2urizd2grammarz00zz__urlz00, BgL_pz00_4992);
										{	/* Unsafe/url.scm 243 */
											bool_t BgL_test5040z00_14300;

											{	/* Unsafe/url.scm 243 */
												obj_t BgL_arg4074z00_8112;

												BgL_arg4074z00_8112 =
													BGL_EXITD_PROTECT(BgL_exitd1189z00_4993);
												BgL_test5040z00_14300 = PAIRP(BgL_arg4074z00_8112);
											}
											if (BgL_test5040z00_14300)
												{	/* Unsafe/url.scm 243 */
													obj_t BgL_arg4072z00_8113;

													{	/* Unsafe/url.scm 243 */
														obj_t BgL_arg4073z00_8114;

														BgL_arg4073z00_8114 =
															BGL_EXITD_PROTECT(BgL_exitd1189z00_4993);
														BgL_arg4072z00_8113 =
															CDR(((obj_t) BgL_arg4073z00_8114));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1189z00_4993,
														BgL_arg4072z00_8113);
													BUNSPEC;
												}
											else
												{	/* Unsafe/url.scm 243 */
													BFALSE;
												}
										}
										bgl_close_input_port(BgL_pz00_4992);
										return BgL_tmp1191z00_4995;
									}
								}
							}
						}
					else
						{	/* Unsafe/url.scm 241 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00
								(BGl_string4140z00zz__urlz00, BGl_string4142z00zz__urlz00,
								BgL_urlz00_9);
						}
				}
		}

	}



/* &http-url-parse */
	obj_t BGl_z62httpzd2urlzd2parsez62zz__urlz00(obj_t BgL_envz00_8892,
		obj_t BgL_urlz00_8893)
	{
		{	/* Unsafe/url.scm 237 */
			return BGl_httpzd2urlzd2parsez00zz__urlz00(BgL_urlz00_8893);
		}

	}



/* &<@anonymous:3489> */
	obj_t BGl_z62zc3z04anonymousza33489ze3ze5zz__urlz00(obj_t BgL_envz00_8894)
	{
		{	/* Unsafe/url.scm 243 */
			{	/* Unsafe/url.scm 245 */
				obj_t BgL_pz00_8895;

				BgL_pz00_8895 = ((obj_t) PROCEDURE_REF(BgL_envz00_8894, (int) (0L)));
				return bgl_close_input_port(BgL_pz00_8895);
			}
		}

	}



/* encode-char */
	obj_t BGl_encodezd2charzd2zz__urlz00(obj_t BgL_resz00_10, long BgL_jz00_11,
		unsigned char BgL_cz00_12)
	{
		{	/* Unsafe/url.scm 252 */
			{	/* Unsafe/url.scm 261 */
				long BgL_nz00_5002;

				BgL_nz00_5002 = (BgL_cz00_12);
				STRING_SET(BgL_resz00_10, BgL_jz00_11, ((unsigned char) '%'));
				if ((BgL_nz00_5002 < 16L))
					{	/* Unsafe/url.scm 264 */
						{	/* Unsafe/url.scm 265 */
							long BgL_tmpz00_14318;

							BgL_tmpz00_14318 = (BgL_jz00_11 + 1L);
							STRING_SET(BgL_resz00_10, BgL_tmpz00_14318,
								((unsigned char) '0'));
						}
						{	/* Unsafe/url.scm 266 */
							long BgL_arg3492z00_5005;
							obj_t BgL_arg3493z00_5006;

							BgL_arg3492z00_5005 = (BgL_jz00_11 + 2L);
							BgL_arg3493z00_5006 =
								BGl_intzd2ze3charze70zd6zz__urlz00(BgL_nz00_5002);
							{	/* Unsafe/url.scm 266 */
								unsigned char BgL_tmpz00_14323;

								BgL_tmpz00_14323 = CCHAR(BgL_arg3493z00_5006);
								return
									STRING_SET(BgL_resz00_10, BgL_arg3492z00_5005,
									BgL_tmpz00_14323);
							}
						}
					}
				else
					{	/* Unsafe/url.scm 268 */
						long BgL_n1z00_5007;
						long BgL_n2z00_5008;

						BgL_n1z00_5007 = (BgL_nz00_5002 / 16L);
						{	/* Unsafe/url.scm 269 */
							long BgL_n1z00_8138;
							long BgL_n2z00_8139;

							BgL_n1z00_8138 = BgL_nz00_5002;
							BgL_n2z00_8139 = 16L;
							{	/* Unsafe/url.scm 269 */
								bool_t BgL_test5042z00_14327;

								{	/* Unsafe/url.scm 269 */
									long BgL_arg3930z00_8141;

									BgL_arg3930z00_8141 =
										(((BgL_n1z00_8138) | (BgL_n2z00_8139)) & -2147483648);
									BgL_test5042z00_14327 = (BgL_arg3930z00_8141 == 0L);
								}
								if (BgL_test5042z00_14327)
									{	/* Unsafe/url.scm 269 */
										int32_t BgL_arg3927z00_8142;

										{	/* Unsafe/url.scm 269 */
											int32_t BgL_arg3928z00_8143;
											int32_t BgL_arg3929z00_8144;

											BgL_arg3928z00_8143 = (int32_t) (BgL_n1z00_8138);
											BgL_arg3929z00_8144 = (int32_t) (BgL_n2z00_8139);
											BgL_arg3927z00_8142 =
												(BgL_arg3928z00_8143 % BgL_arg3929z00_8144);
										}
										{	/* Unsafe/url.scm 269 */
											long BgL_arg4028z00_8149;

											BgL_arg4028z00_8149 = (long) (BgL_arg3927z00_8142);
											BgL_n2z00_5008 = (long) (BgL_arg4028z00_8149);
									}}
								else
									{	/* Unsafe/url.scm 269 */
										BgL_n2z00_5008 = (BgL_n1z00_8138 % BgL_n2z00_8139);
									}
							}
						}
						{	/* Unsafe/url.scm 270 */
							long BgL_arg3494z00_5009;
							obj_t BgL_arg3495z00_5010;

							BgL_arg3494z00_5009 = (BgL_jz00_11 + 1L);
							BgL_arg3495z00_5010 =
								BGl_intzd2ze3charze70zd6zz__urlz00(BgL_n1z00_5007);
							{	/* Unsafe/url.scm 270 */
								unsigned char BgL_tmpz00_14338;

								BgL_tmpz00_14338 = CCHAR(BgL_arg3495z00_5010);
								STRING_SET(BgL_resz00_10, BgL_arg3494z00_5009,
									BgL_tmpz00_14338);
						}}
						{	/* Unsafe/url.scm 271 */
							long BgL_arg3497z00_5011;
							obj_t BgL_arg3498z00_5012;

							BgL_arg3497z00_5011 = (BgL_jz00_11 + 2L);
							BgL_arg3498z00_5012 =
								BGl_intzd2ze3charze70zd6zz__urlz00(BgL_n2z00_5008);
							{	/* Unsafe/url.scm 271 */
								unsigned char BgL_tmpz00_14343;

								BgL_tmpz00_14343 = CCHAR(BgL_arg3498z00_5012);
								return
									STRING_SET(BgL_resz00_10, BgL_arg3497z00_5011,
									BgL_tmpz00_14343);
							}
						}
					}
			}
		}

	}



/* int->char~0 */
	obj_t BGl_intzd2ze3charze70zd6zz__urlz00(long BgL_cz00_5013)
	{
		{	/* Unsafe/url.scm 259 */
			if ((BgL_cz00_5013 < 10L))
				{	/* Unsafe/url.scm 256 */
					return BCHAR(((BgL_cz00_5013 + 48L)));
				}
			else
				{	/* Unsafe/url.scm 256 */
					if ((BgL_cz00_5013 < 16L))
						{	/* Unsafe/url.scm 258 */
							return BCHAR((((BgL_cz00_5013 - 10L) + 65L)));
						}
					else
						{	/* Unsafe/url.scm 258 */
							return BFALSE;
						}
				}
		}

	}



/* url-path-encode/set */
	obj_t BGl_urlzd2pathzd2encodezf2setzf2zz__urlz00(obj_t BgL_strz00_13,
		obj_t BgL_setz00_14)
	{
		{	/* Unsafe/url.scm 276 */
			{
				obj_t BgL_strz00_5051;
				long BgL_olz00_5052;
				long BgL_nlz00_5053;
				obj_t BgL_strz00_5025;
				long BgL_olz00_5026;

				{	/* Unsafe/url.scm 312 */
					long BgL_olz00_5023;

					BgL_olz00_5023 = STRING_LENGTH(BgL_strz00_13);
					BgL_strz00_5051 = BgL_strz00_13;
					BgL_olz00_5052 = BgL_olz00_5023;
					BgL_strz00_5025 = BgL_strz00_13;
					BgL_olz00_5026 = BgL_olz00_5023;
					{
						long BgL_iz00_5029;
						long BgL_nz00_5030;

						BgL_iz00_5029 = 0L;
						BgL_nz00_5030 = 0L;
					BgL_zc3z04anonymousza33507ze3z87_5031:
						if ((BgL_iz00_5029 == BgL_olz00_5026))
							{	/* Unsafe/url.scm 281 */
								BgL_nlz00_5053 = BgL_nz00_5030;
							}
						else
							{	/* Unsafe/url.scm 283 */
								unsigned char BgL_cz00_5033;

								BgL_cz00_5033 = STRING_REF(BgL_strz00_5025, BgL_iz00_5029);
								{	/* Unsafe/url.scm 285 */
									bool_t BgL_test5051z00_14391;

									{	/* Ieee/string.scm 223 */

										BgL_test5051z00_14391 =
											CBOOL(BGl_stringzd2indexzd2zz__r4_strings_6_7z00
											(BgL_setz00_14, BCHAR(BgL_cz00_5033), BINT(0L)));
									}
									if (BgL_test5051z00_14391)
										{
											long BgL_nz00_14398;
											long BgL_iz00_14396;

											BgL_iz00_14396 = (BgL_iz00_5029 + 1L);
											BgL_nz00_14398 = (BgL_nz00_5030 + 3L);
											BgL_nz00_5030 = BgL_nz00_14398;
											BgL_iz00_5029 = BgL_iz00_14396;
											goto BgL_zc3z04anonymousza33507ze3z87_5031;
										}
									else
										{	/* Unsafe/url.scm 287 */
											bool_t BgL_test5052z00_14400;

											if ((BgL_cz00_5033 < ((unsigned char) ' ')))
												{	/* Unsafe/url.scm 287 */
													BgL_test5052z00_14400 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/url.scm 287 */
													BgL_test5052z00_14400 =
														(BgL_cz00_5033 >= ((unsigned char) ''));
												}
											if (BgL_test5052z00_14400)
												{
													long BgL_nz00_14406;
													long BgL_iz00_14404;

													BgL_iz00_14404 = (BgL_iz00_5029 + 1L);
													BgL_nz00_14406 = (BgL_nz00_5030 + 3L);
													BgL_nz00_5030 = BgL_nz00_14406;
													BgL_iz00_5029 = BgL_iz00_14404;
													goto BgL_zc3z04anonymousza33507ze3z87_5031;
												}
											else
												{
													long BgL_nz00_14410;
													long BgL_iz00_14408;

													BgL_iz00_14408 = (BgL_iz00_5029 + 1L);
													BgL_nz00_14410 = (BgL_nz00_5030 + 1L);
													BgL_nz00_5030 = BgL_nz00_14410;
													BgL_iz00_5029 = BgL_iz00_14408;
													goto BgL_zc3z04anonymousza33507ze3z87_5031;
												}
										}
								}
							}
					}
					if ((BgL_nlz00_5053 == BgL_olz00_5052))
						{	/* Unsafe/url.scm 293 */
							return BgL_strz00_5051;
						}
					else
						{	/* Unsafe/url.scm 295 */
							obj_t BgL_resz00_5056;

							{	/* Ieee/string.scm 172 */

								BgL_resz00_5056 =
									make_string(BgL_nlz00_5053, ((unsigned char) ' '));
							}
							{
								long BgL_iz00_5058;
								long BgL_jz00_5059;

								BgL_iz00_5058 = 0L;
								BgL_jz00_5059 = 0L;
							BgL_zc3z04anonymousza33524ze3z87_5060:
								if ((BgL_jz00_5059 == BgL_nlz00_5053))
									{	/* Unsafe/url.scm 298 */
										return BgL_resz00_5056;
									}
								else
									{	/* Unsafe/url.scm 300 */
										unsigned char BgL_cz00_5062;

										BgL_cz00_5062 = STRING_REF(BgL_strz00_5051, BgL_iz00_5058);
										{	/* Unsafe/url.scm 302 */
											bool_t BgL_test5047z00_14364;

											{	/* Ieee/string.scm 223 */

												BgL_test5047z00_14364 =
													CBOOL(BGl_stringzd2indexzd2zz__r4_strings_6_7z00
													(BgL_setz00_14, BCHAR(BgL_cz00_5062), BINT(0L)));
											}
											if (BgL_test5047z00_14364)
												{	/* Unsafe/url.scm 302 */
													BGl_encodezd2charzd2zz__urlz00(BgL_resz00_5056,
														BgL_jz00_5059, BgL_cz00_5062);
													{
														long BgL_jz00_14372;
														long BgL_iz00_14370;

														BgL_iz00_14370 = (BgL_iz00_5058 + 1L);
														BgL_jz00_14372 = (BgL_jz00_5059 + 3L);
														BgL_jz00_5059 = BgL_jz00_14372;
														BgL_iz00_5058 = BgL_iz00_14370;
														goto BgL_zc3z04anonymousza33524ze3z87_5060;
													}
												}
											else
												{	/* Unsafe/url.scm 305 */
													bool_t BgL_test5048z00_14374;

													if ((BgL_cz00_5062 < ((unsigned char) ' ')))
														{	/* Unsafe/url.scm 305 */
															BgL_test5048z00_14374 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/url.scm 305 */
															BgL_test5048z00_14374 =
																(BgL_cz00_5062 >= ((unsigned char) ''));
														}
													if (BgL_test5048z00_14374)
														{	/* Unsafe/url.scm 305 */
															BGl_encodezd2charzd2zz__urlz00(BgL_resz00_5056,
																BgL_jz00_5059, BgL_cz00_5062);
															{
																long BgL_jz00_14381;
																long BgL_iz00_14379;

																BgL_iz00_14379 = (BgL_iz00_5058 + 1L);
																BgL_jz00_14381 = (BgL_jz00_5059 + 3L);
																BgL_jz00_5059 = BgL_jz00_14381;
																BgL_iz00_5058 = BgL_iz00_14379;
																goto BgL_zc3z04anonymousza33524ze3z87_5060;
															}
														}
													else
														{	/* Unsafe/url.scm 305 */
															STRING_SET(BgL_resz00_5056, BgL_jz00_5059,
																BgL_cz00_5062);
															{
																long BgL_jz00_14386;
																long BgL_iz00_14384;

																BgL_iz00_14384 = (BgL_iz00_5058 + 1L);
																BgL_jz00_14386 = (BgL_jz00_5059 + 1L);
																BgL_jz00_5059 = BgL_jz00_14386;
																BgL_iz00_5058 = BgL_iz00_14384;
																goto BgL_zc3z04anonymousza33524ze3z87_5060;
															}
														}
												}
										}
									}
							}
						}
				}
			}
		}

	}



/* url-path-encode */
	BGL_EXPORTED_DEF obj_t BGl_urlzd2pathzd2encodez00zz__urlz00(obj_t
		BgL_strz00_15)
	{
		{	/* Unsafe/url.scm 318 */
			return
				BGl_urlzd2pathzd2encodezf2setzf2zz__urlz00(BgL_strz00_15,
				BGl_string4147z00zz__urlz00);
		}

	}



/* &url-path-encode */
	obj_t BGl_z62urlzd2pathzd2encodez62zz__urlz00(obj_t BgL_envz00_8896,
		obj_t BgL_strz00_8897)
	{
		{	/* Unsafe/url.scm 318 */
			{	/* Unsafe/url.scm 319 */
				obj_t BgL_auxz00_14413;

				if (STRINGP(BgL_strz00_8897))
					{	/* Unsafe/url.scm 319 */
						BgL_auxz00_14413 = BgL_strz00_8897;
					}
				else
					{
						obj_t BgL_auxz00_14416;

						BgL_auxz00_14416 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(11794L), BGl_string4148z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8897);
						FAILURE(BgL_auxz00_14416, BFALSE, BFALSE);
					}
				return BGl_urlzd2pathzd2encodez00zz__urlz00(BgL_auxz00_14413);
			}
		}

	}



/* uri-encode */
	BGL_EXPORTED_DEF obj_t BGl_urizd2encodezd2zz__urlz00(obj_t BgL_strz00_16)
	{
		{	/* Unsafe/url.scm 324 */
			return
				BGl_urlzd2pathzd2encodezf2setzf2zz__urlz00(BgL_strz00_16,
				BGl_string4149z00zz__urlz00);
		}

	}



/* &uri-encode */
	obj_t BGl_z62urizd2encodezb0zz__urlz00(obj_t BgL_envz00_8898,
		obj_t BgL_strz00_8899)
	{
		{	/* Unsafe/url.scm 324 */
			{	/* Unsafe/url.scm 325 */
				obj_t BgL_auxz00_14422;

				if (STRINGP(BgL_strz00_8899))
					{	/* Unsafe/url.scm 325 */
						BgL_auxz00_14422 = BgL_strz00_8899;
					}
				else
					{
						obj_t BgL_auxz00_14425;

						BgL_auxz00_14425 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(12107L), BGl_string4150z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8899);
						FAILURE(BgL_auxz00_14425, BFALSE, BFALSE);
					}
				return BGl_urizd2encodezd2zz__urlz00(BgL_auxz00_14422);
			}
		}

	}



/* uri-encode-component */
	BGL_EXPORTED_DEF obj_t BGl_urizd2encodezd2componentz00zz__urlz00(obj_t
		BgL_strz00_17)
	{
		{	/* Unsafe/url.scm 330 */
			return
				BGl_urlzd2pathzd2encodezf2setzf2zz__urlz00(BgL_strz00_17,
				BGl_string4151z00zz__urlz00);
		}

	}



/* &uri-encode-component */
	obj_t BGl_z62urizd2encodezd2componentz62zz__urlz00(obj_t BgL_envz00_8900,
		obj_t BgL_strz00_8901)
	{
		{	/* Unsafe/url.scm 330 */
			{	/* Unsafe/url.scm 331 */
				obj_t BgL_auxz00_14431;

				if (STRINGP(BgL_strz00_8901))
					{	/* Unsafe/url.scm 331 */
						BgL_auxz00_14431 = BgL_strz00_8901;
					}
				else
					{
						obj_t BgL_auxz00_14434;

						BgL_auxz00_14434 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(12415L), BGl_string4152z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8901);
						FAILURE(BgL_auxz00_14434, BFALSE, BFALSE);
					}
				return BGl_urizd2encodezd2componentz00zz__urlz00(BgL_auxz00_14431);
			}
		}

	}



/* url-encode */
	BGL_EXPORTED_DEF obj_t BGl_urlzd2encodezd2zz__urlz00(obj_t BgL_strz00_18)
	{
		{	/* Unsafe/url.scm 336 */
			{	/* Unsafe/url.scm 337 */
				obj_t BgL_schemez00_5084;

				BgL_schemez00_5084 = BGl_urlzd2parsezd2zz__urlz00(BgL_strz00_18);
				{	/* Unsafe/url.scm 338 */
					obj_t BgL_uinfoz00_5085;
					obj_t BgL_hostz00_5086;
					obj_t BgL_portz00_5087;
					obj_t BgL_abspathz00_5088;

					{	/* Unsafe/url.scm 339 */
						obj_t BgL_tmpz00_8194;

						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14440;

							BgL_tmpz00_14440 = (int) (1L);
							BgL_tmpz00_8194 = BGL_MVALUES_VAL(BgL_tmpz00_14440);
						}
						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14443;

							BgL_tmpz00_14443 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_14443, BUNSPEC);
						}
						BgL_uinfoz00_5085 = BgL_tmpz00_8194;
					}
					{	/* Unsafe/url.scm 339 */
						obj_t BgL_tmpz00_8195;

						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14446;

							BgL_tmpz00_14446 = (int) (2L);
							BgL_tmpz00_8195 = BGL_MVALUES_VAL(BgL_tmpz00_14446);
						}
						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14449;

							BgL_tmpz00_14449 = (int) (2L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_14449, BUNSPEC);
						}
						BgL_hostz00_5086 = BgL_tmpz00_8195;
					}
					{	/* Unsafe/url.scm 339 */
						obj_t BgL_tmpz00_8196;

						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14452;

							BgL_tmpz00_14452 = (int) (3L);
							BgL_tmpz00_8196 = BGL_MVALUES_VAL(BgL_tmpz00_14452);
						}
						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14455;

							BgL_tmpz00_14455 = (int) (3L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_14455, BUNSPEC);
						}
						BgL_portz00_5087 = BgL_tmpz00_8196;
					}
					{	/* Unsafe/url.scm 339 */
						obj_t BgL_tmpz00_8197;

						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14458;

							BgL_tmpz00_14458 = (int) (4L);
							BgL_tmpz00_8197 = BGL_MVALUES_VAL(BgL_tmpz00_14458);
						}
						{	/* Unsafe/url.scm 339 */
							int BgL_tmpz00_14461;

							BgL_tmpz00_14461 = (int) (4L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_14461, BUNSPEC);
						}
						BgL_abspathz00_5088 = BgL_tmpz00_8197;
					}
					{	/* Unsafe/url.scm 339 */
						bool_t BgL_test5057z00_14464;

						{	/* Unsafe/url.scm 339 */
							long BgL_l1z00_8200;

							BgL_l1z00_8200 = STRING_LENGTH(((obj_t) BgL_schemez00_5084));
							if ((BgL_l1z00_8200 == 4L))
								{	/* Unsafe/url.scm 339 */
									int BgL_arg3828z00_8203;

									{	/* Unsafe/url.scm 339 */
										char *BgL_auxz00_14472;
										char *BgL_tmpz00_14469;

										BgL_auxz00_14472 =
											BSTRING_TO_STRING(BGl_string4138z00zz__urlz00);
										BgL_tmpz00_14469 =
											BSTRING_TO_STRING(((obj_t) BgL_schemez00_5084));
										BgL_arg3828z00_8203 =
											memcmp(BgL_tmpz00_14469, BgL_auxz00_14472,
											BgL_l1z00_8200);
									}
									BgL_test5057z00_14464 = ((long) (BgL_arg3828z00_8203) == 0L);
								}
							else
								{	/* Unsafe/url.scm 339 */
									BgL_test5057z00_14464 = ((bool_t) 0);
								}
						}
						if (BgL_test5057z00_14464)
							{	/* Unsafe/url.scm 339 */
								return BgL_strz00_18;
							}
						else
							{	/* Unsafe/url.scm 341 */
								obj_t BgL_epathz00_5090;

								{	/* Unsafe/url.scm 341 */
									obj_t BgL_res4094z00_8210;

									BgL_res4094z00_8210 =
										BGl_urlzd2pathzd2encodezf2setzf2zz__urlz00(
										((obj_t) BgL_abspathz00_5088), BGl_string4147z00zz__urlz00);
									BgL_epathz00_5090 = BgL_res4094z00_8210;
								}
								if (CBOOL(BgL_uinfoz00_5085))
									{	/* Unsafe/url.scm 343 */
										obj_t BgL_list3536z00_5091;

										{	/* Unsafe/url.scm 343 */
											obj_t BgL_arg3537z00_5092;

											{	/* Unsafe/url.scm 343 */
												obj_t BgL_arg3538z00_5093;

												{	/* Unsafe/url.scm 343 */
													obj_t BgL_arg3539z00_5094;

													{	/* Unsafe/url.scm 343 */
														obj_t BgL_arg3540z00_5095;

														BgL_arg3540z00_5095 =
															MAKE_YOUNG_PAIR(BgL_epathz00_5090, BNIL);
														BgL_arg3539z00_5094 =
															MAKE_YOUNG_PAIR(BgL_portz00_5087,
															BgL_arg3540z00_5095);
													}
													BgL_arg3538z00_5093 =
														MAKE_YOUNG_PAIR(BgL_hostz00_5086,
														BgL_arg3539z00_5094);
												}
												BgL_arg3537z00_5092 =
													MAKE_YOUNG_PAIR(BgL_uinfoz00_5085,
													BgL_arg3538z00_5093);
											}
											BgL_list3536z00_5091 =
												MAKE_YOUNG_PAIR(BgL_schemez00_5084,
												BgL_arg3537z00_5092);
										}
										return
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string4153z00zz__urlz00, BgL_list3536z00_5091);
									}
								else
									{	/* Unsafe/url.scm 344 */
										obj_t BgL_list3541z00_5096;

										{	/* Unsafe/url.scm 344 */
											obj_t BgL_arg3542z00_5097;

											{	/* Unsafe/url.scm 344 */
												obj_t BgL_arg3543z00_5098;

												{	/* Unsafe/url.scm 344 */
													obj_t BgL_arg3545z00_5099;

													BgL_arg3545z00_5099 =
														MAKE_YOUNG_PAIR(BgL_epathz00_5090, BNIL);
													BgL_arg3543z00_5098 =
														MAKE_YOUNG_PAIR(BgL_portz00_5087,
														BgL_arg3545z00_5099);
												}
												BgL_arg3542z00_5097 =
													MAKE_YOUNG_PAIR(BgL_hostz00_5086,
													BgL_arg3543z00_5098);
											}
											BgL_list3541z00_5096 =
												MAKE_YOUNG_PAIR(BgL_schemez00_5084,
												BgL_arg3542z00_5097);
										}
										return
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string4154z00zz__urlz00, BgL_list3541z00_5096);
									}
							}
					}
				}
			}
		}

	}



/* &url-encode */
	obj_t BGl_z62urlzd2encodezb0zz__urlz00(obj_t BgL_envz00_8902,
		obj_t BgL_strz00_8903)
	{
		{	/* Unsafe/url.scm 336 */
			{	/* Unsafe/url.scm 337 */
				obj_t BgL_auxz00_14492;

				if (STRINGP(BgL_strz00_8903))
					{	/* Unsafe/url.scm 337 */
						BgL_auxz00_14492 = BgL_strz00_8903;
					}
				else
					{
						obj_t BgL_auxz00_14495;

						BgL_auxz00_14495 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(12724L), BGl_string4155z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8903);
						FAILURE(BgL_auxz00_14495, BFALSE, BFALSE);
					}
				return BGl_urlzd2encodezd2zz__urlz00(BgL_auxz00_14492);
			}
		}

	}



/* url? */
	BGL_EXPORTED_DEF bool_t BGl_urlzf3zf3zz__urlz00(obj_t BgL_strz00_19)
	{
		{	/* Unsafe/url.scm 351 */
			{	/* Unsafe/url.scm 352 */
				long BgL_lenz00_5100;

				BgL_lenz00_5100 = STRING_LENGTH(BgL_strz00_19);
				{
					long BgL_iz00_5102;

					BgL_iz00_5102 = 0L;
				BgL_zc3z04anonymousza33546ze3z87_5103:
					if ((BgL_iz00_5102 == BgL_lenz00_5100))
						{	/* Unsafe/url.scm 354 */
							return ((bool_t) 1);
						}
					else
						{	/* Unsafe/url.scm 356 */
							unsigned char BgL_cz00_5105;

							BgL_cz00_5105 = STRING_REF(BgL_strz00_19, BgL_iz00_5102);
							if ((BgL_cz00_5105 == ((unsigned char) '%')))
								{	/* Unsafe/url.scm 359 */
									bool_t BgL_test5063z00_14506;

									if ((BgL_iz00_5102 <= (BgL_lenz00_5100 - 3L)))
										{	/* Unsafe/url.scm 359 */
											if (BGl_charzd2hexnumericzf3z21zz__urlz00(STRING_REF
													(BgL_strz00_19, (BgL_iz00_5102 + 1L))))
												{	/* Unsafe/url.scm 360 */
													BgL_test5063z00_14506 =
														BGl_charzd2hexnumericzf3z21zz__urlz00(STRING_REF
														(BgL_strz00_19, (BgL_iz00_5102 + 2L)));
												}
											else
												{	/* Unsafe/url.scm 360 */
													BgL_test5063z00_14506 = ((bool_t) 0);
												}
										}
									else
										{	/* Unsafe/url.scm 359 */
											BgL_test5063z00_14506 = ((bool_t) 0);
										}
									if (BgL_test5063z00_14506)
										{
											long BgL_iz00_14517;

											BgL_iz00_14517 = (BgL_iz00_5102 + 3L);
											BgL_iz00_5102 = BgL_iz00_14517;
											goto BgL_zc3z04anonymousza33546ze3z87_5103;
										}
									else
										{	/* Unsafe/url.scm 359 */
											return ((bool_t) 0);
										}
								}
							else
								{	/* Unsafe/url.scm 358 */
									if ((BgL_cz00_5105 <= ((unsigned char) '')))
										{
											long BgL_iz00_14521;

											BgL_iz00_14521 = (BgL_iz00_5102 + 1L);
											BgL_iz00_5102 = BgL_iz00_14521;
											goto BgL_zc3z04anonymousza33546ze3z87_5103;
										}
									else
										{
											long BgL_iz00_14523;

											BgL_iz00_14523 = (BgL_iz00_5102 + 1L);
											BgL_iz00_5102 = BgL_iz00_14523;
											goto BgL_zc3z04anonymousza33546ze3z87_5103;
										}
								}
						}
				}
			}
		}

	}



/* &url? */
	obj_t BGl_z62urlzf3z91zz__urlz00(obj_t BgL_envz00_8904, obj_t BgL_strz00_8905)
	{
		{	/* Unsafe/url.scm 351 */
			{	/* Unsafe/url.scm 352 */
				bool_t BgL_tmpz00_14525;

				{	/* Unsafe/url.scm 352 */
					obj_t BgL_auxz00_14526;

					if (STRINGP(BgL_strz00_8905))
						{	/* Unsafe/url.scm 352 */
							BgL_auxz00_14526 = BgL_strz00_8905;
						}
					else
						{
							obj_t BgL_auxz00_14529;

							BgL_auxz00_14529 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
								BINT(13409L), BGl_string4156z00zz__urlz00,
								BGl_string4146z00zz__urlz00, BgL_strz00_8905);
							FAILURE(BgL_auxz00_14529, BFALSE, BFALSE);
						}
					BgL_tmpz00_14525 = BGl_urlzf3zf3zz__urlz00(BgL_auxz00_14526);
				}
				return BBOOL(BgL_tmpz00_14525);
			}
		}

	}



/* char-value */
	long BGl_charzd2valuezd2zz__urlz00(unsigned char BgL_cz00_20)
	{
		{	/* Unsafe/url.scm 372 */
			if (isdigit(BgL_cz00_20))
				{	/* Unsafe/url.scm 374 */
					return ((BgL_cz00_20) - 48L);
				}
			else
				{	/* Unsafe/url.scm 374 */
					if ((BgL_cz00_20 <= ((unsigned char) 'F')))
						{	/* Unsafe/url.scm 376 */
							return (10L + ((BgL_cz00_20) - 65L));
						}
					else
						{	/* Unsafe/url.scm 376 */
							return (10L + ((BgL_cz00_20) - 97L));
						}
				}
		}

	}



/* url-string-decode-inner! */
	obj_t BGl_urlzd2stringzd2decodezd2innerz12zc0zz__urlz00(obj_t BgL_strz00_21,
		long BgL_olz00_22, long BgL_nlz00_23, obj_t BgL_resz00_24,
		obj_t BgL_setz00_25)
	{
		{	/* Unsafe/url.scm 384 */
			{	/* Unsafe/url.scm 385 */
				long BgL_olzd22zd2_5137;

				BgL_olzd22zd2_5137 = (BgL_olz00_22 - 2L);
				{
					long BgL_iz00_5139;
					long BgL_jz00_5140;

					BgL_iz00_5139 = 0L;
					BgL_jz00_5140 = 0L;
				BgL_zc3z04anonymousza33583ze3z87_5141:
					if ((BgL_jz00_5140 == BgL_nlz00_23))
						{	/* Unsafe/url.scm 388 */
							return BgL_resz00_24;
						}
					else
						{	/* Unsafe/url.scm 390 */
							unsigned char BgL_cz00_5143;

							BgL_cz00_5143 = STRING_REF(BgL_strz00_21, BgL_iz00_5139);
							{	/* Unsafe/url.scm 391 */
								bool_t BgL_test5071z00_14551;

								if ((BgL_cz00_5143 == ((unsigned char) '%')))
									{	/* Unsafe/url.scm 391 */
										BgL_test5071z00_14551 =
											(BgL_iz00_5139 < BgL_olzd22zd2_5137);
									}
								else
									{	/* Unsafe/url.scm 391 */
										BgL_test5071z00_14551 = ((bool_t) 0);
									}
								if (BgL_test5071z00_14551)
									{	/* Unsafe/url.scm 392 */
										unsigned char BgL_c1z00_5146;
										unsigned char BgL_c2z00_5147;

										BgL_c1z00_5146 =
											STRING_REF(BgL_strz00_21, (BgL_iz00_5139 + 1L));
										BgL_c2z00_5147 =
											STRING_REF(BgL_strz00_21, (BgL_iz00_5139 + 2L));
										{	/* Unsafe/url.scm 394 */
											bool_t BgL_test5073z00_14559;

											if (BGl_charzd2hexnumericzf3z21zz__urlz00(BgL_c1z00_5146))
												{	/* Unsafe/url.scm 394 */
													BgL_test5073z00_14559 =
														BGl_charzd2hexnumericzf3z21zz__urlz00
														(BgL_c2z00_5147);
												}
											else
												{	/* Unsafe/url.scm 394 */
													BgL_test5073z00_14559 = ((bool_t) 0);
												}
											if (BgL_test5073z00_14559)
												{	/* Unsafe/url.scm 395 */
													long BgL_v1z00_5150;

													BgL_v1z00_5150 =
														BGl_charzd2valuezd2zz__urlz00(BgL_c1z00_5146);
													{	/* Unsafe/url.scm 395 */
														long BgL_v2z00_5151;

														BgL_v2z00_5151 =
															BGl_charzd2valuezd2zz__urlz00(BgL_c2z00_5147);
														{	/* Unsafe/url.scm 396 */
															long BgL_dz00_5152;

															BgL_dz00_5152 =
																((BgL_v1z00_5150 * 16L) + BgL_v2z00_5151);
															{	/* Unsafe/url.scm 397 */

																{	/* Unsafe/url.scm 398 */
																	bool_t BgL_test5075z00_14567;

																	{	/* Unsafe/url.scm 398 */
																		unsigned char BgL_arg3599z00_5165;

																		BgL_arg3599z00_5165 = (BgL_dz00_5152);
																		{	/* Ieee/string.scm 223 */

																			BgL_test5075z00_14567 =
																				CBOOL
																				(BGl_stringzd2indexzd2zz__r4_strings_6_7z00
																				(BgL_setz00_25,
																					BCHAR(BgL_arg3599z00_5165),
																					BINT(0L)));
																	}}
																	if (BgL_test5075z00_14567)
																		{	/* Unsafe/url.scm 398 */
																			STRING_SET(BgL_resz00_24, BgL_jz00_5140,
																				BgL_cz00_5143);
																			{	/* Unsafe/url.scm 401 */
																				long BgL_tmpz00_14574;

																				BgL_tmpz00_14574 = (BgL_jz00_5140 + 1L);
																				STRING_SET(BgL_resz00_24,
																					BgL_tmpz00_14574, BgL_c1z00_5146);
																			}
																			{	/* Unsafe/url.scm 402 */
																				long BgL_tmpz00_14577;

																				BgL_tmpz00_14577 = (BgL_jz00_5140 + 2L);
																				STRING_SET(BgL_resz00_24,
																					BgL_tmpz00_14577, BgL_c2z00_5147);
																			}
																			{
																				long BgL_jz00_14582;
																				long BgL_iz00_14580;

																				BgL_iz00_14580 = (BgL_iz00_5139 + 3L);
																				BgL_jz00_14582 = (BgL_jz00_5140 + 3L);
																				BgL_jz00_5140 = BgL_jz00_14582;
																				BgL_iz00_5139 = BgL_iz00_14580;
																				goto
																					BgL_zc3z04anonymousza33583ze3z87_5141;
																			}
																		}
																	else
																		{	/* Unsafe/url.scm 398 */
																			{	/* Unsafe/url.scm 405 */
																				unsigned char BgL_tmpz00_14584;

																				BgL_tmpz00_14584 = (BgL_dz00_5152);
																				STRING_SET(BgL_resz00_24, BgL_jz00_5140,
																					BgL_tmpz00_14584);
																			}
																			{
																				long BgL_jz00_14589;
																				long BgL_iz00_14587;

																				BgL_iz00_14587 = (BgL_iz00_5139 + 3L);
																				BgL_jz00_14589 = (BgL_jz00_5140 + 1L);
																				BgL_jz00_5140 = BgL_jz00_14589;
																				BgL_iz00_5139 = BgL_iz00_14587;
																				goto
																					BgL_zc3z04anonymousza33583ze3z87_5141;
																			}
																		}
																}
															}
														}
													}
												}
											else
												{	/* Unsafe/url.scm 394 */
													STRING_SET(BgL_resz00_24, BgL_jz00_5140,
														BgL_cz00_5143);
													{
														long BgL_jz00_14594;
														long BgL_iz00_14592;

														BgL_iz00_14592 = (BgL_iz00_5139 + 1L);
														BgL_jz00_14594 = (BgL_jz00_5140 + 1L);
														BgL_jz00_5140 = BgL_jz00_14594;
														BgL_iz00_5139 = BgL_iz00_14592;
														goto BgL_zc3z04anonymousza33583ze3z87_5141;
													}
												}
										}
									}
								else
									{	/* Unsafe/url.scm 391 */
										STRING_SET(BgL_resz00_24, BgL_jz00_5140, BgL_cz00_5143);
										{
											long BgL_jz00_14599;
											long BgL_iz00_14597;

											BgL_iz00_14597 = (BgL_iz00_5139 + 1L);
											BgL_jz00_14599 = (BgL_jz00_5140 + 1L);
											BgL_jz00_5140 = BgL_jz00_14599;
											BgL_iz00_5139 = BgL_iz00_14597;
											goto BgL_zc3z04anonymousza33583ze3z87_5141;
										}
									}
							}
						}
				}
			}
		}

	}



/* url-decode-count */
	long BGl_urlzd2decodezd2countz00zz__urlz00(obj_t BgL_strz00_26,
		long BgL_olz00_27, obj_t BgL_setz00_28)
	{
		{	/* Unsafe/url.scm 417 */
			{	/* Unsafe/url.scm 418 */
				long BgL_g1193z00_5179;

				BgL_g1193z00_5179 = (BgL_olz00_27 - 3L);
				{
					long BgL_iz00_5181;
					long BgL_cz00_5182;

					BgL_iz00_5181 = BgL_g1193z00_5179;
					BgL_cz00_5182 = 0L;
				BgL_zc3z04anonymousza33608ze3z87_5183:
					if ((BgL_iz00_5181 == (-1L)))
						{	/* Unsafe/url.scm 421 */
							return BgL_cz00_5182;
						}
					else
						{	/* Unsafe/url.scm 421 */
							if (
								(STRING_REF(BgL_strz00_26,
										BgL_iz00_5181) == ((unsigned char) '%')))
								{	/* Unsafe/url.scm 424 */
									unsigned char BgL_c1z00_5187;
									unsigned char BgL_c2z00_5188;

									BgL_c1z00_5187 =
										STRING_REF(BgL_strz00_26, (BgL_iz00_5181 + 1L));
									BgL_c2z00_5188 =
										STRING_REF(BgL_strz00_26, (BgL_iz00_5181 + 2L));
									{	/* Unsafe/url.scm 426 */
										bool_t BgL_test5078z00_14611;

										if (BGl_charzd2hexnumericzf3z21zz__urlz00(BgL_c1z00_5187))
											{	/* Unsafe/url.scm 426 */
												BgL_test5078z00_14611 =
													BGl_charzd2hexnumericzf3z21zz__urlz00(BgL_c2z00_5188);
											}
										else
											{	/* Unsafe/url.scm 426 */
												BgL_test5078z00_14611 = ((bool_t) 0);
											}
										if (BgL_test5078z00_14611)
											{	/* Unsafe/url.scm 428 */
												long BgL_v1z00_5191;

												BgL_v1z00_5191 =
													BGl_charzd2valuezd2zz__urlz00(BgL_c1z00_5187);
												{	/* Unsafe/url.scm 428 */
													long BgL_v2z00_5192;

													BgL_v2z00_5192 =
														BGl_charzd2valuezd2zz__urlz00(BgL_c2z00_5188);
													{	/* Unsafe/url.scm 429 */
														long BgL_dz00_5193;

														BgL_dz00_5193 =
															((BgL_v1z00_5191 * 16L) + BgL_v2z00_5192);
														{	/* Unsafe/url.scm 430 */

															{	/* Unsafe/url.scm 431 */
																bool_t BgL_test5080z00_14619;

																{	/* Unsafe/url.scm 431 */
																	unsigned char BgL_arg3621z00_5202;

																	BgL_arg3621z00_5202 = (BgL_dz00_5193);
																	{	/* Ieee/string.scm 223 */

																		BgL_test5080z00_14619 =
																			CBOOL
																			(BGl_stringzd2indexzd2zz__r4_strings_6_7z00
																			(BgL_setz00_28,
																				BCHAR(BgL_arg3621z00_5202), BINT(0L)));
																}}
																if (BgL_test5080z00_14619)
																	{
																		long BgL_iz00_14625;

																		BgL_iz00_14625 = (BgL_iz00_5181 - 1L);
																		BgL_iz00_5181 = BgL_iz00_14625;
																		goto BgL_zc3z04anonymousza33608ze3z87_5183;
																	}
																else
																	{
																		long BgL_cz00_14629;
																		long BgL_iz00_14627;

																		BgL_iz00_14627 = (BgL_iz00_5181 - 1L);
																		BgL_cz00_14629 = (BgL_cz00_5182 + 1L);
																		BgL_cz00_5182 = BgL_cz00_14629;
																		BgL_iz00_5181 = BgL_iz00_14627;
																		goto BgL_zc3z04anonymousza33608ze3z87_5183;
																	}
															}
														}
													}
												}
											}
										else
											{
												long BgL_iz00_14631;

												BgL_iz00_14631 = (BgL_iz00_5181 - 1L);
												BgL_iz00_5181 = BgL_iz00_14631;
												goto BgL_zc3z04anonymousza33608ze3z87_5183;
											}
									}
								}
							else
								{
									long BgL_iz00_14633;

									BgL_iz00_14633 = (BgL_iz00_5181 - 1L);
									BgL_iz00_5181 = BgL_iz00_14633;
									goto BgL_zc3z04anonymousza33608ze3z87_5183;
								}
						}
				}
			}
		}

	}



/* url-decode/set */
	obj_t BGl_urlzd2decodezf2setz20zz__urlz00(obj_t BgL_strz00_29,
		obj_t BgL_setz00_30)
	{
		{	/* Unsafe/url.scm 441 */
			{	/* Unsafe/url.scm 442 */
				long BgL_olz00_5214;

				BgL_olz00_5214 = STRING_LENGTH(BgL_strz00_29);
				if ((BgL_olz00_5214 >= 3L))
					{	/* Unsafe/url.scm 444 */
						long BgL_countz00_5216;

						BgL_countz00_5216 =
							BGl_urlzd2decodezd2countz00zz__urlz00(BgL_strz00_29,
							BgL_olz00_5214, BgL_setz00_30);
						if ((BgL_countz00_5216 == 0L))
							{	/* Unsafe/url.scm 445 */
								return BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_29);
							}
						else
							{	/* Unsafe/url.scm 447 */
								long BgL_nlz00_5218;

								BgL_nlz00_5218 = (BgL_olz00_5214 - (BgL_countz00_5216 * 2L));
								{	/* Unsafe/url.scm 447 */
									obj_t BgL_resz00_5219;

									{	/* Ieee/string.scm 172 */

										BgL_resz00_5219 =
											make_string(BgL_nlz00_5218, ((unsigned char) ' '));
									}
									{	/* Unsafe/url.scm 448 */

										return
											BGl_urlzd2stringzd2decodezd2innerz12zc0zz__urlz00
											(BgL_strz00_29, BgL_olz00_5214, BgL_nlz00_5218,
											BgL_resz00_5219, BgL_setz00_30);
									}
								}
							}
					}
				else
					{	/* Unsafe/url.scm 443 */
						return BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_29);
					}
			}
		}

	}



/* url-decode/set! */
	obj_t BGl_urlzd2decodezf2setz12z32zz__urlz00(obj_t BgL_strz00_31,
		obj_t BgL_setz00_32)
	{
		{	/* Unsafe/url.scm 455 */
			{	/* Unsafe/url.scm 456 */
				long BgL_olz00_5223;

				BgL_olz00_5223 = STRING_LENGTH(BgL_strz00_31);
				if ((BgL_olz00_5223 >= 3L))
					{	/* Unsafe/url.scm 458 */
						long BgL_countz00_5225;

						BgL_countz00_5225 =
							BGl_urlzd2decodezd2countz00zz__urlz00(BgL_strz00_31,
							BgL_olz00_5223, BgL_setz00_32);
						if ((BgL_countz00_5225 == 0L))
							{	/* Unsafe/url.scm 459 */
								return BgL_strz00_31;
							}
						else
							{	/* Unsafe/url.scm 461 */
								long BgL_nlz00_5227;

								BgL_nlz00_5227 = (BgL_olz00_5223 - (BgL_countz00_5225 * 2L));
								{	/* Unsafe/url.scm 461 */
									obj_t BgL_resz00_5228;

									{	/* Ieee/string.scm 172 */

										BgL_resz00_5228 =
											make_string(BgL_nlz00_5227, ((unsigned char) ' '));
									}
									{	/* Unsafe/url.scm 462 */

										return
											BGl_urlzd2stringzd2decodezd2innerz12zc0zz__urlz00
											(BgL_strz00_31, BgL_olz00_5223, BgL_nlz00_5227,
											BgL_resz00_5228, BgL_setz00_32);
									}
								}
							}
					}
				else
					{	/* Unsafe/url.scm 457 */
						return BgL_strz00_31;
					}
			}
		}

	}



/* url-decode */
	BGL_EXPORTED_DEF obj_t BGl_urlzd2decodezd2zz__urlz00(obj_t BgL_strz00_33)
	{
		{	/* Unsafe/url.scm 469 */
			return
				BGl_urlzd2decodezf2setz20zz__urlz00(BgL_strz00_33,
				BGl_string4157z00zz__urlz00);
		}

	}



/* &url-decode */
	obj_t BGl_z62urlzd2decodezb0zz__urlz00(obj_t BgL_envz00_8906,
		obj_t BgL_strz00_8907)
	{
		{	/* Unsafe/url.scm 469 */
			{	/* Unsafe/url.scm 470 */
				obj_t BgL_auxz00_14658;

				if (STRINGP(BgL_strz00_8907))
					{	/* Unsafe/url.scm 470 */
						BgL_auxz00_14658 = BgL_strz00_8907;
					}
				else
					{
						obj_t BgL_auxz00_14661;

						BgL_auxz00_14661 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(17550L), BGl_string4158z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8907);
						FAILURE(BgL_auxz00_14661, BFALSE, BFALSE);
					}
				return BGl_urlzd2decodezd2zz__urlz00(BgL_auxz00_14658);
			}
		}

	}



/* uri-decode */
	BGL_EXPORTED_DEF obj_t BGl_urizd2decodezd2zz__urlz00(obj_t BgL_strz00_34)
	{
		{	/* Unsafe/url.scm 475 */
			return
				BGl_urlzd2decodezf2setz20zz__urlz00(BgL_strz00_34,
				BGl_string4159z00zz__urlz00);
		}

	}



/* &uri-decode */
	obj_t BGl_z62urizd2decodezb0zz__urlz00(obj_t BgL_envz00_8908,
		obj_t BgL_strz00_8909)
	{
		{	/* Unsafe/url.scm 475 */
			{	/* Unsafe/url.scm 476 */
				obj_t BgL_auxz00_14667;

				if (STRINGP(BgL_strz00_8909))
					{	/* Unsafe/url.scm 476 */
						BgL_auxz00_14667 = BgL_strz00_8909;
					}
				else
					{
						obj_t BgL_auxz00_14670;

						BgL_auxz00_14670 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(17826L), BGl_string4160z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8909);
						FAILURE(BgL_auxz00_14670, BFALSE, BFALSE);
					}
				return BGl_urizd2decodezd2zz__urlz00(BgL_auxz00_14667);
			}
		}

	}



/* uri-decode-component */
	BGL_EXPORTED_DEF obj_t BGl_urizd2decodezd2componentz00zz__urlz00(obj_t
		BgL_strz00_35)
	{
		{	/* Unsafe/url.scm 481 */
			return
				BGl_urlzd2decodezf2setz20zz__urlz00(BgL_strz00_35,
				BGl_string4157z00zz__urlz00);
		}

	}



/* &uri-decode-component */
	obj_t BGl_z62urizd2decodezd2componentz62zz__urlz00(obj_t BgL_envz00_8910,
		obj_t BgL_strz00_8911)
	{
		{	/* Unsafe/url.scm 481 */
			{	/* Unsafe/url.scm 482 */
				obj_t BgL_auxz00_14676;

				if (STRINGP(BgL_strz00_8911))
					{	/* Unsafe/url.scm 482 */
						BgL_auxz00_14676 = BgL_strz00_8911;
					}
				else
					{
						obj_t BgL_auxz00_14679;

						BgL_auxz00_14679 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(18123L), BGl_string4161z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8911);
						FAILURE(BgL_auxz00_14679, BFALSE, BFALSE);
					}
				return BGl_urizd2decodezd2componentz00zz__urlz00(BgL_auxz00_14676);
			}
		}

	}



/* url-decode! */
	BGL_EXPORTED_DEF obj_t BGl_urlzd2decodez12zc0zz__urlz00(obj_t BgL_strz00_36)
	{
		{	/* Unsafe/url.scm 487 */
			return
				BGl_urlzd2decodezf2setz12z32zz__urlz00(BgL_strz00_36,
				BGl_string4157z00zz__urlz00);
		}

	}



/* &url-decode! */
	obj_t BGl_z62urlzd2decodez12za2zz__urlz00(obj_t BgL_envz00_8912,
		obj_t BgL_strz00_8913)
	{
		{	/* Unsafe/url.scm 487 */
			{	/* Unsafe/url.scm 488 */
				obj_t BgL_auxz00_14685;

				if (STRINGP(BgL_strz00_8913))
					{	/* Unsafe/url.scm 488 */
						BgL_auxz00_14685 = BgL_strz00_8913;
					}
				else
					{
						obj_t BgL_auxz00_14688;

						BgL_auxz00_14688 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(18400L), BGl_string4162z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8913);
						FAILURE(BgL_auxz00_14688, BFALSE, BFALSE);
					}
				return BGl_urlzd2decodez12zc0zz__urlz00(BgL_auxz00_14685);
			}
		}

	}



/* uri-decode-component! */
	BGL_EXPORTED_DEF obj_t BGl_urizd2decodezd2componentz12z12zz__urlz00(obj_t
		BgL_strz00_38)
	{
		{	/* Unsafe/url.scm 499 */
			return
				BGl_urlzd2decodezf2setz12z32zz__urlz00(BgL_strz00_38,
				BGl_string4157z00zz__urlz00);
		}

	}



/* &uri-decode-component! */
	obj_t BGl_z62urizd2decodezd2componentz12z70zz__urlz00(obj_t BgL_envz00_8914,
		obj_t BgL_strz00_8915)
	{
		{	/* Unsafe/url.scm 499 */
			{	/* Unsafe/url.scm 500 */
				obj_t BgL_auxz00_14694;

				if (STRINGP(BgL_strz00_8915))
					{	/* Unsafe/url.scm 500 */
						BgL_auxz00_14694 = BgL_strz00_8915;
					}
				else
					{
						obj_t BgL_auxz00_14697;

						BgL_auxz00_14697 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(18977L), BGl_string4163z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_strz00_8915);
						FAILURE(BgL_auxz00_14697, BFALSE, BFALSE);
					}
				return BGl_urizd2decodezd2componentz12z12zz__urlz00(BgL_auxz00_14694);
			}
		}

	}



/* form-urlencode */
	obj_t BGl_formzd2urlencodezd2zz__urlz00(obj_t BgL_argsz00_39,
		unsigned char BgL_sepz00_40)
	{
		{	/* Unsafe/url.scm 505 */
			if (NULLP(BgL_argsz00_39))
				{	/* Unsafe/url.scm 560 */
					return BGl_string4157z00zz__urlz00;
				}
			else
				{
					obj_t BgL_az00_5238;
					long BgL_lenz00_5239;

					BgL_az00_5238 = BgL_argsz00_39;
					BgL_lenz00_5239 = 0L;
				BgL_zc3z04anonymousza33637ze3z87_5240:
					if (NULLP(CDR(((obj_t) BgL_az00_5238))))
						{	/* Unsafe/url.scm 565 */
							long BgL_lenz00_5243;

							{	/* Unsafe/url.scm 565 */
								long BgL_arg3650z00_5260;

								{	/* Unsafe/url.scm 565 */
									obj_t BgL_arg3651z00_5261;

									BgL_arg3651z00_5261 = CAR(((obj_t) BgL_az00_5238));
									BgL_arg3650z00_5260 =
										BGl_countzd2argze70z35zz__urlz00(BgL_arg3651z00_5261);
								}
								BgL_lenz00_5243 = (BgL_lenz00_5239 + BgL_arg3650z00_5260);
							}
							{	/* Unsafe/url.scm 565 */
								obj_t BgL_resz00_5244;

								{	/* Ieee/string.scm 172 */

									BgL_resz00_5244 =
										make_string(BgL_lenz00_5243, ((unsigned char) ' '));
								}
								{	/* Unsafe/url.scm 566 */

									{
										obj_t BgL_az00_8447;
										long BgL_iz00_8448;

										BgL_az00_8447 = BgL_argsz00_39;
										BgL_iz00_8448 = 0L;
									BgL_loopz00_8446:
										if (NULLP(CDR(((obj_t) BgL_az00_8447))))
											{	/* Unsafe/url.scm 569 */
												{	/* Unsafe/url.scm 571 */
													obj_t BgL_arg3644z00_8452;

													BgL_arg3644z00_8452 = CAR(((obj_t) BgL_az00_8447));
													{	/* Unsafe/url.scm 553 */
														long BgL_niz00_8454;

														{	/* Unsafe/url.scm 553 */
															obj_t BgL_arg3700z00_8455;

															BgL_arg3700z00_8455 =
																CAR(((obj_t) BgL_arg3644z00_8452));
															BgL_niz00_8454 =
																BGl_encodezd2stringze70z35zz__urlz00
																(BgL_resz00_5244, BgL_iz00_8448,
																BgL_arg3700z00_8455);
														}
														{	/* Unsafe/url.scm 554 */
															bool_t BgL_test5093z00_14722;

															{	/* Unsafe/url.scm 554 */
																obj_t BgL_tmpz00_14723;

																{	/* Unsafe/url.scm 554 */
																	obj_t BgL_pairz00_8462;

																	BgL_pairz00_8462 =
																		CDR(((obj_t) BgL_arg3644z00_8452));
																	BgL_tmpz00_14723 = CAR(BgL_pairz00_8462);
																}
																BgL_test5093z00_14722 =
																	(BgL_tmpz00_14723 == BUNSPEC);
															}
															if (BgL_test5093z00_14722)
																{	/* Unsafe/url.scm 554 */
																	BgL_niz00_8454;
																}
															else
																{	/* Unsafe/url.scm 554 */
																	STRING_SET(BgL_resz00_5244, BgL_niz00_8454,
																		((unsigned char) '='));
																	{	/* Unsafe/url.scm 558 */
																		long BgL_arg3697z00_8466;
																		obj_t BgL_arg3698z00_8467;

																		BgL_arg3697z00_8466 = (BgL_niz00_8454 + 1L);
																		{	/* Unsafe/url.scm 558 */
																			obj_t BgL_pairz00_8472;

																			BgL_pairz00_8472 =
																				CDR(((obj_t) BgL_arg3644z00_8452));
																			BgL_arg3698z00_8467 =
																				CAR(BgL_pairz00_8472);
																		}
																		BGl_encodezd2stringze70z35zz__urlz00
																			(BgL_resz00_5244, BgL_arg3697z00_8466,
																			BgL_arg3698z00_8467);
												}}}}}
												return BgL_resz00_5244;
											}
										else
											{	/* Unsafe/url.scm 573 */
												long BgL_niz00_8473;

												{	/* Unsafe/url.scm 573 */
													obj_t BgL_arg3648z00_8474;

													BgL_arg3648z00_8474 = CAR(((obj_t) BgL_az00_8447));
													{	/* Unsafe/url.scm 553 */
														long BgL_niz00_8476;

														{	/* Unsafe/url.scm 553 */
															obj_t BgL_arg3700z00_8477;

															BgL_arg3700z00_8477 =
																CAR(((obj_t) BgL_arg3648z00_8474));
															BgL_niz00_8476 =
																BGl_encodezd2stringze70z35zz__urlz00
																(BgL_resz00_5244, BgL_iz00_8448,
																BgL_arg3700z00_8477);
														}
														{	/* Unsafe/url.scm 554 */
															bool_t BgL_test5094z00_14739;

															{	/* Unsafe/url.scm 554 */
																obj_t BgL_tmpz00_14740;

																{	/* Unsafe/url.scm 554 */
																	obj_t BgL_pairz00_8484;

																	BgL_pairz00_8484 =
																		CDR(((obj_t) BgL_arg3648z00_8474));
																	BgL_tmpz00_14740 = CAR(BgL_pairz00_8484);
																}
																BgL_test5094z00_14739 =
																	(BgL_tmpz00_14740 == BUNSPEC);
															}
															if (BgL_test5094z00_14739)
																{	/* Unsafe/url.scm 554 */
																	BgL_niz00_8473 = BgL_niz00_8476;
																}
															else
																{	/* Unsafe/url.scm 554 */
																	STRING_SET(BgL_resz00_5244, BgL_niz00_8476,
																		((unsigned char) '='));
																	{	/* Unsafe/url.scm 558 */
																		long BgL_arg3697z00_8488;
																		obj_t BgL_arg3698z00_8489;

																		BgL_arg3697z00_8488 = (BgL_niz00_8476 + 1L);
																		{	/* Unsafe/url.scm 558 */
																			obj_t BgL_pairz00_8494;

																			BgL_pairz00_8494 =
																				CDR(((obj_t) BgL_arg3648z00_8474));
																			BgL_arg3698z00_8489 =
																				CAR(BgL_pairz00_8494);
																		}
																		BgL_niz00_8473 =
																			BGl_encodezd2stringze70z35zz__urlz00
																			(BgL_resz00_5244, BgL_arg3697z00_8488,
																			BgL_arg3698z00_8489);
												}}}}}
												STRING_SET(BgL_resz00_5244, BgL_niz00_8473,
													BgL_sepz00_40);
												{	/* Unsafe/url.scm 575 */
													obj_t BgL_arg3645z00_8498;
													long BgL_arg3646z00_8499;

													BgL_arg3645z00_8498 = CDR(((obj_t) BgL_az00_8447));
													BgL_arg3646z00_8499 = (BgL_niz00_8473 + 1L);
													{
														long BgL_iz00_14756;
														obj_t BgL_az00_14755;

														BgL_az00_14755 = BgL_arg3645z00_8498;
														BgL_iz00_14756 = BgL_arg3646z00_8499;
														BgL_iz00_8448 = BgL_iz00_14756;
														BgL_az00_8447 = BgL_az00_14755;
														goto BgL_loopz00_8446;
													}
												}
											}
									}
								}
							}
						}
					else
						{	/* Unsafe/url.scm 576 */
							obj_t BgL_arg3652z00_5262;
							long BgL_arg3654z00_5263;

							BgL_arg3652z00_5262 = CDR(((obj_t) BgL_az00_5238));
							{	/* Unsafe/url.scm 576 */
								long BgL_arg3655z00_5264;
								long BgL_arg3657z00_5265;

								BgL_arg3655z00_5264 = (1L + BgL_lenz00_5239);
								{	/* Unsafe/url.scm 576 */
									obj_t BgL_arg3658z00_5266;

									BgL_arg3658z00_5266 = CAR(((obj_t) BgL_az00_5238));
									BgL_arg3657z00_5265 =
										BGl_countzd2argze70z35zz__urlz00(BgL_arg3658z00_5266);
								}
								BgL_arg3654z00_5263 =
									(BgL_arg3655z00_5264 + BgL_arg3657z00_5265);
							}
							{
								long BgL_lenz00_14765;
								obj_t BgL_az00_14764;

								BgL_az00_14764 = BgL_arg3652z00_5262;
								BgL_lenz00_14765 = BgL_arg3654z00_5263;
								BgL_lenz00_5239 = BgL_lenz00_14765;
								BgL_az00_5238 = BgL_az00_14764;
								goto BgL_zc3z04anonymousza33637ze3z87_5240;
							}
						}
				}
		}

	}



/* count-string~0 */
	long BGl_countzd2stringze70z35zz__urlz00(obj_t BgL_strz00_5269)
	{
		{	/* Unsafe/url.scm 520 */
			{	/* Unsafe/url.scm 508 */
				long BgL_lenz00_5271;

				BgL_lenz00_5271 = STRING_LENGTH(((obj_t) BgL_strz00_5269));
				{
					long BgL_iz00_5273;
					long BgL_nz00_5274;

					BgL_iz00_5273 = 0L;
					BgL_nz00_5274 = 0L;
				BgL_zc3z04anonymousza33661ze3z87_5275:
					if ((BgL_iz00_5273 == BgL_lenz00_5271))
						{	/* Unsafe/url.scm 511 */
							return BgL_nz00_5274;
						}
					else
						{	/* Unsafe/url.scm 513 */
							unsigned char BgL_cz00_5277;

							BgL_cz00_5277 =
								STRING_REF(((obj_t) BgL_strz00_5269), BgL_iz00_5273);
							{

								switch (BgL_cz00_5277)
									{
									case ((unsigned char) ';'):
									case ((unsigned char) '&'):
									case ((unsigned char) '='):
									case ((unsigned char) '#'):
									case ((unsigned char) '"'):
									case ((unsigned char) '\''):
									case ((unsigned char) '+'):
									case ((unsigned char) '%'):
									case ((unsigned char) '?'):
									case ((unsigned char) ':'):
									case ((unsigned char) '|'):

										{
											long BgL_nz00_14774;
											long BgL_iz00_14772;

											BgL_iz00_14772 = (BgL_iz00_5273 + 1L);
											BgL_nz00_14774 = (BgL_nz00_5274 + 3L);
											BgL_nz00_5274 = BgL_nz00_14774;
											BgL_iz00_5273 = BgL_iz00_14772;
											goto BgL_zc3z04anonymousza33661ze3z87_5275;
										}
										break;
									default:
										{	/* Unsafe/url.scm 518 */
											bool_t BgL_test5096z00_14776;

											if ((BgL_cz00_5277 >= ((unsigned char) 128)))
												{	/* Unsafe/url.scm 518 */
													BgL_test5096z00_14776 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/url.scm 518 */
													BgL_test5096z00_14776 =
														(BgL_cz00_5277 < ((unsigned char) ' '));
												}
											if (BgL_test5096z00_14776)
												{
													long BgL_nz00_14782;
													long BgL_iz00_14780;

													BgL_iz00_14780 = (BgL_iz00_5273 + 1L);
													BgL_nz00_14782 = (BgL_nz00_5274 + 3L);
													BgL_nz00_5274 = BgL_nz00_14782;
													BgL_iz00_5273 = BgL_iz00_14780;
													goto BgL_zc3z04anonymousza33661ze3z87_5275;
												}
											else
												{
													long BgL_nz00_14786;
													long BgL_iz00_14784;

													BgL_iz00_14784 = (BgL_iz00_5273 + 1L);
													BgL_nz00_14786 = (BgL_nz00_5274 + 1L);
													BgL_nz00_5274 = BgL_nz00_14786;
													BgL_iz00_5273 = BgL_iz00_14784;
													goto BgL_zc3z04anonymousza33661ze3z87_5275;
												}
										}
									}
							}
						}
				}
			}
		}

	}



/* count-arg~0 */
	long BGl_countzd2argze70z35zz__urlz00(obj_t BgL_argz00_5317)
	{
		{	/* Unsafe/url.scm 550 */
			{	/* Unsafe/url.scm 547 */
				long BgL_cnamez00_5319;

				BgL_cnamez00_5319 =
					BGl_countzd2stringze70z35zz__urlz00(CAR(((obj_t) BgL_argz00_5317)));
				{	/* Unsafe/url.scm 548 */
					bool_t BgL_test5098z00_14792;

					{	/* Unsafe/url.scm 548 */
						obj_t BgL_tmpz00_14793;

						{	/* Unsafe/url.scm 548 */
							obj_t BgL_pairz00_8368;

							BgL_pairz00_8368 = CDR(((obj_t) BgL_argz00_5317));
							BgL_tmpz00_14793 = CAR(BgL_pairz00_8368);
						}
						BgL_test5098z00_14792 = (BgL_tmpz00_14793 == BUNSPEC);
					}
					if (BgL_test5098z00_14792)
						{	/* Unsafe/url.scm 548 */
							return BgL_cnamez00_5319;
						}
					else
						{	/* Unsafe/url.scm 550 */
							long BgL_tmpz00_14798;

							{	/* Unsafe/url.scm 550 */
								obj_t BgL_auxz00_14800;

								{	/* Unsafe/url.scm 550 */
									obj_t BgL_pairz00_8373;

									BgL_pairz00_8373 = CDR(((obj_t) BgL_argz00_5317));
									BgL_auxz00_14800 = CAR(BgL_pairz00_8373);
								}
								BgL_tmpz00_14798 =
									BGl_countzd2stringze70z35zz__urlz00(BgL_auxz00_14800);
							}
							return ((BgL_cnamez00_5319 + 1L) + BgL_tmpz00_14798);
						}
				}
			}
		}

	}



/* encode-string~0 */
	long BGl_encodezd2stringze70z35zz__urlz00(obj_t BgL_resz00_5291,
		long BgL_oz00_5292, obj_t BgL_strz00_5293)
	{
		{	/* Unsafe/url.scm 544 */
			{	/* Unsafe/url.scm 524 */
				long BgL_lenz00_5295;

				BgL_lenz00_5295 = STRING_LENGTH(((obj_t) BgL_strz00_5293));
				{
					long BgL_iz00_5297;
					long BgL_jz00_5298;

					BgL_iz00_5297 = 0L;
					BgL_jz00_5298 = BgL_oz00_5292;
				BgL_zc3z04anonymousza33673ze3z87_5299:
					if ((BgL_iz00_5297 == BgL_lenz00_5295))
						{	/* Unsafe/url.scm 527 */
							return BgL_jz00_5298;
						}
					else
						{	/* Unsafe/url.scm 529 */
							unsigned char BgL_cz00_5301;

							BgL_cz00_5301 =
								STRING_REF(((obj_t) BgL_strz00_5293), BgL_iz00_5297);
							{

								switch (BgL_cz00_5301)
									{
									case ((unsigned char) ';'):
									case ((unsigned char) '&'):
									case ((unsigned char) '='):
									case ((unsigned char) '#'):
									case ((unsigned char) '"'):
									case ((unsigned char) '\''):
									case ((unsigned char) '+'):
									case ((unsigned char) '%'):
									case ((unsigned char) '?'):
									case ((unsigned char) ':'):
									case ((unsigned char) '|'):

										BGl_encodezd2charzd2zz__urlz00(BgL_resz00_5291,
											BgL_jz00_5298, BgL_cz00_5301);
										{
											long BgL_jz00_14815;
											long BgL_iz00_14813;

											BgL_iz00_14813 = (BgL_iz00_5297 + 1L);
											BgL_jz00_14815 = (BgL_jz00_5298 + 3L);
											BgL_jz00_5298 = BgL_jz00_14815;
											BgL_iz00_5297 = BgL_iz00_14813;
											goto BgL_zc3z04anonymousza33673ze3z87_5299;
										}
										break;
									case ((unsigned char) ' '):

										STRING_SET(BgL_resz00_5291, BgL_jz00_5298,
											((unsigned char) '+'));
										{
											long BgL_jz00_14820;
											long BgL_iz00_14818;

											BgL_iz00_14818 = (BgL_iz00_5297 + 1L);
											BgL_jz00_14820 = (BgL_jz00_5298 + 1L);
											BgL_jz00_5298 = BgL_jz00_14820;
											BgL_iz00_5297 = BgL_iz00_14818;
											goto BgL_zc3z04anonymousza33673ze3z87_5299;
										}
										break;
									default:
										{	/* Unsafe/url.scm 538 */
											bool_t BgL_test5100z00_14822;

											if ((BgL_cz00_5301 >= ((unsigned char) 128)))
												{	/* Unsafe/url.scm 538 */
													BgL_test5100z00_14822 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/url.scm 538 */
													BgL_test5100z00_14822 =
														(BgL_cz00_5301 < ((unsigned char) ' '));
												}
											if (BgL_test5100z00_14822)
												{	/* Unsafe/url.scm 538 */
													BGl_encodezd2charzd2zz__urlz00(BgL_resz00_5291,
														BgL_jz00_5298, BgL_cz00_5301);
													{
														long BgL_jz00_14829;
														long BgL_iz00_14827;

														BgL_iz00_14827 = (BgL_iz00_5297 + 1L);
														BgL_jz00_14829 = (BgL_jz00_5298 + 3L);
														BgL_jz00_5298 = BgL_jz00_14829;
														BgL_iz00_5297 = BgL_iz00_14827;
														goto BgL_zc3z04anonymousza33673ze3z87_5299;
													}
												}
											else
												{	/* Unsafe/url.scm 538 */
													STRING_SET(BgL_resz00_5291, BgL_jz00_5298,
														BgL_cz00_5301);
													{
														long BgL_jz00_14834;
														long BgL_iz00_14832;

														BgL_iz00_14832 = (BgL_iz00_5297 + 1L);
														BgL_jz00_14834 = (BgL_jz00_5298 + 1L);
														BgL_jz00_5298 = BgL_jz00_14834;
														BgL_iz00_5297 = BgL_iz00_14832;
														goto BgL_zc3z04anonymousza33673ze3z87_5299;
													}
												}
										}
									}
							}
						}
				}
			}
		}

	}



/* www-form-urlencode */
	BGL_EXPORTED_DEF obj_t BGl_wwwzd2formzd2urlencodez00zz__urlz00(obj_t
		BgL_argsz00_41)
	{
		{	/* Unsafe/url.scm 581 */
			return
				BGl_formzd2urlencodezd2zz__urlz00(BgL_argsz00_41,
				((unsigned char) ';'));
		}

	}



/* &www-form-urlencode */
	obj_t BGl_z62wwwzd2formzd2urlencodez62zz__urlz00(obj_t BgL_envz00_8916,
		obj_t BgL_argsz00_8917)
	{
		{	/* Unsafe/url.scm 581 */
			{	/* Unsafe/url.scm 582 */
				obj_t BgL_auxz00_14838;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_argsz00_8917))
					{	/* Unsafe/url.scm 582 */
						BgL_auxz00_14838 = BgL_argsz00_8917;
					}
				else
					{
						obj_t BgL_auxz00_14841;

						BgL_auxz00_14841 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(21445L), BGl_string4164z00zz__urlz00,
							BGl_string4165z00zz__urlz00, BgL_argsz00_8917);
						FAILURE(BgL_auxz00_14841, BFALSE, BFALSE);
					}
				return BGl_wwwzd2formzd2urlencodez00zz__urlz00(BgL_auxz00_14838);
			}
		}

	}



/* x-www-form-urlencode */
	BGL_EXPORTED_DEF obj_t BGl_xzd2wwwzd2formzd2urlencodezd2zz__urlz00(obj_t
		BgL_argsz00_42)
	{
		{	/* Unsafe/url.scm 587 */
			return
				BGl_formzd2urlencodezd2zz__urlz00(BgL_argsz00_42,
				((unsigned char) '&'));
		}

	}



/* &x-www-form-urlencode */
	obj_t BGl_z62xzd2wwwzd2formzd2urlencodezb0zz__urlz00(obj_t BgL_envz00_8918,
		obj_t BgL_argsz00_8919)
	{
		{	/* Unsafe/url.scm 587 */
			{	/* Unsafe/url.scm 588 */
				obj_t BgL_auxz00_14847;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_argsz00_8919))
					{	/* Unsafe/url.scm 588 */
						BgL_auxz00_14847 = BgL_argsz00_8919;
					}
				else
					{
						obj_t BgL_auxz00_14850;

						BgL_auxz00_14850 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(21734L), BGl_string4166z00zz__urlz00,
							BGl_string4165z00zz__urlz00, BgL_argsz00_8919);
						FAILURE(BgL_auxz00_14850, BFALSE, BFALSE);
					}
				return BGl_xzd2wwwzd2formzd2urlencodezd2zz__urlz00(BgL_auxz00_14847);
			}
		}

	}



/* char-hexnumeric? */
	bool_t BGl_charzd2hexnumericzf3z21zz__urlz00(unsigned char BgL_cz00_43)
	{
		{	/* Unsafe/url.scm 593 */
			{	/* Unsafe/url.scm 594 */
				bool_t BgL__ortest_1198z00_5342;

				BgL__ortest_1198z00_5342 = isdigit(BgL_cz00_43);
				if (BgL__ortest_1198z00_5342)
					{	/* Unsafe/url.scm 594 */
						return BgL__ortest_1198z00_5342;
					}
				else
					{	/* Unsafe/url.scm 595 */
						bool_t BgL__ortest_1199z00_5343;

						if ((BgL_cz00_43 >= ((unsigned char) 'A')))
							{	/* Unsafe/url.scm 595 */
								BgL__ortest_1199z00_5343 =
									(BgL_cz00_43 <= ((unsigned char) 'F'));
							}
						else
							{	/* Unsafe/url.scm 595 */
								BgL__ortest_1199z00_5343 = ((bool_t) 0);
							}
						if (BgL__ortest_1199z00_5343)
							{	/* Unsafe/url.scm 595 */
								return BgL__ortest_1199z00_5343;
							}
						else
							{	/* Unsafe/url.scm 595 */
								if ((BgL_cz00_43 >= ((unsigned char) 'a')))
									{	/* Unsafe/url.scm 596 */
										return (BgL_cz00_43 <= ((unsigned char) 'f'));
									}
								else
									{	/* Unsafe/url.scm 596 */
										return ((bool_t) 0);
									}
							}
					}
			}
		}

	}



/* www-form-urldecode */
	BGL_EXPORTED_DEF obj_t BGl_wwwzd2formzd2urldecodez00zz__urlz00(obj_t
		BgL_stringz00_44)
	{
		{	/* Unsafe/url.scm 601 */
			{	/* Unsafe/url.scm 663 */
				long BgL_lenz00_5349;

				BgL_lenz00_5349 = STRING_LENGTH(BgL_stringz00_44);
				if ((BgL_lenz00_5349 == 0L))
					{	/* Unsafe/url.scm 664 */
						return BNIL;
					}
				else
					{	/* Unsafe/url.scm 666 */
						obj_t BgL_l01312z00_5351;

						{	/* Unsafe/url.scm 673 */
							obj_t BgL_list3718z00_5372;

							BgL_list3718z00_5372 =
								MAKE_YOUNG_PAIR(BGl_string4167z00zz__urlz00, BNIL);
							BgL_l01312z00_5351 =
								BGl_stringzd2splitzd2zz__r4_strings_6_7z00(BgL_stringz00_44,
								BgL_list3718z00_5372);
						}
						{
							obj_t BgL_l1311z00_5353;

							BgL_l1311z00_5353 = BgL_l01312z00_5351;
						BgL_zc3z04anonymousza33702ze3z87_5354:
							if (NULLP(BgL_l1311z00_5353))
								{	/* Unsafe/url.scm 673 */
									return BgL_l01312z00_5351;
								}
							else
								{	/* Unsafe/url.scm 673 */
									{	/* Unsafe/url.scm 667 */
										obj_t BgL_arg3704z00_5356;

										{	/* Unsafe/url.scm 667 */
											obj_t BgL_sz00_5357;

											BgL_sz00_5357 = CAR(((obj_t) BgL_l1311z00_5353));
											{	/* Unsafe/url.scm 667 */
												obj_t BgL_argz00_5358;

												{	/* Unsafe/url.scm 667 */
													obj_t BgL_list3716z00_5369;

													BgL_list3716z00_5369 =
														MAKE_YOUNG_PAIR(BGl_string4168z00zz__urlz00, BNIL);
													BgL_argz00_5358 =
														BGl_stringzd2splitzd2zz__r4_strings_6_7z00
														(BgL_sz00_5357, BgL_list3716z00_5369);
												}
												{	/* Unsafe/url.scm 668 */
													obj_t BgL_arg3705z00_5359;

													{	/* Unsafe/url.scm 668 */
														obj_t BgL_arg3706z00_5360;

														BgL_arg3706z00_5360 =
															CAR(((obj_t) BgL_argz00_5358));
														BgL_arg3705z00_5359 =
															BGl_stringzd2decodeze70z35zz__urlz00
															(BgL_arg3706z00_5360);
													}
													{	/* Unsafe/url.scm 668 */
														obj_t BgL_tmpz00_14878;

														BgL_tmpz00_14878 = ((obj_t) BgL_argz00_5358);
														SET_CAR(BgL_tmpz00_14878, BgL_arg3705z00_5359);
													}
												}
												if (NULLP(CDR(((obj_t) BgL_argz00_5358))))
													{	/* Unsafe/url.scm 670 */
														obj_t BgL_arg3709z00_5363;

														{	/* Unsafe/url.scm 670 */
															obj_t BgL_list3710z00_5364;

															BgL_list3710z00_5364 =
																MAKE_YOUNG_PAIR(BUNSPEC, BNIL);
															BgL_arg3709z00_5363 = BgL_list3710z00_5364;
														}
														{	/* Unsafe/url.scm 670 */
															obj_t BgL_tmpz00_14886;

															BgL_tmpz00_14886 = ((obj_t) BgL_argz00_5358);
															SET_CDR(BgL_tmpz00_14886, BgL_arg3709z00_5363);
														}
													}
												else
													{	/* Unsafe/url.scm 671 */
														obj_t BgL_arg3711z00_5365;
														obj_t BgL_arg3712z00_5366;

														BgL_arg3711z00_5365 =
															CDR(((obj_t) BgL_argz00_5358));
														{	/* Unsafe/url.scm 671 */
															obj_t BgL_arg3714z00_5367;

															{	/* Unsafe/url.scm 671 */
																obj_t BgL_pairz00_8603;

																BgL_pairz00_8603 =
																	CDR(((obj_t) BgL_argz00_5358));
																BgL_arg3714z00_5367 = CAR(BgL_pairz00_8603);
															}
															BgL_arg3712z00_5366 =
																BGl_stringzd2decodeze70z35zz__urlz00
																(BgL_arg3714z00_5367);
														}
														{	/* Unsafe/url.scm 671 */
															obj_t BgL_tmpz00_14895;

															BgL_tmpz00_14895 = ((obj_t) BgL_arg3711z00_5365);
															SET_CAR(BgL_tmpz00_14895, BgL_arg3712z00_5366);
														}
													}
												BgL_arg3704z00_5356 = BgL_argz00_5358;
											}
										}
										{	/* Unsafe/url.scm 673 */
											obj_t BgL_tmpz00_14898;

											BgL_tmpz00_14898 = ((obj_t) BgL_l1311z00_5353);
											SET_CAR(BgL_tmpz00_14898, BgL_arg3704z00_5356);
										}
									}
									{	/* Unsafe/url.scm 673 */
										obj_t BgL_arg3717z00_5370;

										BgL_arg3717z00_5370 = CDR(((obj_t) BgL_l1311z00_5353));
										{
											obj_t BgL_l1311z00_14903;

											BgL_l1311z00_14903 = BgL_arg3717z00_5370;
											BgL_l1311z00_5353 = BgL_l1311z00_14903;
											goto BgL_zc3z04anonymousza33702ze3z87_5354;
										}
									}
								}
						}
					}
			}
		}

	}



/* char-value~0 */
	long BGl_charzd2valueze70z35zz__urlz00(unsigned char BgL_cz00_5441)
	{
		{	/* Unsafe/url.scm 625 */
			if (isdigit(BgL_cz00_5441))
				{	/* Unsafe/url.scm 620 */
					return ((BgL_cz00_5441) - 48L);
				}
			else
				{	/* Unsafe/url.scm 620 */
					if ((BgL_cz00_5441 <= ((unsigned char) 'F')))
						{	/* Unsafe/url.scm 622 */
							return (10L + ((BgL_cz00_5441) - 65L));
						}
					else
						{	/* Unsafe/url.scm 622 */
							return (10L + ((BgL_cz00_5441) - 97L));
						}
				}
		}

	}



/* string-decode~0 */
	obj_t BGl_stringzd2decodeze70z35zz__urlz00(obj_t BgL_strz00_5451)
	{
		{	/* Unsafe/url.scm 661 */
			{
				obj_t BgL_strz00_5373;
				long BgL_olz00_5374;
				obj_t BgL_strz00_5403;
				long BgL_olz00_5404;
				long BgL_nlz00_5405;
				obj_t BgL_resz00_5406;

				{	/* Unsafe/url.scm 653 */
					long BgL_olz00_5453;

					BgL_olz00_5453 = STRING_LENGTH(((obj_t) BgL_strz00_5451));
					if ((BgL_olz00_5453 >= 3L))
						{	/* Unsafe/url.scm 655 */
							long BgL_countz00_5455;

							BgL_strz00_5373 = BgL_strz00_5451;
							BgL_olz00_5374 = BgL_olz00_5453;
							{
								long BgL_iz00_5378;
								long BgL_cz00_5379;

								BgL_iz00_5378 = (BgL_olz00_5374 - 3L);
								BgL_cz00_5379 = 0L;
							BgL_zc3z04anonymousza33720ze3z87_5380:
								if ((BgL_iz00_5378 == (-1L)))
									{	/* Unsafe/url.scm 607 */
										BgL_countz00_5455 = BgL_cz00_5379;
									}
								else
									{	/* Unsafe/url.scm 607 */
										if (
											(STRING_REF(
													((obj_t) BgL_strz00_5373),
													BgL_iz00_5378) == ((unsigned char) '%')))
											{	/* Unsafe/url.scm 610 */
												bool_t BgL_test5116z00_14926;

												if (BGl_charzd2hexnumericzf3z21zz__urlz00(STRING_REF(
															((obj_t) BgL_strz00_5373), (BgL_iz00_5378 + 1L))))
													{	/* Unsafe/url.scm 610 */
														BgL_test5116z00_14926 =
															BGl_charzd2hexnumericzf3z21zz__urlz00(STRING_REF(
																((obj_t) BgL_strz00_5373),
																(BgL_iz00_5378 + 2L)));
													}
												else
													{	/* Unsafe/url.scm 610 */
														BgL_test5116z00_14926 = ((bool_t) 0);
													}
												if (BgL_test5116z00_14926)
													{
														long BgL_cz00_14938;
														long BgL_iz00_14936;

														BgL_iz00_14936 = (BgL_iz00_5378 - 1L);
														BgL_cz00_14938 = (BgL_cz00_5379 + 1L);
														BgL_cz00_5379 = BgL_cz00_14938;
														BgL_iz00_5378 = BgL_iz00_14936;
														goto BgL_zc3z04anonymousza33720ze3z87_5380;
													}
												else
													{
														long BgL_iz00_14940;

														BgL_iz00_14940 = (BgL_iz00_5378 - 1L);
														BgL_iz00_5378 = BgL_iz00_14940;
														goto BgL_zc3z04anonymousza33720ze3z87_5380;
													}
											}
										else
											{
												long BgL_iz00_14942;

												BgL_iz00_14942 = (BgL_iz00_5378 - 1L);
												BgL_iz00_5378 = BgL_iz00_14942;
												goto BgL_zc3z04anonymousza33720ze3z87_5380;
											}
									}
							}
							if ((BgL_countz00_5455 == 0L))
								{	/* Unsafe/url.scm 656 */
									return
										BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00
										(BgL_strz00_5451, (char) (((unsigned char) '+')),
										(char) (((unsigned char) ' ')));
								}
							else
								{	/* Unsafe/url.scm 658 */
									long BgL_nlz00_5457;

									BgL_nlz00_5457 = (BgL_olz00_5453 - (BgL_countz00_5455 * 2L));
									{	/* Unsafe/url.scm 658 */
										obj_t BgL_resz00_5458;

										{	/* Ieee/string.scm 172 */

											BgL_resz00_5458 =
												make_string(BgL_nlz00_5457, ((unsigned char) ' '));
										}
										{	/* Unsafe/url.scm 659 */

											BgL_strz00_5403 = BgL_strz00_5451;
											BgL_olz00_5404 = BgL_olz00_5453;
											BgL_nlz00_5405 = BgL_nlz00_5457;
											BgL_resz00_5406 = BgL_resz00_5458;
											{	/* Unsafe/url.scm 626 */
												long BgL_olzd22zd2_5409;

												BgL_olzd22zd2_5409 = (BgL_olz00_5404 - 2L);
												{
													long BgL_iz00_5411;
													long BgL_jz00_5412;

													BgL_iz00_5411 = 0L;
													BgL_jz00_5412 = 0L;
												BgL_zc3z04anonymousza33742ze3z87_5413:
													if ((BgL_jz00_5412 == BgL_nlz00_5405))
														{	/* Unsafe/url.scm 629 */
															return BgL_resz00_5406;
														}
													else
														{	/* Unsafe/url.scm 631 */
															unsigned char BgL_cz00_5415;

															BgL_cz00_5415 =
																STRING_REF(
																((obj_t) BgL_strz00_5403), BgL_iz00_5411);
															{	/* Unsafe/url.scm 633 */
																bool_t BgL_test5120z00_14958;

																if ((BgL_cz00_5415 == ((unsigned char) '%')))
																	{	/* Unsafe/url.scm 633 */
																		BgL_test5120z00_14958 =
																			(BgL_iz00_5411 < BgL_olzd22zd2_5409);
																	}
																else
																	{	/* Unsafe/url.scm 633 */
																		BgL_test5120z00_14958 = ((bool_t) 0);
																	}
																if (BgL_test5120z00_14958)
																	{	/* Unsafe/url.scm 634 */
																		unsigned char BgL_c1z00_5418;
																		unsigned char BgL_c2z00_5419;

																		BgL_c1z00_5418 =
																			STRING_REF(
																			((obj_t) BgL_strz00_5403),
																			(BgL_iz00_5411 + 1L));
																		BgL_c2z00_5419 =
																			STRING_REF(
																			((obj_t) BgL_strz00_5403),
																			(BgL_iz00_5411 + 2L));
																		{	/* Unsafe/url.scm 636 */
																			bool_t BgL_test5122z00_14968;

																			if (BGl_charzd2hexnumericzf3z21zz__urlz00
																				(BgL_c1z00_5418))
																				{	/* Unsafe/url.scm 636 */
																					BgL_test5122z00_14968 =
																						BGl_charzd2hexnumericzf3z21zz__urlz00
																						(BgL_c2z00_5419);
																				}
																			else
																				{	/* Unsafe/url.scm 636 */
																					BgL_test5122z00_14968 = ((bool_t) 0);
																				}
																			if (BgL_test5122z00_14968)
																				{	/* Unsafe/url.scm 637 */
																					long BgL_v1z00_5422;

																					BgL_v1z00_5422 =
																						BGl_charzd2valueze70z35zz__urlz00
																						(BgL_c1z00_5418);
																					{	/* Unsafe/url.scm 637 */
																						long BgL_v2z00_5423;

																						BgL_v2z00_5423 =
																							BGl_charzd2valueze70z35zz__urlz00
																							(BgL_c2z00_5419);
																						{	/* Unsafe/url.scm 638 */
																							unsigned char BgL_dz00_5424;

																							BgL_dz00_5424 =
																								(
																								((BgL_v1z00_5422 * 16L) +
																									BgL_v2z00_5423));
																							{	/* Unsafe/url.scm 639 */

																								STRING_SET(BgL_resz00_5406,
																									BgL_jz00_5412, BgL_dz00_5424);
																								{
																									long BgL_jz00_14980;
																									long BgL_iz00_14978;

																									BgL_iz00_14978 =
																										(BgL_iz00_5411 + 3L);
																									BgL_jz00_14980 =
																										(BgL_jz00_5412 + 1L);
																									BgL_jz00_5412 =
																										BgL_jz00_14980;
																									BgL_iz00_5411 =
																										BgL_iz00_14978;
																									goto
																										BgL_zc3z04anonymousza33742ze3z87_5413;
																								}
																							}
																						}
																					}
																				}
																			else
																				{	/* Unsafe/url.scm 636 */
																					STRING_SET(BgL_resz00_5406,
																						BgL_jz00_5412, BgL_cz00_5415);
																					{
																						long BgL_jz00_14985;
																						long BgL_iz00_14983;

																						BgL_iz00_14983 =
																							(BgL_iz00_5411 + 1L);
																						BgL_jz00_14985 =
																							(BgL_jz00_5412 + 1L);
																						BgL_jz00_5412 = BgL_jz00_14985;
																						BgL_iz00_5411 = BgL_iz00_14983;
																						goto
																							BgL_zc3z04anonymousza33742ze3z87_5413;
																					}
																				}
																		}
																	}
																else
																	{	/* Unsafe/url.scm 633 */
																		if (
																			(BgL_cz00_5415 == ((unsigned char) '+')))
																			{	/* Unsafe/url.scm 645 */
																				STRING_SET(BgL_resz00_5406,
																					BgL_jz00_5412, ((unsigned char) ' '));
																				{
																					long BgL_jz00_14992;
																					long BgL_iz00_14990;

																					BgL_iz00_14990 = (BgL_iz00_5411 + 1L);
																					BgL_jz00_14992 = (BgL_jz00_5412 + 1L);
																					BgL_jz00_5412 = BgL_jz00_14992;
																					BgL_iz00_5411 = BgL_iz00_14990;
																					goto
																						BgL_zc3z04anonymousza33742ze3z87_5413;
																				}
																			}
																		else
																			{	/* Unsafe/url.scm 645 */
																				STRING_SET(BgL_resz00_5406,
																					BgL_jz00_5412, BgL_cz00_5415);
																				{
																					long BgL_jz00_14997;
																					long BgL_iz00_14995;

																					BgL_iz00_14995 = (BgL_iz00_5411 + 1L);
																					BgL_jz00_14997 = (BgL_jz00_5412 + 1L);
																					BgL_jz00_5412 = BgL_jz00_14997;
																					BgL_iz00_5411 = BgL_iz00_14995;
																					goto
																						BgL_zc3z04anonymousza33742ze3z87_5413;
																				}
																			}
																	}
															}
														}
												}
											}
										}
									}
								}
						}
					else
						{	/* Unsafe/url.scm 654 */
							return BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_5451);
						}
				}
			}
		}

	}



/* &www-form-urldecode */
	obj_t BGl_z62wwwzd2formzd2urldecodez62zz__urlz00(obj_t BgL_envz00_8920,
		obj_t BgL_stringz00_8921)
	{
		{	/* Unsafe/url.scm 601 */
			{	/* Unsafe/url.scm 604 */
				obj_t BgL_auxz00_15000;

				if (STRINGP(BgL_stringz00_8921))
					{	/* Unsafe/url.scm 604 */
						BgL_auxz00_15000 = BgL_stringz00_8921;
					}
				else
					{
						obj_t BgL_auxz00_15003;

						BgL_auxz00_15003 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4144z00zz__urlz00,
							BINT(22429L), BGl_string4169z00zz__urlz00,
							BGl_string4146z00zz__urlz00, BgL_stringz00_8921);
						FAILURE(BgL_auxz00_15003, BFALSE, BFALSE);
					}
				return BGl_wwwzd2formzd2urldecodez00zz__urlz00(BgL_auxz00_15000);
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__urlz00(void)
	{
		{	/* Unsafe/url.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__urlz00(void)
	{
		{	/* Unsafe/url.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__urlz00(void)
	{
		{	/* Unsafe/url.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__urlz00(void)
	{
		{	/* Unsafe/url.scm 15 */
			return
				BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string4170z00zz__urlz00));
		}

	}

#ifdef __cplusplus
}
#endif
