/*===========================================================================*/
/*   (Ieee/vector.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 Ieee/vector.scm -indent -o objs/obj_u/Ieee/vector.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___R4_VECTORS_6_8_TYPE_DEFINITIONS
#define BGL___R4_VECTORS_6_8_TYPE_DEFINITIONS
#endif													// BGL___R4_VECTORS_6_8_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(obj_t,
		long, obj_t, obj_t, obj_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2copy3zd2zz__r4_vectors_6_8z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_vectorzd2mapNz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62sortz62zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00 = BUNSPEC;
	static obj_t BGl_z62listzd2ze3vectorz53zz__r4_vectors_6_8z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2shrinkz12zc0zz__r4_vectors_6_8z00(obj_t,
		long);
	static obj_t BGl_innerzd2sortzd2zz__r4_vectors_6_8z00(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__r4_vectors_6_8z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_EXPORTED_DECL obj_t BGl_sortz00zz__r4_vectors_6_8z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	BGL_EXPORTED_DECL long BGl_vectorzd2lengthzd2zz__r4_vectors_6_8z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t,
		obj_t, long, long);
	extern obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62vectorzd2setz12za2zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(obj_t, int);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2appendzd2zz__r4_vectors_6_8z00(obj_t,
		obj_t);
	static obj_t BGl_z62vectorzd2tagzd2setz12z70zz__r4_vectors_6_8z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl__makezd2vectorzd2zz__r4_vectors_6_8z00(obj_t, obj_t);
	static obj_t BGl_z62vectorzd2setzd2urz12z70zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2refzd2urz00zz__r4_vectors_6_8z00(obj_t,
		long);
	static obj_t BGl_z62zc3z04anonymousza31293ze3ze5zz__r4_vectors_6_8z00(obj_t,
		obj_t);
	extern long bgl_list_length(obj_t);
	static obj_t BGl_z62vectorzd2mapz12za2zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00(void);
	extern obj_t sort_vector(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_vectors_6_8z00(void);
	BGL_EXPORTED_DECL bool_t BGl_vectorzf3zf3zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_z62vectorzf3z91zz__r4_vectors_6_8z00(obj_t, obj_t);
	static obj_t BGl_z62vectorz62zz__r4_vectors_6_8z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t,
		long);
	static obj_t BGl_z62vectorzd2copyzb0zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t);
	static bool_t BGl_vectorzd2forzd2each2z00zz__r4_vectors_6_8z00(obj_t, obj_t);
	BGL_EXPORTED_DECL int BGl_vectorzd2tagzd2zz__r4_vectors_6_8z00(obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2refzd2zz__r4_vectors_6_8z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_makezd2vectorzd2zz__r4_vectors_6_8z00(long,
		obj_t);
	static obj_t BGl_z62vectorzd2lengthzb0zz__r4_vectors_6_8z00(obj_t, obj_t);
	static bool_t BGl_vectorzd2forzd2eachNz00zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62vectorzd2appendzb0zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62vectorzd2refzd2urz62zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2mapzd2zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62vectorzd2tagzb0zz__r4_vectors_6_8z00(obj_t, obj_t);
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_z62vectorzd2refzb0zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
	extern obj_t bgl_fill_vector(obj_t, long, long, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(obj_t, long, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31243ze3ze5zz__r4_vectors_6_8z00(obj_t,
		obj_t);
	static obj_t BGl__vectorzd2copyz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t);
	static obj_t BGl_z62vectorzd2mapzb0zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2forzd2eachz00zz__r4_vectors_6_8z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62vectorzd2forzd2eachz62zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2setz12zc0zz__r4_vectors_6_8z00(obj_t,
		long, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorz00zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_z62vectorzd2shrinkz12za2zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2mapz12zc0zz__r4_vectors_6_8z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62vectorzd2ze3listz53zz__r4_vectors_6_8z00(obj_t, obj_t);
	static obj_t BGl_z62vectorzd2copy3zb0zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2copyzd2zz__r4_vectors_6_8z00(obj_t,
		obj_t);
	static obj_t BGl_z62copyzd2vectorzb0zz__r4_vectors_6_8z00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31263ze3ze5zz__r4_vectors_6_8z00(obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2mapzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2mapza71753za7, va_generic_entry,
		BGl_z62vectorzd2mapzb0zz__r4_vectors_6_8z00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2shrinkz12zd2envz12zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2shri1754z00,
		BGl_z62vectorzd2shrinkz12za2zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_copyzd2vectorzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762copyza7d2vector1755z00,
		BGl_z62copyzd2vectorzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_sortzd2envzd2zz__r4_vectors_6_8z00,
		BgL_bgl_za762sortza762za7za7__r41756z00,
		BGl_z62sortz62zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2fillz12zd2envz12zz__r4_vectors_6_8z00,
		BgL_bgl__vectorza7d2fillza711757z00, opt_generic_entry,
		BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2appendzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2appe1758z00, va_generic_entry,
		BGl_z62vectorzd2appendzb0zz__r4_vectors_6_8z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2ze3listzd2envze3zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2za7e3l1759za7,
		BGl_z62vectorzd2ze3listz53zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2tagzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2tagza71760za7,
		BGl_z62vectorzd2tagzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2copy3zd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2copy1761z00,
		BGl_z62vectorzd2copy3zb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2envzd2zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza762za7za7__1762z00, va_generic_entry,
		BGl_z62vectorz62zz__r4_vectors_6_8z00, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string1714z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1714za700za7za7_1763za7,
		"/tmp/bigloo/runtime/Ieee/vector.scm", 35);
	      BGL_DEFINE_STRING(BGl_string1715z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1715za700za7za7_1764za7, "_make-vector", 12);
	      BGL_DEFINE_STRING(BGl_string1716z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1716za700za7za7_1765za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string1717z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1717za700za7za7_1766za7, "bint", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2refzd2urzd2envzd2zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2refza71767za7,
		BGl_z62vectorzd2refzd2urz62zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1718z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1718za700za7za7_1768za7, "&vector-length", 14);
	      BGL_DEFINE_STRING(BGl_string1719z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1719za700za7za7_1769za7, "&vector-ref", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2mapz12zd2envz12zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2mapza71770za7, va_generic_entry,
		BGl_z62vectorzd2mapz12za2zz__r4_vectors_6_8z00, BUNSPEC, -3);
	      BGL_DEFINE_STRING(BGl_string1720z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1720za700za7za7_1771za7, "&vector-set!", 12);
	      BGL_DEFINE_STRING(BGl_string1721z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1721za700za7za7_1772za7, "&vector-ref-ur", 14);
	      BGL_DEFINE_STRING(BGl_string1722z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1722za700za7za7_1773za7, "&vector-set-ur!", 15);
	      BGL_DEFINE_STRING(BGl_string1723z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1723za700za7za7_1774za7, "&vector->list", 13);
	      BGL_DEFINE_STRING(BGl_string1724z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1724za700za7za7_1775za7, "&list->vector", 13);
	      BGL_DEFINE_STRING(BGl_string1725z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1725za700za7za7_1776za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string1726z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1726za700za7za7_1777za7, "_vector-fill!", 13);
	      BGL_DEFINE_STRING(BGl_string1727z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1727za700za7za7_1778za7, "vector-fill!", 12);
	      BGL_DEFINE_STRING(BGl_string1728z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1728za700za7za7_1779za7, "wrong negative start", 20);
	      BGL_DEFINE_STRING(BGl_string1729z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1729za700za7za7_1780za7, "end index too large", 19);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2copyzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2copy1781z00, va_generic_entry,
		BGl_z62vectorzd2copyzb0zz__r4_vectors_6_8z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string1730z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1730za700za7za7_1782za7, "start index larger than end", 27);
	      BGL_DEFINE_STRING(BGl_string1731z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1731za700za7za7_1783za7, "&vector-tag", 11);
	      BGL_DEFINE_STRING(BGl_string1732z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1732za700za7za7_1784za7, "&vector-tag-set!", 16);
	      BGL_DEFINE_STRING(BGl_string1733z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1733za700za7za7_1785za7, "&copy-vector", 12);
	      BGL_DEFINE_STRING(BGl_string1734z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1734za700za7za7_1786za7, "vector-copy", 11);
	      BGL_DEFINE_STRING(BGl_string1735z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1735za700za7za7_1787za7, "Illegal indexes", 15);
	      BGL_DEFINE_STRING(BGl_string1736z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1736za700za7za7_1788za7, "&vector-copy3", 13);
	      BGL_DEFINE_STRING(BGl_string1737z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1737za700za7za7_1789za7, "Illegal argument", 16);
	      BGL_DEFINE_STRING(BGl_string1738z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1738za700za7za7_1790za7, "&vector-copy", 12);
	      BGL_DEFINE_STRING(BGl_string1739z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1739za700za7za7_1791za7, "_vector-copy!", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2ze3vectorzd2envze3zz__r4_vectors_6_8z00,
		BgL_bgl_za762listza7d2za7e3vec1792za7,
		BGl_z62listzd2ze3vectorz53zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2refzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2refza71793za7,
		BGl_z62vectorzd2refzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2lengthzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2leng1794z00,
		BGl_z62vectorzd2lengthzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1740z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1740za700za7za7_1795za7, "&vector-append", 14);
	      BGL_DEFINE_STRING(BGl_string1741z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1741za700za7za7_1796za7, "sort", 4);
	      BGL_DEFINE_STRING(BGl_string1742z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1742za700za7za7_1797za7, "Object must be a list or a vector",
		33);
	      BGL_DEFINE_STRING(BGl_string1743z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1743za700za7za7_1798za7, "vector-map", 10);
	      BGL_DEFINE_STRING(BGl_string1744z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1744za700za7za7_1799za7, "Illegal arguments", 17);
	      BGL_DEFINE_STRING(BGl_string1745z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1745za700za7za7_1800za7, "&vector-map", 11);
	      BGL_DEFINE_STRING(BGl_string1746z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1746za700za7za7_1801za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string1747z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1747za700za7za7_1802za7, "vector-map!", 11);
	      BGL_DEFINE_STRING(BGl_string1748z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1748za700za7za7_1803za7, "&vector-map!", 12);
	      BGL_DEFINE_STRING(BGl_string1749z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1749za700za7za7_1804za7, "vector-for-each", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2tagzd2setz12zd2envzc0zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2tagza71805za7,
		BGl_z62vectorzd2tagzd2setz12z70zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1750z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1750za700za7za7_1806za7, "&vector-for-each", 16);
	      BGL_DEFINE_STRING(BGl_string1751z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1751za700za7za7_1807za7, "&vector-shrink!", 15);
	      BGL_DEFINE_STRING(BGl_string1752z00zz__r4_vectors_6_8z00,
		BgL_bgl_string1752za700za7za7_1808za7, "__r4_vectors_6_8", 16);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzf3zd2envz21zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7f3za791za71809z00,
		BGl_z62vectorzf3z91zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2setzd2urz12zd2envzc0zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2setza71810za7,
		BGl_z62vectorzd2setzd2urz12z70zz__r4_vectors_6_8z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2copyz12zd2envz12zz__r4_vectors_6_8z00,
		BgL_bgl__vectorza7d2copyza711811z00, opt_generic_entry,
		BGl__vectorzd2copyz12zc0zz__r4_vectors_6_8z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2vectorzd2envz00zz__r4_vectors_6_8z00,
		BgL_bgl__makeza7d2vectorza7d1812z00, opt_generic_entry,
		BGl__makezd2vectorzd2zz__r4_vectors_6_8z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2forzd2eachzd2envzd2zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2forza71813za7, va_generic_entry,
		BGl_z62vectorzd2forzd2eachz62zz__r4_vectors_6_8z00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2setz12zd2envz12zz__r4_vectors_6_8z00,
		BgL_bgl_za762vectorza7d2setza71814za7,
		BGl_z62vectorzd2setz12za2zz__r4_vectors_6_8z00, 0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_vectorzd2setz12zd2envz12zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2setza71814za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2forzd2eachzd2envzd2zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2forza71813za7);
		BGL_BIND_PROCEDURE(BGl_makezd2vectorzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl__makeza7d2vectorza7d1812z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2copyz12zd2envz12zz__r4_vectors_6_8z00,
			BgL_bgl__vectorza7d2copyza711811z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2setzd2urz12zd2envzc0zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2setza71810za7);
		BGL_BIND_PROCEDURE(BGl_vectorzf3zd2envz21zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7f3za791za71809z00);
		BGL_BIND_STRING(BGl_string1752z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1752za700za7za7_1808za7);
		BGL_BIND_STRING(BGl_string1751z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1751za700za7za7_1807za7);
		BGL_BIND_STRING(BGl_string1750z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1750za700za7za7_1806za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2tagzd2setz12zd2envzc0zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2tagza71805za7);
		BGL_BIND_STRING(BGl_string1749z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1749za700za7za7_1804za7);
		BGL_BIND_STRING(BGl_string1748z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1748za700za7za7_1803za7);
		BGL_BIND_STRING(BGl_string1747z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1747za700za7za7_1802za7);
		BGL_BIND_STRING(BGl_string1746z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1746za700za7za7_1801za7);
		BGL_BIND_STRING(BGl_string1745z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1745za700za7za7_1800za7);
		BGL_BIND_STRING(BGl_string1744z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1744za700za7za7_1799za7);
		BGL_BIND_STRING(BGl_string1743z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1743za700za7za7_1798za7);
		BGL_BIND_STRING(BGl_string1742z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1742za700za7za7_1797za7);
		BGL_BIND_STRING(BGl_string1741z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1741za700za7za7_1796za7);
		BGL_BIND_STRING(BGl_string1740z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1740za700za7za7_1795za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2lengthzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2leng1794z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2refzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2refza71793za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3vectorzd2envze3zz__r4_vectors_6_8z00,
			BgL_bgl_za762listza7d2za7e3vec1792za7);
		BGL_BIND_STRING(BGl_string1739z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1739za700za7za7_1791za7);
		BGL_BIND_STRING(BGl_string1738z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1738za700za7za7_1790za7);
		BGL_BIND_STRING(BGl_string1737z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1737za700za7za7_1789za7);
		BGL_BIND_STRING(BGl_string1736z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1736za700za7za7_1788za7);
		BGL_BIND_STRING(BGl_string1735z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1735za700za7za7_1787za7);
		BGL_BIND_STRING(BGl_string1734z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1734za700za7za7_1786za7);
		BGL_BIND_STRING(BGl_string1733z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1733za700za7za7_1785za7);
		BGL_BIND_STRING(BGl_string1732z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1732za700za7za7_1784za7);
		BGL_BIND_STRING(BGl_string1731z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1731za700za7za7_1783za7);
		BGL_BIND_STRING(BGl_string1730z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1730za700za7za7_1782za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2copyzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2copy1781z00);
		BGL_BIND_STRING(BGl_string1729z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1729za700za7za7_1780za7);
		BGL_BIND_STRING(BGl_string1728z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1728za700za7za7_1779za7);
		BGL_BIND_STRING(BGl_string1727z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1727za700za7za7_1778za7);
		BGL_BIND_STRING(BGl_string1726z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1726za700za7za7_1777za7);
		BGL_BIND_STRING(BGl_string1725z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1725za700za7za7_1776za7);
		BGL_BIND_STRING(BGl_string1724z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1724za700za7za7_1775za7);
		BGL_BIND_STRING(BGl_string1723z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1723za700za7za7_1774za7);
		BGL_BIND_STRING(BGl_string1722z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1722za700za7za7_1773za7);
		BGL_BIND_STRING(BGl_string1721z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1721za700za7za7_1772za7);
		BGL_BIND_STRING(BGl_string1720z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1720za700za7za7_1771za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2mapz12zd2envz12zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2mapza71770za7);
		BGL_BIND_STRING(BGl_string1719z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1719za700za7za7_1769za7);
		BGL_BIND_STRING(BGl_string1718z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1718za700za7za7_1768za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2refzd2urzd2envzd2zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2refza71767za7);
		BGL_BIND_STRING(BGl_string1717z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1717za700za7za7_1766za7);
		BGL_BIND_STRING(BGl_string1716z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1716za700za7za7_1765za7);
		BGL_BIND_STRING(BGl_string1715z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1715za700za7za7_1764za7);
		BGL_BIND_STRING(BGl_string1714z00zz__r4_vectors_6_8z00,
			BgL_bgl_string1714za700za7za7_1763za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2envzd2zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza762za7za7__1762z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2copy3zd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2copy1761z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2tagzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2tagza71760za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2ze3listzd2envze3zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2za7e3l1759za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2appendzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2appe1758z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2fillz12zd2envz12zz__r4_vectors_6_8z00,
			BgL_bgl__vectorza7d2fillza711757z00);
		BGL_BIND_PROCEDURE(BGl_sortzd2envzd2zz__r4_vectors_6_8z00,
			BgL_bgl_za762sortza762za7za7__r41756z00);
		BGL_BIND_PROCEDURE(BGl_copyzd2vectorzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762copyza7d2vector1755z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2shrinkz12zd2envz12zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2shri1754z00);
		BGL_BIND_PROCEDURE(BGl_vectorzd2mapzd2envz00zz__r4_vectors_6_8z00,
			BgL_bgl_za762vectorza7d2mapza71753za7);
	}

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

		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00));
#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__r4_vectors_6_8z00(long
		BgL_checksumz00_2082, char *BgL_fromz00_2083)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00))
				{
					BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r4_vectors_6_8z00();
					return BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__r4_vectors_6_8z00(void)
	{
		{	/* Ieee/vector.scm 18 */
			return bgl_gc_roots_register();
		}

	}



/* vector? */
	BGL_EXPORTED_DEF bool_t BGl_vectorzf3zf3zz__r4_vectors_6_8z00(obj_t
		BgL_objz00_3)
	{
		{	/* Ieee/vector.scm 136 */
			return VECTORP(BgL_objz00_3);
		}

	}



/* &vector? */
	obj_t BGl_z62vectorzf3z91zz__r4_vectors_6_8z00(obj_t BgL_envz00_1869,
		obj_t BgL_objz00_1870)
	{
		{	/* Ieee/vector.scm 136 */
			return BBOOL(BGl_vectorzf3zf3zz__r4_vectors_6_8z00(BgL_objz00_1870));
		}

	}



/* _make-vector */
	obj_t BGl__makezd2vectorzd2zz__r4_vectors_6_8z00(obj_t BgL_env1049z00_7,
		obj_t BgL_opt1048z00_6)
	{
		{	/* Ieee/vector.scm 142 */
			{	/* Ieee/vector.scm 142 */
				obj_t BgL_g1050z00_2077;

				{
					obj_t BgL_auxz00_2094;

					if (VECTORP(BgL_opt1048z00_6))
						{	/* Ieee/vector.scm 142 */
							BgL_auxz00_2094 = BgL_opt1048z00_6;
						}
					else
						{
							obj_t BgL_auxz00_2097;

							BgL_auxz00_2097 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(6640L),
								BGl_string1715z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1048z00_6);
							FAILURE(BgL_auxz00_2097, BFALSE, BFALSE);
						}
					BgL_g1050z00_2077 = VECTOR_REF(BgL_auxz00_2094, 0L);
				}
				{	/* Ieee/vector.scm 142 */
					long BgL_aux1052z00_2078;

					{
						obj_t BgL_auxz00_2102;

						if (VECTORP(BgL_opt1048z00_6))
							{	/* Ieee/vector.scm 142 */
								BgL_auxz00_2102 = BgL_opt1048z00_6;
							}
						else
							{
								obj_t BgL_auxz00_2105;

								BgL_auxz00_2105 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(6640L),
									BGl_string1715z00zz__r4_vectors_6_8z00,
									BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1048z00_6);
								FAILURE(BgL_auxz00_2105, BFALSE, BFALSE);
							}
						BgL_aux1052z00_2078 = VECTOR_LENGTH(BgL_auxz00_2102);
					}
					switch (BgL_aux1052z00_2078)
						{
						case 1L:

							{	/* Ieee/vector.scm 142 */

								{	/* Ieee/vector.scm 142 */
									long BgL_intz00_2079;

									{	/* Ieee/vector.scm 142 */
										obj_t BgL_tmpz00_2110;

										if (INTEGERP(BgL_g1050z00_2077))
											{	/* Ieee/vector.scm 142 */
												BgL_tmpz00_2110 = BgL_g1050z00_2077;
											}
										else
											{
												obj_t BgL_auxz00_2113;

												BgL_auxz00_2113 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(6640L),
													BGl_string1715z00zz__r4_vectors_6_8z00,
													BGl_string1717z00zz__r4_vectors_6_8z00,
													BgL_g1050z00_2077);
												FAILURE(BgL_auxz00_2113, BFALSE, BFALSE);
											}
										BgL_intz00_2079 = (long) CINT(BgL_tmpz00_2110);
									}
									return make_vector(BgL_intz00_2079, BUNSPEC);
								}
							}
							break;
						case 2L:

							{	/* Ieee/vector.scm 142 */
								obj_t BgL_fillz00_2080;

								{
									obj_t BgL_auxz00_2119;

									if (VECTORP(BgL_opt1048z00_6))
										{	/* Ieee/vector.scm 142 */
											BgL_auxz00_2119 = BgL_opt1048z00_6;
										}
									else
										{
											obj_t BgL_auxz00_2122;

											BgL_auxz00_2122 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(6640L),
												BGl_string1715z00zz__r4_vectors_6_8z00,
												BGl_string1716z00zz__r4_vectors_6_8z00,
												BgL_opt1048z00_6);
											FAILURE(BgL_auxz00_2122, BFALSE, BFALSE);
										}
									BgL_fillz00_2080 = VECTOR_REF(BgL_auxz00_2119, 1L);
								}
								{	/* Ieee/vector.scm 142 */

									{	/* Ieee/vector.scm 142 */
										long BgL_intz00_2081;

										{	/* Ieee/vector.scm 142 */
											obj_t BgL_tmpz00_2127;

											if (INTEGERP(BgL_g1050z00_2077))
												{	/* Ieee/vector.scm 142 */
													BgL_tmpz00_2127 = BgL_g1050z00_2077;
												}
											else
												{
													obj_t BgL_auxz00_2130;

													BgL_auxz00_2130 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string1714z00zz__r4_vectors_6_8z00,
														BINT(6640L), BGl_string1715z00zz__r4_vectors_6_8z00,
														BGl_string1717z00zz__r4_vectors_6_8z00,
														BgL_g1050z00_2077);
													FAILURE(BgL_auxz00_2130, BFALSE, BFALSE);
												}
											BgL_intz00_2081 = (long) CINT(BgL_tmpz00_2127);
										}
										return make_vector(BgL_intz00_2081, BgL_fillz00_2080);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* make-vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2vectorzd2zz__r4_vectors_6_8z00(long
		BgL_intz00_4, obj_t BgL_fillz00_5)
	{
		{	/* Ieee/vector.scm 142 */
			BGL_TAIL return make_vector(BgL_intz00_4, BgL_fillz00_5);
		}

	}



/* vector */
	BGL_EXPORTED_DEF obj_t BGl_vectorz00zz__r4_vectors_6_8z00(obj_t BgL_argsz00_8)
	{
		{	/* Ieee/vector.scm 148 */
			return BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_argsz00_8);
		}

	}



/* &vector */
	obj_t BGl_z62vectorz62zz__r4_vectors_6_8z00(obj_t BgL_envz00_1871,
		obj_t BgL_argsz00_1872)
	{
		{	/* Ieee/vector.scm 148 */
			return BGl_vectorz00zz__r4_vectors_6_8z00(BgL_argsz00_1872);
		}

	}



/* vector-length */
	BGL_EXPORTED_DEF long BGl_vectorzd2lengthzd2zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_9)
	{
		{	/* Ieee/vector.scm 154 */
			return VECTOR_LENGTH(BgL_vectorz00_9);
		}

	}



/* &vector-length */
	obj_t BGl_z62vectorzd2lengthzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1873,
		obj_t BgL_vectorz00_1874)
	{
		{	/* Ieee/vector.scm 154 */
			{	/* Ieee/vector.scm 155 */
				long BgL_tmpz00_2141;

				{	/* Ieee/vector.scm 155 */
					obj_t BgL_auxz00_2142;

					if (VECTORP(BgL_vectorz00_1874))
						{	/* Ieee/vector.scm 155 */
							BgL_auxz00_2142 = BgL_vectorz00_1874;
						}
					else
						{
							obj_t BgL_auxz00_2145;

							BgL_auxz00_2145 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(7274L),
								BGl_string1718z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1874);
							FAILURE(BgL_auxz00_2145, BFALSE, BFALSE);
						}
					BgL_tmpz00_2141 =
						BGl_vectorzd2lengthzd2zz__r4_vectors_6_8z00(BgL_auxz00_2142);
				}
				return BINT(BgL_tmpz00_2141);
			}
		}

	}



/* vector-ref */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2refzd2zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_10, long BgL_kz00_11)
	{
		{	/* Ieee/vector.scm 160 */
			return VECTOR_REF(BgL_vectorz00_10, BgL_kz00_11);
		}

	}



/* &vector-ref */
	obj_t BGl_z62vectorzd2refzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1875,
		obj_t BgL_vectorz00_1876, obj_t BgL_kz00_1877)
	{
		{	/* Ieee/vector.scm 160 */
			{	/* Ieee/vector.scm 161 */
				long BgL_auxz00_2159;
				obj_t BgL_auxz00_2152;

				{	/* Ieee/vector.scm 161 */
					obj_t BgL_tmpz00_2160;

					if (INTEGERP(BgL_kz00_1877))
						{	/* Ieee/vector.scm 161 */
							BgL_tmpz00_2160 = BgL_kz00_1877;
						}
					else
						{
							obj_t BgL_auxz00_2163;

							BgL_auxz00_2163 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(7562L),
								BGl_string1719z00zz__r4_vectors_6_8z00,
								BGl_string1717z00zz__r4_vectors_6_8z00, BgL_kz00_1877);
							FAILURE(BgL_auxz00_2163, BFALSE, BFALSE);
						}
					BgL_auxz00_2159 = (long) CINT(BgL_tmpz00_2160);
				}
				if (VECTORP(BgL_vectorz00_1876))
					{	/* Ieee/vector.scm 161 */
						BgL_auxz00_2152 = BgL_vectorz00_1876;
					}
				else
					{
						obj_t BgL_auxz00_2155;

						BgL_auxz00_2155 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(7562L),
							BGl_string1719z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1876);
						FAILURE(BgL_auxz00_2155, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2refzd2zz__r4_vectors_6_8z00(BgL_auxz00_2152,
					BgL_auxz00_2159);
			}
		}

	}



/* vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2setz12zc0zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_12, long BgL_kz00_13, obj_t BgL_objz00_14)
	{
		{	/* Ieee/vector.scm 166 */
			return VECTOR_SET(BgL_vectorz00_12, BgL_kz00_13, BgL_objz00_14);
		}

	}



/* &vector-set! */
	obj_t BGl_z62vectorzd2setz12za2zz__r4_vectors_6_8z00(obj_t BgL_envz00_1878,
		obj_t BgL_vectorz00_1879, obj_t BgL_kz00_1880, obj_t BgL_objz00_1881)
	{
		{	/* Ieee/vector.scm 166 */
			{	/* Ieee/vector.scm 167 */
				long BgL_auxz00_2177;
				obj_t BgL_auxz00_2170;

				{	/* Ieee/vector.scm 167 */
					obj_t BgL_tmpz00_2178;

					if (INTEGERP(BgL_kz00_1880))
						{	/* Ieee/vector.scm 167 */
							BgL_tmpz00_2178 = BgL_kz00_1880;
						}
					else
						{
							obj_t BgL_auxz00_2181;

							BgL_auxz00_2181 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(7854L),
								BGl_string1720z00zz__r4_vectors_6_8z00,
								BGl_string1717z00zz__r4_vectors_6_8z00, BgL_kz00_1880);
							FAILURE(BgL_auxz00_2181, BFALSE, BFALSE);
						}
					BgL_auxz00_2177 = (long) CINT(BgL_tmpz00_2178);
				}
				if (VECTORP(BgL_vectorz00_1879))
					{	/* Ieee/vector.scm 167 */
						BgL_auxz00_2170 = BgL_vectorz00_1879;
					}
				else
					{
						obj_t BgL_auxz00_2173;

						BgL_auxz00_2173 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(7854L),
							BGl_string1720z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1879);
						FAILURE(BgL_auxz00_2173, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2setz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2170,
					BgL_auxz00_2177, BgL_objz00_1881);
			}
		}

	}



/* vector-ref-ur */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2refzd2urz00zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_15, long BgL_kz00_16)
	{
		{	/* Ieee/vector.scm 172 */
			return VECTOR_REF(BgL_vectorz00_15, BgL_kz00_16);
		}

	}



/* &vector-ref-ur */
	obj_t BGl_z62vectorzd2refzd2urz62zz__r4_vectors_6_8z00(obj_t BgL_envz00_1882,
		obj_t BgL_vectorz00_1883, obj_t BgL_kz00_1884)
	{
		{	/* Ieee/vector.scm 172 */
			{	/* Ieee/vector.scm 173 */
				long BgL_auxz00_2195;
				obj_t BgL_auxz00_2188;

				{	/* Ieee/vector.scm 173 */
					obj_t BgL_tmpz00_2196;

					if (INTEGERP(BgL_kz00_1884))
						{	/* Ieee/vector.scm 173 */
							BgL_tmpz00_2196 = BgL_kz00_1884;
						}
					else
						{
							obj_t BgL_auxz00_2199;

							BgL_auxz00_2199 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(8149L),
								BGl_string1721z00zz__r4_vectors_6_8z00,
								BGl_string1717z00zz__r4_vectors_6_8z00, BgL_kz00_1884);
							FAILURE(BgL_auxz00_2199, BFALSE, BFALSE);
						}
					BgL_auxz00_2195 = (long) CINT(BgL_tmpz00_2196);
				}
				if (VECTORP(BgL_vectorz00_1883))
					{	/* Ieee/vector.scm 173 */
						BgL_auxz00_2188 = BgL_vectorz00_1883;
					}
				else
					{
						obj_t BgL_auxz00_2191;

						BgL_auxz00_2191 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(8149L),
							BGl_string1721z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1883);
						FAILURE(BgL_auxz00_2191, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2refzd2urz00zz__r4_vectors_6_8z00(BgL_auxz00_2188,
					BgL_auxz00_2195);
			}
		}

	}



/* vector-set-ur! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_17, long BgL_kz00_18, obj_t BgL_objz00_19)
	{
		{	/* Ieee/vector.scm 178 */
			return VECTOR_SET(BgL_vectorz00_17, BgL_kz00_18, BgL_objz00_19);
		}

	}



/* &vector-set-ur! */
	obj_t BGl_z62vectorzd2setzd2urz12z70zz__r4_vectors_6_8z00(obj_t
		BgL_envz00_1885, obj_t BgL_vectorz00_1886, obj_t BgL_kz00_1887,
		obj_t BgL_objz00_1888)
	{
		{	/* Ieee/vector.scm 178 */
			{	/* Ieee/vector.scm 179 */
				long BgL_auxz00_2213;
				obj_t BgL_auxz00_2206;

				{	/* Ieee/vector.scm 179 */
					obj_t BgL_tmpz00_2214;

					if (INTEGERP(BgL_kz00_1887))
						{	/* Ieee/vector.scm 179 */
							BgL_tmpz00_2214 = BgL_kz00_1887;
						}
					else
						{
							obj_t BgL_auxz00_2217;

							BgL_auxz00_2217 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(8447L),
								BGl_string1722z00zz__r4_vectors_6_8z00,
								BGl_string1717z00zz__r4_vectors_6_8z00, BgL_kz00_1887);
							FAILURE(BgL_auxz00_2217, BFALSE, BFALSE);
						}
					BgL_auxz00_2213 = (long) CINT(BgL_tmpz00_2214);
				}
				if (VECTORP(BgL_vectorz00_1886))
					{	/* Ieee/vector.scm 179 */
						BgL_auxz00_2206 = BgL_vectorz00_1886;
					}
				else
					{
						obj_t BgL_auxz00_2209;

						BgL_auxz00_2209 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(8447L),
							BGl_string1722z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1886);
						FAILURE(BgL_auxz00_2209, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(BgL_auxz00_2206,
					BgL_auxz00_2213, BgL_objz00_1888);
			}
		}

	}



/* vector->list */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_20)
	{
		{	/* Ieee/vector.scm 184 */
			if ((VECTOR_LENGTH(BgL_vectorz00_20) == 0L))
				{	/* Ieee/vector.scm 186 */
					return BNIL;
				}
			else
				{	/* Ieee/vector.scm 188 */
					long BgL_g1014z00_761;

					BgL_g1014z00_761 = (VECTOR_LENGTH(BgL_vectorz00_20) - 1L);
					{
						long BgL_iz00_1321;
						obj_t BgL_accz00_1322;

						BgL_iz00_1321 = BgL_g1014z00_761;
						BgL_accz00_1322 = BNIL;
					BgL_loopz00_1320:
						if ((BgL_iz00_1321 == 0L))
							{	/* Ieee/vector.scm 190 */
								return
									MAKE_YOUNG_PAIR(VECTOR_REF(BgL_vectorz00_20, BgL_iz00_1321),
									BgL_accz00_1322);
							}
						else
							{	/* Ieee/vector.scm 192 */
								long BgL_arg1092z00_1330;
								obj_t BgL_arg1096z00_1331;

								BgL_arg1092z00_1330 = (BgL_iz00_1321 - 1L);
								BgL_arg1096z00_1331 =
									MAKE_YOUNG_PAIR(VECTOR_REF(BgL_vectorz00_20, BgL_iz00_1321),
									BgL_accz00_1322);
								{
									obj_t BgL_accz00_2236;
									long BgL_iz00_2235;

									BgL_iz00_2235 = BgL_arg1092z00_1330;
									BgL_accz00_2236 = BgL_arg1096z00_1331;
									BgL_accz00_1322 = BgL_accz00_2236;
									BgL_iz00_1321 = BgL_iz00_2235;
									goto BgL_loopz00_1320;
								}
							}
					}
				}
		}

	}



/* &vector->list */
	obj_t BGl_z62vectorzd2ze3listz53zz__r4_vectors_6_8z00(obj_t BgL_envz00_1889,
		obj_t BgL_vectorz00_1890)
	{
		{	/* Ieee/vector.scm 184 */
			{	/* Ieee/vector.scm 185 */
				obj_t BgL_auxz00_2237;

				if (VECTORP(BgL_vectorz00_1890))
					{	/* Ieee/vector.scm 185 */
						BgL_auxz00_2237 = BgL_vectorz00_1890;
					}
				else
					{
						obj_t BgL_auxz00_2240;

						BgL_auxz00_2240 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(8735L),
							BGl_string1723z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1890);
						FAILURE(BgL_auxz00_2240, BFALSE, BFALSE);
					}
				return BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_auxz00_2237);
			}
		}

	}



/* list->vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t
		BgL_listz00_21)
	{
		{	/* Ieee/vector.scm 197 */
			{	/* Ieee/vector.scm 198 */
				long BgL_lenz00_773;

				BgL_lenz00_773 = bgl_list_length(BgL_listz00_21);
				{	/* Ieee/vector.scm 198 */
					obj_t BgL_vecz00_774;

					BgL_vecz00_774 = create_vector(BgL_lenz00_773);
					{	/* Ieee/vector.scm 199 */

						{
							long BgL_iz00_1362;
							obj_t BgL_lz00_1363;

							BgL_iz00_1362 = 0L;
							BgL_lz00_1363 = BgL_listz00_21;
						BgL_loopz00_1361:
							if ((BgL_iz00_1362 == BgL_lenz00_773))
								{	/* Ieee/vector.scm 202 */
									return BgL_vecz00_774;
								}
							else
								{	/* Ieee/vector.scm 202 */
									{	/* Ieee/vector.scm 205 */
										obj_t BgL_arg1107z00_1369;

										BgL_arg1107z00_1369 = CAR(((obj_t) BgL_lz00_1363));
										VECTOR_SET(BgL_vecz00_774, BgL_iz00_1362,
											BgL_arg1107z00_1369);
									}
									{	/* Ieee/vector.scm 206 */
										long BgL_arg1108z00_1370;
										obj_t BgL_arg1111z00_1371;

										BgL_arg1108z00_1370 = (BgL_iz00_1362 + 1L);
										BgL_arg1111z00_1371 = CDR(((obj_t) BgL_lz00_1363));
										{
											obj_t BgL_lz00_2256;
											long BgL_iz00_2255;

											BgL_iz00_2255 = BgL_arg1108z00_1370;
											BgL_lz00_2256 = BgL_arg1111z00_1371;
											BgL_lz00_1363 = BgL_lz00_2256;
											BgL_iz00_1362 = BgL_iz00_2255;
											goto BgL_loopz00_1361;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->vector */
	obj_t BGl_z62listzd2ze3vectorz53zz__r4_vectors_6_8z00(obj_t BgL_envz00_1891,
		obj_t BgL_listz00_1892)
	{
		{	/* Ieee/vector.scm 197 */
			{	/* Ieee/vector.scm 198 */
				obj_t BgL_auxz00_2257;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_1892))
					{	/* Ieee/vector.scm 198 */
						BgL_auxz00_2257 = BgL_listz00_1892;
					}
				else
					{
						obj_t BgL_auxz00_2260;

						BgL_auxz00_2260 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9225L),
							BGl_string1724z00zz__r4_vectors_6_8z00,
							BGl_string1725z00zz__r4_vectors_6_8z00, BgL_listz00_1892);
						FAILURE(BgL_auxz00_2260, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_auxz00_2257);
			}
		}

	}



/* _vector-fill! */
	obj_t BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t BgL_env1054z00_27,
		obj_t BgL_opt1053z00_26)
	{
		{	/* Ieee/vector.scm 211 */
			{	/* Ieee/vector.scm 211 */
				obj_t BgL_vecz00_784;
				obj_t BgL_fillz00_785;

				{
					obj_t BgL_auxz00_2265;

					if (VECTORP(BgL_opt1053z00_26))
						{	/* Ieee/vector.scm 211 */
							BgL_auxz00_2265 = BgL_opt1053z00_26;
						}
					else
						{
							obj_t BgL_auxz00_2268;

							BgL_auxz00_2268 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9648L),
								BGl_string1726z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26);
							FAILURE(BgL_auxz00_2268, BFALSE, BFALSE);
						}
					BgL_vecz00_784 = VECTOR_REF(BgL_auxz00_2265, 0L);
				}
				{
					obj_t BgL_auxz00_2273;

					if (VECTORP(BgL_opt1053z00_26))
						{	/* Ieee/vector.scm 211 */
							BgL_auxz00_2273 = BgL_opt1053z00_26;
						}
					else
						{
							obj_t BgL_auxz00_2276;

							BgL_auxz00_2276 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9648L),
								BGl_string1726z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26);
							FAILURE(BgL_auxz00_2276, BFALSE, BFALSE);
						}
					BgL_fillz00_785 = VECTOR_REF(BgL_auxz00_2273, 1L);
				}
				{	/* Ieee/vector.scm 211 */
					long BgL_aux1056z00_787;

					{
						obj_t BgL_auxz00_2281;

						if (VECTORP(BgL_opt1053z00_26))
							{	/* Ieee/vector.scm 211 */
								BgL_auxz00_2281 = BgL_opt1053z00_26;
							}
						else
							{
								obj_t BgL_auxz00_2284;

								BgL_auxz00_2284 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9648L),
									BGl_string1726z00zz__r4_vectors_6_8z00,
									BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26);
								FAILURE(BgL_auxz00_2284, BFALSE, BFALSE);
							}
						BgL_aux1056z00_787 = VECTOR_LENGTH(BgL_auxz00_2281);
					}
					switch (BgL_aux1056z00_787)
						{
						case 2L:

							{	/* Ieee/vector.scm 212 */
								long BgL_endz00_789;

								{	/* Ieee/vector.scm 212 */
									obj_t BgL_vectorz00_1379;

									if (VECTORP(BgL_vecz00_784))
										{	/* Ieee/vector.scm 212 */
											BgL_vectorz00_1379 = BgL_vecz00_784;
										}
									else
										{
											obj_t BgL_auxz00_2291;

											BgL_auxz00_2291 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9736L),
												BGl_string1726z00zz__r4_vectors_6_8z00,
												BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vecz00_784);
											FAILURE(BgL_auxz00_2291, BFALSE, BFALSE);
										}
									BgL_endz00_789 = VECTOR_LENGTH(BgL_vectorz00_1379);
								}
								{	/* Ieee/vector.scm 211 */

									{	/* Ieee/vector.scm 211 */
										obj_t BgL_auxz00_2296;

										if (VECTORP(BgL_vecz00_784))
											{	/* Ieee/vector.scm 211 */
												BgL_auxz00_2296 = BgL_vecz00_784;
											}
										else
											{
												obj_t BgL_auxz00_2299;

												BgL_auxz00_2299 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9648L),
													BGl_string1726z00zz__r4_vectors_6_8z00,
													BGl_string1716z00zz__r4_vectors_6_8z00,
													BgL_vecz00_784);
												FAILURE(BgL_auxz00_2299, BFALSE, BFALSE);
											}
										return
											BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00
											(BgL_auxz00_2296, BgL_fillz00_785, 0L, BgL_endz00_789);
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/vector.scm 211 */
								obj_t BgL_startz00_790;

								{
									obj_t BgL_auxz00_2304;

									if (VECTORP(BgL_opt1053z00_26))
										{	/* Ieee/vector.scm 211 */
											BgL_auxz00_2304 = BgL_opt1053z00_26;
										}
									else
										{
											obj_t BgL_auxz00_2307;

											BgL_auxz00_2307 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9648L),
												BGl_string1726z00zz__r4_vectors_6_8z00,
												BGl_string1716z00zz__r4_vectors_6_8z00,
												BgL_opt1053z00_26);
											FAILURE(BgL_auxz00_2307, BFALSE, BFALSE);
										}
									BgL_startz00_790 = VECTOR_REF(BgL_auxz00_2304, 2L);
								}
								{	/* Ieee/vector.scm 212 */
									long BgL_endz00_791;

									{	/* Ieee/vector.scm 212 */
										obj_t BgL_vectorz00_1380;

										if (VECTORP(BgL_vecz00_784))
											{	/* Ieee/vector.scm 212 */
												BgL_vectorz00_1380 = BgL_vecz00_784;
											}
										else
											{
												obj_t BgL_auxz00_2314;

												BgL_auxz00_2314 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9736L),
													BGl_string1726z00zz__r4_vectors_6_8z00,
													BGl_string1716z00zz__r4_vectors_6_8z00,
													BgL_vecz00_784);
												FAILURE(BgL_auxz00_2314, BFALSE, BFALSE);
											}
										BgL_endz00_791 = VECTOR_LENGTH(BgL_vectorz00_1380);
									}
									{	/* Ieee/vector.scm 211 */

										{	/* Ieee/vector.scm 211 */
											long BgL_auxz00_2326;
											obj_t BgL_auxz00_2319;

											{	/* Ieee/vector.scm 211 */
												obj_t BgL_tmpz00_2327;

												if (INTEGERP(BgL_startz00_790))
													{	/* Ieee/vector.scm 211 */
														BgL_tmpz00_2327 = BgL_startz00_790;
													}
												else
													{
														obj_t BgL_auxz00_2330;

														BgL_auxz00_2330 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1714z00zz__r4_vectors_6_8z00,
															BINT(9648L),
															BGl_string1726z00zz__r4_vectors_6_8z00,
															BGl_string1717z00zz__r4_vectors_6_8z00,
															BgL_startz00_790);
														FAILURE(BgL_auxz00_2330, BFALSE, BFALSE);
													}
												BgL_auxz00_2326 = (long) CINT(BgL_tmpz00_2327);
											}
											if (VECTORP(BgL_vecz00_784))
												{	/* Ieee/vector.scm 211 */
													BgL_auxz00_2319 = BgL_vecz00_784;
												}
											else
												{
													obj_t BgL_auxz00_2322;

													BgL_auxz00_2322 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string1714z00zz__r4_vectors_6_8z00,
														BINT(9648L), BGl_string1726z00zz__r4_vectors_6_8z00,
														BGl_string1716z00zz__r4_vectors_6_8z00,
														BgL_vecz00_784);
													FAILURE(BgL_auxz00_2322, BFALSE, BFALSE);
												}
											return
												BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00
												(BgL_auxz00_2319, BgL_fillz00_785, BgL_auxz00_2326,
												BgL_endz00_791);
										}
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/vector.scm 211 */
								obj_t BgL_startz00_792;

								{
									obj_t BgL_auxz00_2336;

									if (VECTORP(BgL_opt1053z00_26))
										{	/* Ieee/vector.scm 211 */
											BgL_auxz00_2336 = BgL_opt1053z00_26;
										}
									else
										{
											obj_t BgL_auxz00_2339;

											BgL_auxz00_2339 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9648L),
												BGl_string1726z00zz__r4_vectors_6_8z00,
												BGl_string1716z00zz__r4_vectors_6_8z00,
												BgL_opt1053z00_26);
											FAILURE(BgL_auxz00_2339, BFALSE, BFALSE);
										}
									BgL_startz00_792 = VECTOR_REF(BgL_auxz00_2336, 2L);
								}
								{	/* Ieee/vector.scm 211 */
									obj_t BgL_endz00_793;

									{
										obj_t BgL_auxz00_2344;

										if (VECTORP(BgL_opt1053z00_26))
											{	/* Ieee/vector.scm 211 */
												BgL_auxz00_2344 = BgL_opt1053z00_26;
											}
										else
											{
												obj_t BgL_auxz00_2347;

												BgL_auxz00_2347 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(9648L),
													BGl_string1726z00zz__r4_vectors_6_8z00,
													BGl_string1716z00zz__r4_vectors_6_8z00,
													BgL_opt1053z00_26);
												FAILURE(BgL_auxz00_2347, BFALSE, BFALSE);
											}
										BgL_endz00_793 = VECTOR_REF(BgL_auxz00_2344, 3L);
									}
									{	/* Ieee/vector.scm 211 */

										{	/* Ieee/vector.scm 211 */
											long BgL_auxz00_2368;
											long BgL_auxz00_2359;
											obj_t BgL_auxz00_2352;

											{	/* Ieee/vector.scm 211 */
												obj_t BgL_tmpz00_2369;

												if (INTEGERP(BgL_endz00_793))
													{	/* Ieee/vector.scm 211 */
														BgL_tmpz00_2369 = BgL_endz00_793;
													}
												else
													{
														obj_t BgL_auxz00_2372;

														BgL_auxz00_2372 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1714z00zz__r4_vectors_6_8z00,
															BINT(9648L),
															BGl_string1726z00zz__r4_vectors_6_8z00,
															BGl_string1717z00zz__r4_vectors_6_8z00,
															BgL_endz00_793);
														FAILURE(BgL_auxz00_2372, BFALSE, BFALSE);
													}
												BgL_auxz00_2368 = (long) CINT(BgL_tmpz00_2369);
											}
											{	/* Ieee/vector.scm 211 */
												obj_t BgL_tmpz00_2360;

												if (INTEGERP(BgL_startz00_792))
													{	/* Ieee/vector.scm 211 */
														BgL_tmpz00_2360 = BgL_startz00_792;
													}
												else
													{
														obj_t BgL_auxz00_2363;

														BgL_auxz00_2363 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1714z00zz__r4_vectors_6_8z00,
															BINT(9648L),
															BGl_string1726z00zz__r4_vectors_6_8z00,
															BGl_string1717z00zz__r4_vectors_6_8z00,
															BgL_startz00_792);
														FAILURE(BgL_auxz00_2363, BFALSE, BFALSE);
													}
												BgL_auxz00_2359 = (long) CINT(BgL_tmpz00_2360);
											}
											if (VECTORP(BgL_vecz00_784))
												{	/* Ieee/vector.scm 211 */
													BgL_auxz00_2352 = BgL_vecz00_784;
												}
											else
												{
													obj_t BgL_auxz00_2355;

													BgL_auxz00_2355 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string1714z00zz__r4_vectors_6_8z00,
														BINT(9648L), BGl_string1726z00zz__r4_vectors_6_8z00,
														BGl_string1716z00zz__r4_vectors_6_8z00,
														BgL_vecz00_784);
													FAILURE(BgL_auxz00_2355, BFALSE, BFALSE);
												}
											return
												BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00
												(BgL_auxz00_2352, BgL_fillz00_785, BgL_auxz00_2359,
												BgL_auxz00_2368);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* vector-fill! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t
		BgL_vecz00_22, obj_t BgL_fillz00_23, long BgL_startz00_24,
		long BgL_endz00_25)
	{
		{	/* Ieee/vector.scm 211 */
			if ((BgL_startz00_24 < 0L))
				{	/* Ieee/vector.scm 214 */
					return
						BGl_errorz00zz__errorz00(BGl_string1727z00zz__r4_vectors_6_8z00,
						BGl_string1728z00zz__r4_vectors_6_8z00, BINT(BgL_startz00_24));
				}
			else
				{	/* Ieee/vector.scm 214 */
					if ((BgL_endz00_25 > VECTOR_LENGTH(BgL_vecz00_22)))
						{	/* Ieee/vector.scm 216 */
							return
								BGl_errorz00zz__errorz00(BGl_string1727z00zz__r4_vectors_6_8z00,
								BGl_string1729z00zz__r4_vectors_6_8z00, BINT(BgL_endz00_25));
						}
					else
						{	/* Ieee/vector.scm 216 */
							if ((BgL_startz00_24 >= BgL_endz00_25))
								{	/* Ieee/vector.scm 219 */
									bool_t BgL_test1852z00_2390;

									if ((BgL_startz00_24 == BgL_endz00_25))
										{	/* Ieee/vector.scm 219 */
											BgL_test1852z00_2390 = (BgL_startz00_24 == 0L);
										}
									else
										{	/* Ieee/vector.scm 219 */
											BgL_test1852z00_2390 = ((bool_t) 0);
										}
									if (BgL_test1852z00_2390)
										{	/* Ieee/vector.scm 219 */
											return BUNSPEC;
										}
									else
										{	/* Ieee/vector.scm 222 */
											obj_t BgL_arg1120z00_800;

											BgL_arg1120z00_800 =
												MAKE_YOUNG_PAIR(BINT(BgL_startz00_24),
												BINT(BgL_endz00_25));
											return
												BGl_errorz00zz__errorz00
												(BGl_string1727z00zz__r4_vectors_6_8z00,
												BGl_string1730z00zz__r4_vectors_6_8z00,
												BgL_arg1120z00_800);
										}
								}
							else
								{	/* Ieee/vector.scm 218 */
									return
										bgl_fill_vector(BgL_vecz00_22, BgL_startz00_24,
										BgL_endz00_25, BgL_fillz00_23);
								}
						}
				}
		}

	}



/* vector-tag */
	BGL_EXPORTED_DEF int BGl_vectorzd2tagzd2zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_28)
	{
		{	/* Ieee/vector.scm 229 */
			return VECTOR_TAG(BgL_vectorz00_28);
		}

	}



/* &vector-tag */
	obj_t BGl_z62vectorzd2tagzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1893,
		obj_t BgL_vectorz00_1894)
	{
		{	/* Ieee/vector.scm 229 */
			{	/* Ieee/vector.scm 230 */
				int BgL_tmpz00_2400;

				{	/* Ieee/vector.scm 230 */
					obj_t BgL_auxz00_2401;

					if (VECTORP(BgL_vectorz00_1894))
						{	/* Ieee/vector.scm 230 */
							BgL_auxz00_2401 = BgL_vectorz00_1894;
						}
					else
						{
							obj_t BgL_auxz00_2404;

							BgL_auxz00_2404 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(10416L),
								BGl_string1731z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1894);
							FAILURE(BgL_auxz00_2404, BFALSE, BFALSE);
						}
					BgL_tmpz00_2400 =
						BGl_vectorzd2tagzd2zz__r4_vectors_6_8z00(BgL_auxz00_2401);
				}
				return BINT(BgL_tmpz00_2400);
			}
		}

	}



/* vector-tag-set! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(obj_t
		BgL_vectorz00_29, int BgL_tagz00_30)
	{
		{	/* Ieee/vector.scm 235 */
			return VECTOR_TAG_SET(BgL_vectorz00_29, BgL_tagz00_30);
		}

	}



/* &vector-tag-set! */
	obj_t BGl_z62vectorzd2tagzd2setz12z70zz__r4_vectors_6_8z00(obj_t
		BgL_envz00_1895, obj_t BgL_vectorz00_1896, obj_t BgL_tagz00_1897)
	{
		{	/* Ieee/vector.scm 235 */
			{	/* Ieee/vector.scm 236 */
				int BgL_auxz00_2418;
				obj_t BgL_auxz00_2411;

				{	/* Ieee/vector.scm 236 */
					obj_t BgL_tmpz00_2419;

					if (INTEGERP(BgL_tagz00_1897))
						{	/* Ieee/vector.scm 236 */
							BgL_tmpz00_2419 = BgL_tagz00_1897;
						}
					else
						{
							obj_t BgL_auxz00_2422;

							BgL_auxz00_2422 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(10708L),
								BGl_string1732z00zz__r4_vectors_6_8z00,
								BGl_string1717z00zz__r4_vectors_6_8z00, BgL_tagz00_1897);
							FAILURE(BgL_auxz00_2422, BFALSE, BFALSE);
						}
					BgL_auxz00_2418 = CINT(BgL_tmpz00_2419);
				}
				if (VECTORP(BgL_vectorz00_1896))
					{	/* Ieee/vector.scm 236 */
						BgL_auxz00_2411 = BgL_vectorz00_1896;
					}
				else
					{
						obj_t BgL_auxz00_2414;

						BgL_auxz00_2414 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(10708L),
							BGl_string1732z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vectorz00_1896);
						FAILURE(BgL_auxz00_2414, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(BgL_auxz00_2411,
					BgL_auxz00_2418);
			}
		}

	}



/* copy-vector */
	BGL_EXPORTED_DEF obj_t BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t
		BgL_oldzd2veczd2_31, long BgL_newzd2lenzd2_32)
	{
		{	/* Ieee/vector.scm 241 */
			{	/* Ieee/vector.scm 242 */
				obj_t BgL_newzd2veczd2_1391;

				BgL_newzd2veczd2_1391 = make_vector(BgL_newzd2lenzd2_32, BUNSPEC);
				{	/* Ieee/vector.scm 243 */
					long BgL_minz00_1393;

					if ((BgL_newzd2lenzd2_32 < VECTOR_LENGTH(BgL_oldzd2veczd2_31)))
						{	/* Ieee/vector.scm 244 */
							BgL_minz00_1393 = BgL_newzd2lenzd2_32;
						}
					else
						{	/* Ieee/vector.scm 244 */
							BgL_minz00_1393 = VECTOR_LENGTH(BgL_oldzd2veczd2_31);
						}
					{	/* Ieee/vector.scm 244 */

						return
							BGL_VECTOR_BLIT_NO_OVERLAP(BgL_newzd2veczd2_1391,
							BgL_oldzd2veczd2_31, 0L, 0L, BgL_minz00_1393);
					}
				}
			}
		}

	}



/* &copy-vector */
	obj_t BGl_z62copyzd2vectorzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1898,
		obj_t BgL_oldzd2veczd2_1899, obj_t BgL_newzd2lenzd2_1900)
	{
		{	/* Ieee/vector.scm 241 */
			{	/* Ieee/vector.scm 242 */
				long BgL_auxz00_2441;
				obj_t BgL_auxz00_2434;

				{	/* Ieee/vector.scm 242 */
					obj_t BgL_tmpz00_2442;

					if (INTEGERP(BgL_newzd2lenzd2_1900))
						{	/* Ieee/vector.scm 242 */
							BgL_tmpz00_2442 = BgL_newzd2lenzd2_1900;
						}
					else
						{
							obj_t BgL_auxz00_2445;

							BgL_auxz00_2445 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(11025L),
								BGl_string1733z00zz__r4_vectors_6_8z00,
								BGl_string1717z00zz__r4_vectors_6_8z00, BgL_newzd2lenzd2_1900);
							FAILURE(BgL_auxz00_2445, BFALSE, BFALSE);
						}
					BgL_auxz00_2441 = (long) CINT(BgL_tmpz00_2442);
				}
				if (VECTORP(BgL_oldzd2veczd2_1899))
					{	/* Ieee/vector.scm 242 */
						BgL_auxz00_2434 = BgL_oldzd2veczd2_1899;
					}
				else
					{
						obj_t BgL_auxz00_2437;

						BgL_auxz00_2437 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(11025L),
							BGl_string1733z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_1899);
						FAILURE(BgL_auxz00_2437, BFALSE, BFALSE);
					}
				return
					BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(BgL_auxz00_2434,
					BgL_auxz00_2441);
			}
		}

	}



/* vector-copy3 */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2copy3zd2zz__r4_vectors_6_8z00(obj_t
		BgL_oldzd2veczd2_33, obj_t BgL_startz00_34, obj_t BgL_stopz00_35)
	{
		{	/* Ieee/vector.scm 261 */
			{	/* Ieee/vector.scm 262 */
				long BgL_newzd2lenzd2_809;

				BgL_newzd2lenzd2_809 =
					((long) CINT(BgL_stopz00_35) - (long) CINT(BgL_startz00_34));
				{	/* Ieee/vector.scm 263 */
					obj_t BgL_newzd2veczd2_810;

					BgL_newzd2veczd2_810 = make_vector(BgL_newzd2lenzd2_809, BUNSPEC);
					{	/* Ieee/vector.scm 265 */

						{	/* Ieee/vector.scm 268 */
							bool_t BgL_test1860z00_2455;

							if ((BgL_newzd2lenzd2_809 < 0L))
								{	/* Ieee/vector.scm 268 */
									BgL_test1860z00_2455 = ((bool_t) 1);
								}
							else
								{	/* Ieee/vector.scm 268 */
									if (
										((long) CINT(BgL_startz00_34) >
											VECTOR_LENGTH(BgL_oldzd2veczd2_33)))
										{	/* Ieee/vector.scm 268 */
											BgL_test1860z00_2455 = ((bool_t) 1);
										}
									else
										{	/* Ieee/vector.scm 268 */
											BgL_test1860z00_2455 =
												(
												(long) CINT(BgL_stopz00_35) >
												VECTOR_LENGTH(BgL_oldzd2veczd2_33));
								}}
							if (BgL_test1860z00_2455)
								{	/* Ieee/vector.scm 269 */
									obj_t BgL_arg1129z00_815;

									BgL_arg1129z00_815 =
										MAKE_YOUNG_PAIR(BgL_startz00_34, BgL_stopz00_35);
									return
										BGl_errorz00zz__errorz00
										(BGl_string1734z00zz__r4_vectors_6_8z00,
										BGl_string1735z00zz__r4_vectors_6_8z00, BgL_arg1129z00_815);
								}
							else
								{	/* Ieee/vector.scm 272 */
									long BgL_auxz00_2469;
									long BgL_tmpz00_2467;

									BgL_auxz00_2469 =
										(
										(long) CINT(BgL_stopz00_35) - (long) CINT(BgL_startz00_34));
									BgL_tmpz00_2467 = (long) CINT(BgL_startz00_34);
									return
										BGL_VECTOR_BLIT_NO_OVERLAP(BgL_newzd2veczd2_810,
										BgL_oldzd2veczd2_33, 0L, BgL_tmpz00_2467, BgL_auxz00_2469);
								}
						}
					}
				}
			}
		}

	}



/* &vector-copy3 */
	obj_t BGl_z62vectorzd2copy3zb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1901,
		obj_t BgL_oldzd2veczd2_1902, obj_t BgL_startz00_1903,
		obj_t BgL_stopz00_1904)
	{
		{	/* Ieee/vector.scm 261 */
			{	/* Ieee/vector.scm 262 */
				obj_t BgL_auxz00_2474;

				if (VECTORP(BgL_oldzd2veczd2_1902))
					{	/* Ieee/vector.scm 262 */
						BgL_auxz00_2474 = BgL_oldzd2veczd2_1902;
					}
				else
					{
						obj_t BgL_auxz00_2477;

						BgL_auxz00_2477 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(11707L),
							BGl_string1736z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_1902);
						FAILURE(BgL_auxz00_2477, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2copy3zd2zz__r4_vectors_6_8z00(BgL_auxz00_2474,
					BgL_startz00_1903, BgL_stopz00_1904);
			}
		}

	}



/* vector-copy */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2copyzd2zz__r4_vectors_6_8z00(obj_t
		BgL_oldzd2veczd2_36, obj_t BgL_argsz00_37)
	{
		{	/* Ieee/vector.scm 285 */
			{	/* Ieee/vector.scm 286 */
				obj_t BgL_startz00_822;

				if (PAIRP(BgL_argsz00_37))
					{	/* Ieee/vector.scm 287 */
						if (INTEGERP(CAR(BgL_argsz00_37)))
							{	/* Ieee/vector.scm 288 */
								BgL_startz00_822 = CAR(BgL_argsz00_37);
							}
						else
							{	/* Ieee/vector.scm 288 */
								BgL_startz00_822 =
									BGl_errorz00zz__errorz00
									(BGl_string1734z00zz__r4_vectors_6_8z00,
									BGl_string1737z00zz__r4_vectors_6_8z00, CAR(BgL_argsz00_37));
							}
					}
				else
					{	/* Ieee/vector.scm 287 */
						BgL_startz00_822 = BINT(0L);
					}
				{	/* Ieee/vector.scm 287 */
					obj_t BgL_stopz00_823;

					{	/* Ieee/vector.scm 292 */
						bool_t BgL_test1866z00_2491;

						if (PAIRP(BgL_argsz00_37))
							{	/* Ieee/vector.scm 292 */
								obj_t BgL_tmpz00_2494;

								BgL_tmpz00_2494 = CDR(BgL_argsz00_37);
								BgL_test1866z00_2491 = PAIRP(BgL_tmpz00_2494);
							}
						else
							{	/* Ieee/vector.scm 292 */
								BgL_test1866z00_2491 = ((bool_t) 0);
							}
						if (BgL_test1866z00_2491)
							{	/* Ieee/vector.scm 293 */
								bool_t BgL_test1868z00_2497;

								{	/* Ieee/vector.scm 293 */
									bool_t BgL_test1869z00_2498;

									{	/* Ieee/vector.scm 293 */
										obj_t BgL_tmpz00_2499;

										BgL_tmpz00_2499 = CDR(CDR(BgL_argsz00_37));
										BgL_test1869z00_2498 = PAIRP(BgL_tmpz00_2499);
									}
									if (BgL_test1869z00_2498)
										{	/* Ieee/vector.scm 293 */
											BgL_test1868z00_2497 = ((bool_t) 1);
										}
									else
										{	/* Ieee/vector.scm 293 */
											if (INTEGERP(CAR(CDR(BgL_argsz00_37))))
												{	/* Ieee/vector.scm 294 */
													BgL_test1868z00_2497 = ((bool_t) 0);
												}
											else
												{	/* Ieee/vector.scm 294 */
													BgL_test1868z00_2497 = ((bool_t) 1);
												}
										}
								}
								if (BgL_test1868z00_2497)
									{	/* Ieee/vector.scm 293 */
										BgL_stopz00_823 =
											BGl_errorz00zz__errorz00
											(BGl_string1734z00zz__r4_vectors_6_8z00,
											BGl_string1737z00zz__r4_vectors_6_8z00,
											CDR(BgL_argsz00_37));
									}
								else
									{	/* Ieee/vector.scm 293 */
										BgL_stopz00_823 = CAR(CDR(BgL_argsz00_37));
									}
							}
						else
							{	/* Ieee/vector.scm 292 */
								BgL_stopz00_823 = BINT(VECTOR_LENGTH(BgL_oldzd2veczd2_36));
							}
					}
					{	/* Ieee/vector.scm 292 */

						return
							BGl_vectorzd2copy3zd2zz__r4_vectors_6_8z00(BgL_oldzd2veczd2_36,
							BgL_startz00_822, BgL_stopz00_823);
					}
				}
			}
		}

	}



/* &vector-copy */
	obj_t BGl_z62vectorzd2copyzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1905,
		obj_t BgL_oldzd2veczd2_1906, obj_t BgL_argsz00_1907)
	{
		{	/* Ieee/vector.scm 285 */
			{	/* Ieee/vector.scm 286 */
				obj_t BgL_auxz00_2514;

				if (VECTORP(BgL_oldzd2veczd2_1906))
					{	/* Ieee/vector.scm 286 */
						BgL_auxz00_2514 = BgL_oldzd2veczd2_1906;
					}
				else
					{
						obj_t BgL_auxz00_2517;

						BgL_auxz00_2517 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(12588L),
							BGl_string1738z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_1906);
						FAILURE(BgL_auxz00_2517, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2copyzd2zz__r4_vectors_6_8z00(BgL_auxz00_2514,
					BgL_argsz00_1907);
			}
		}

	}



/* _vector-copy! */
	obj_t BGl__vectorzd2copyz12zc0zz__r4_vectors_6_8z00(obj_t BgL_env1058z00_44,
		obj_t BgL_opt1057z00_43)
	{
		{	/* Ieee/vector.scm 303 */
			{	/* Ieee/vector.scm 303 */
				obj_t BgL_g1059z00_846;
				obj_t BgL_g1060z00_847;
				obj_t BgL_sourcez00_848;

				{
					obj_t BgL_auxz00_2522;

					if (VECTORP(BgL_opt1057z00_43))
						{	/* Ieee/vector.scm 303 */
							BgL_auxz00_2522 = BgL_opt1057z00_43;
						}
					else
						{
							obj_t BgL_auxz00_2525;

							BgL_auxz00_2525 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
								BGl_string1739z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43);
							FAILURE(BgL_auxz00_2525, BFALSE, BFALSE);
						}
					BgL_g1059z00_846 = VECTOR_REF(BgL_auxz00_2522, 0L);
				}
				{
					obj_t BgL_auxz00_2530;

					if (VECTORP(BgL_opt1057z00_43))
						{	/* Ieee/vector.scm 303 */
							BgL_auxz00_2530 = BgL_opt1057z00_43;
						}
					else
						{
							obj_t BgL_auxz00_2533;

							BgL_auxz00_2533 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
								BGl_string1739z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43);
							FAILURE(BgL_auxz00_2533, BFALSE, BFALSE);
						}
					BgL_g1060z00_847 = VECTOR_REF(BgL_auxz00_2530, 1L);
				}
				{
					obj_t BgL_auxz00_2538;

					if (VECTORP(BgL_opt1057z00_43))
						{	/* Ieee/vector.scm 303 */
							BgL_auxz00_2538 = BgL_opt1057z00_43;
						}
					else
						{
							obj_t BgL_auxz00_2541;

							BgL_auxz00_2541 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
								BGl_string1739z00zz__r4_vectors_6_8z00,
								BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43);
							FAILURE(BgL_auxz00_2541, BFALSE, BFALSE);
						}
					BgL_sourcez00_848 = VECTOR_REF(BgL_auxz00_2538, 2L);
				}
				{	/* Ieee/vector.scm 303 */
					long BgL_aux1062z00_850;

					{
						obj_t BgL_auxz00_2546;

						if (VECTORP(BgL_opt1057z00_43))
							{	/* Ieee/vector.scm 303 */
								BgL_auxz00_2546 = BgL_opt1057z00_43;
							}
						else
							{
								obj_t BgL_auxz00_2549;

								BgL_auxz00_2549 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
									BGl_string1739z00zz__r4_vectors_6_8z00,
									BGl_string1716z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43);
								FAILURE(BgL_auxz00_2549, BFALSE, BFALSE);
							}
						BgL_aux1062z00_850 = VECTOR_LENGTH(BgL_auxz00_2546);
					}
					switch (BgL_aux1062z00_850)
						{
						case 3L:

							{	/* Ieee/vector.scm 304 */
								long BgL_sendz00_852;

								{	/* Ieee/vector.scm 304 */
									obj_t BgL_vectorz00_1430;

									if (VECTORP(BgL_sourcez00_848))
										{	/* Ieee/vector.scm 304 */
											BgL_vectorz00_1430 = BgL_sourcez00_848;
										}
									else
										{
											obj_t BgL_auxz00_2556;

											BgL_auxz00_2556 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13335L),
												BGl_string1739z00zz__r4_vectors_6_8z00,
												BGl_string1716z00zz__r4_vectors_6_8z00,
												BgL_sourcez00_848);
											FAILURE(BgL_auxz00_2556, BFALSE, BFALSE);
										}
									BgL_sendz00_852 = VECTOR_LENGTH(BgL_vectorz00_1430);
								}
								{	/* Ieee/vector.scm 303 */

									{	/* Ieee/vector.scm 303 */
										obj_t BgL_targetz00_1431;
										long BgL_tstartz00_1432;

										if (VECTORP(BgL_g1059z00_846))
											{	/* Ieee/vector.scm 303 */
												BgL_targetz00_1431 = BgL_g1059z00_846;
											}
										else
											{
												obj_t BgL_auxz00_2563;

												BgL_auxz00_2563 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
													BGl_string1739z00zz__r4_vectors_6_8z00,
													BGl_string1716z00zz__r4_vectors_6_8z00,
													BgL_g1059z00_846);
												FAILURE(BgL_auxz00_2563, BFALSE, BFALSE);
											}
										{	/* Ieee/vector.scm 303 */
											obj_t BgL_tmpz00_2567;

											if (INTEGERP(BgL_g1060z00_847))
												{	/* Ieee/vector.scm 303 */
													BgL_tmpz00_2567 = BgL_g1060z00_847;
												}
											else
												{
													obj_t BgL_auxz00_2570;

													BgL_auxz00_2570 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string1714z00zz__r4_vectors_6_8z00,
														BINT(13245L),
														BGl_string1739z00zz__r4_vectors_6_8z00,
														BGl_string1717z00zz__r4_vectors_6_8z00,
														BgL_g1060z00_847);
													FAILURE(BgL_auxz00_2570, BFALSE, BFALSE);
												}
											BgL_tstartz00_1432 = (long) CINT(BgL_tmpz00_2567);
										}
										{	/* Ieee/vector.scm 305 */
											long BgL_endz00_1433;

											{	/* Ieee/vector.scm 305 */
												long BgL_bz00_1435;

												{	/* Ieee/vector.scm 305 */
													obj_t BgL_vectorz00_1444;

													if (VECTORP(BgL_sourcez00_848))
														{	/* Ieee/vector.scm 305 */
															BgL_vectorz00_1444 = BgL_sourcez00_848;
														}
													else
														{
															obj_t BgL_auxz00_2577;

															BgL_auxz00_2577 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string1714z00zz__r4_vectors_6_8z00,
																BINT(13387L),
																BGl_string1739z00zz__r4_vectors_6_8z00,
																BGl_string1716z00zz__r4_vectors_6_8z00,
																BgL_sourcez00_848);
															FAILURE(BgL_auxz00_2577, BFALSE, BFALSE);
														}
													BgL_bz00_1435 = VECTOR_LENGTH(BgL_vectorz00_1444);
												}
												if ((BgL_sendz00_852 < BgL_bz00_1435))
													{	/* Ieee/vector.scm 305 */
														BgL_endz00_1433 = BgL_sendz00_852;
													}
												else
													{	/* Ieee/vector.scm 305 */
														BgL_endz00_1433 = BgL_bz00_1435;
													}
											}
											{	/* Ieee/vector.scm 305 */
												long BgL_countz00_1437;

												BgL_countz00_1437 = (BgL_endz00_1433 - 0L);
												{	/* Ieee/vector.scm 306 */
													long BgL_tendz00_1438;

													{	/* Ieee/vector.scm 307 */
														long BgL_az00_1439;

														BgL_az00_1439 =
															(BgL_tstartz00_1432 + BgL_countz00_1437);
														if (
															(BgL_az00_1439 <
																VECTOR_LENGTH(BgL_targetz00_1431)))
															{	/* Ieee/vector.scm 307 */
																BgL_tendz00_1438 = BgL_az00_1439;
															}
														else
															{	/* Ieee/vector.scm 307 */
																BgL_tendz00_1438 =
																	VECTOR_LENGTH(BgL_targetz00_1431);
															}
													}
													{	/* Ieee/vector.scm 307 */

														if ((BgL_targetz00_1431 == BgL_sourcez00_848))
															{	/* Ieee/vector.scm 311 */
																long BgL_arg1160z00_1442;

																BgL_arg1160z00_1442 =
																	(BgL_tendz00_1438 - BgL_tstartz00_1432);
																{	/* Ieee/vector.scm 311 */
																	obj_t BgL_tmpz00_2593;

																	if (VECTORP(BgL_sourcez00_848))
																		{	/* Ieee/vector.scm 311 */
																			BgL_tmpz00_2593 = BgL_sourcez00_848;
																		}
																	else
																		{
																			obj_t BgL_auxz00_2596;

																			BgL_auxz00_2596 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string1714z00zz__r4_vectors_6_8z00,
																				BINT(13595L),
																				BGl_string1739z00zz__r4_vectors_6_8z00,
																				BGl_string1716z00zz__r4_vectors_6_8z00,
																				BgL_sourcez00_848);
																			FAILURE(BgL_auxz00_2596, BFALSE, BFALSE);
																		}
																	return
																		BGL_VECTOR_BLIT_OVERLAP(BgL_targetz00_1431,
																		BgL_tmpz00_2593, BgL_tstartz00_1432, 0L,
																		BgL_arg1160z00_1442);
																}
															}
														else
															{	/* Ieee/vector.scm 312 */
																long BgL_arg1162z00_1443;

																BgL_arg1162z00_1443 =
																	(BgL_tendz00_1438 - BgL_tstartz00_1432);
																{	/* Ieee/vector.scm 312 */
																	obj_t BgL_tmpz00_2602;

																	if (VECTORP(BgL_sourcez00_848))
																		{	/* Ieee/vector.scm 312 */
																			BgL_tmpz00_2602 = BgL_sourcez00_848;
																		}
																	else
																		{
																			obj_t BgL_auxz00_2605;

																			BgL_auxz00_2605 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string1714z00zz__r4_vectors_6_8z00,
																				BINT(13675L),
																				BGl_string1739z00zz__r4_vectors_6_8z00,
																				BGl_string1716z00zz__r4_vectors_6_8z00,
																				BgL_sourcez00_848);
																			FAILURE(BgL_auxz00_2605, BFALSE, BFALSE);
																		}
																	return
																		BGL_VECTOR_BLIT_NO_OVERLAP
																		(BgL_targetz00_1431, BgL_tmpz00_2602,
																		BgL_tstartz00_1432, 0L,
																		BgL_arg1162z00_1443);
																}
															}
													}
												}
											}
										}
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/vector.scm 303 */
								obj_t BgL_sstartz00_853;

								{
									obj_t BgL_auxz00_2610;

									if (VECTORP(BgL_opt1057z00_43))
										{	/* Ieee/vector.scm 303 */
											BgL_auxz00_2610 = BgL_opt1057z00_43;
										}
									else
										{
											obj_t BgL_auxz00_2613;

											BgL_auxz00_2613 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
												BGl_string1739z00zz__r4_vectors_6_8z00,
												BGl_string1716z00zz__r4_vectors_6_8z00,
												BgL_opt1057z00_43);
											FAILURE(BgL_auxz00_2613, BFALSE, BFALSE);
										}
									BgL_sstartz00_853 = VECTOR_REF(BgL_auxz00_2610, 3L);
								}
								{	/* Ieee/vector.scm 304 */
									long BgL_sendz00_854;

									{	/* Ieee/vector.scm 304 */
										obj_t BgL_vectorz00_1458;

										if (VECTORP(BgL_sourcez00_848))
											{	/* Ieee/vector.scm 304 */
												BgL_vectorz00_1458 = BgL_sourcez00_848;
											}
										else
											{
												obj_t BgL_auxz00_2620;

												BgL_auxz00_2620 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13335L),
													BGl_string1739z00zz__r4_vectors_6_8z00,
													BGl_string1716z00zz__r4_vectors_6_8z00,
													BgL_sourcez00_848);
												FAILURE(BgL_auxz00_2620, BFALSE, BFALSE);
											}
										BgL_sendz00_854 = VECTOR_LENGTH(BgL_vectorz00_1458);
									}
									{	/* Ieee/vector.scm 303 */

										{	/* Ieee/vector.scm 303 */
											obj_t BgL_targetz00_1459;
											long BgL_tstartz00_1460;

											if (VECTORP(BgL_g1059z00_846))
												{	/* Ieee/vector.scm 303 */
													BgL_targetz00_1459 = BgL_g1059z00_846;
												}
											else
												{
													obj_t BgL_auxz00_2627;

													BgL_auxz00_2627 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string1714z00zz__r4_vectors_6_8z00,
														BINT(13245L),
														BGl_string1739z00zz__r4_vectors_6_8z00,
														BGl_string1716z00zz__r4_vectors_6_8z00,
														BgL_g1059z00_846);
													FAILURE(BgL_auxz00_2627, BFALSE, BFALSE);
												}
											{	/* Ieee/vector.scm 303 */
												obj_t BgL_tmpz00_2631;

												if (INTEGERP(BgL_g1060z00_847))
													{	/* Ieee/vector.scm 303 */
														BgL_tmpz00_2631 = BgL_g1060z00_847;
													}
												else
													{
														obj_t BgL_auxz00_2634;

														BgL_auxz00_2634 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1714z00zz__r4_vectors_6_8z00,
															BINT(13245L),
															BGl_string1739z00zz__r4_vectors_6_8z00,
															BGl_string1717z00zz__r4_vectors_6_8z00,
															BgL_g1060z00_847);
														FAILURE(BgL_auxz00_2634, BFALSE, BFALSE);
													}
												BgL_tstartz00_1460 = (long) CINT(BgL_tmpz00_2631);
											}
											{	/* Ieee/vector.scm 305 */
												long BgL_endz00_1461;

												{	/* Ieee/vector.scm 305 */
													long BgL_bz00_1463;

													{	/* Ieee/vector.scm 305 */
														obj_t BgL_vectorz00_1472;

														if (VECTORP(BgL_sourcez00_848))
															{	/* Ieee/vector.scm 305 */
																BgL_vectorz00_1472 = BgL_sourcez00_848;
															}
														else
															{
																obj_t BgL_auxz00_2641;

																BgL_auxz00_2641 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string1714z00zz__r4_vectors_6_8z00,
																	BINT(13387L),
																	BGl_string1739z00zz__r4_vectors_6_8z00,
																	BGl_string1716z00zz__r4_vectors_6_8z00,
																	BgL_sourcez00_848);
																FAILURE(BgL_auxz00_2641, BFALSE, BFALSE);
															}
														BgL_bz00_1463 = VECTOR_LENGTH(BgL_vectorz00_1472);
													}
													if ((BgL_sendz00_854 < BgL_bz00_1463))
														{	/* Ieee/vector.scm 305 */
															BgL_endz00_1461 = BgL_sendz00_854;
														}
													else
														{	/* Ieee/vector.scm 305 */
															BgL_endz00_1461 = BgL_bz00_1463;
														}
												}
												{	/* Ieee/vector.scm 305 */
													long BgL_countz00_1465;

													{	/* Ieee/vector.scm 306 */
														long BgL_za72za7_1476;

														{	/* Ieee/vector.scm 306 */
															obj_t BgL_tmpz00_2648;

															if (INTEGERP(BgL_sstartz00_853))
																{	/* Ieee/vector.scm 306 */
																	BgL_tmpz00_2648 = BgL_sstartz00_853;
																}
															else
																{
																	obj_t BgL_auxz00_2651;

																	BgL_auxz00_2651 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string1714z00zz__r4_vectors_6_8z00,
																		BINT(13423L),
																		BGl_string1739z00zz__r4_vectors_6_8z00,
																		BGl_string1717z00zz__r4_vectors_6_8z00,
																		BgL_sstartz00_853);
																	FAILURE(BgL_auxz00_2651, BFALSE, BFALSE);
																}
															BgL_za72za7_1476 = (long) CINT(BgL_tmpz00_2648);
														}
														BgL_countz00_1465 =
															(BgL_endz00_1461 - BgL_za72za7_1476);
													}
													{	/* Ieee/vector.scm 306 */
														long BgL_tendz00_1466;

														{	/* Ieee/vector.scm 307 */
															long BgL_az00_1467;

															BgL_az00_1467 =
																(BgL_tstartz00_1460 + BgL_countz00_1465);
															if (
																(BgL_az00_1467 <
																	VECTOR_LENGTH(BgL_targetz00_1459)))
																{	/* Ieee/vector.scm 307 */
																	BgL_tendz00_1466 = BgL_az00_1467;
																}
															else
																{	/* Ieee/vector.scm 307 */
																	BgL_tendz00_1466 =
																		VECTOR_LENGTH(BgL_targetz00_1459);
																}
														}
														{	/* Ieee/vector.scm 307 */

															if ((BgL_targetz00_1459 == BgL_sourcez00_848))
																{	/* Ieee/vector.scm 311 */
																	long BgL_arg1160z00_1470;

																	BgL_arg1160z00_1470 =
																		(BgL_tendz00_1466 - BgL_tstartz00_1460);
																	{	/* Ieee/vector.scm 311 */
																		long BgL_auxz00_2672;
																		obj_t BgL_tmpz00_2665;

																		{	/* Ieee/vector.scm 311 */
																			obj_t BgL_tmpz00_2673;

																			if (INTEGERP(BgL_sstartz00_853))
																				{	/* Ieee/vector.scm 311 */
																					BgL_tmpz00_2673 = BgL_sstartz00_853;
																				}
																			else
																				{
																					obj_t BgL_auxz00_2676;

																					BgL_auxz00_2676 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string1714z00zz__r4_vectors_6_8z00,
																						BINT(13609L),
																						BGl_string1739z00zz__r4_vectors_6_8z00,
																						BGl_string1717z00zz__r4_vectors_6_8z00,
																						BgL_sstartz00_853);
																					FAILURE(BgL_auxz00_2676, BFALSE,
																						BFALSE);
																				}
																			BgL_auxz00_2672 =
																				(long) CINT(BgL_tmpz00_2673);
																		}
																		if (VECTORP(BgL_sourcez00_848))
																			{	/* Ieee/vector.scm 311 */
																				BgL_tmpz00_2665 = BgL_sourcez00_848;
																			}
																		else
																			{
																				obj_t BgL_auxz00_2668;

																				BgL_auxz00_2668 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string1714z00zz__r4_vectors_6_8z00,
																					BINT(13595L),
																					BGl_string1739z00zz__r4_vectors_6_8z00,
																					BGl_string1716z00zz__r4_vectors_6_8z00,
																					BgL_sourcez00_848);
																				FAILURE(BgL_auxz00_2668, BFALSE,
																					BFALSE);
																			}
																		return
																			BGL_VECTOR_BLIT_OVERLAP
																			(BgL_targetz00_1459, BgL_tmpz00_2665,
																			BgL_tstartz00_1460, BgL_auxz00_2672,
																			BgL_arg1160z00_1470);
																	}
																}
															else
																{	/* Ieee/vector.scm 312 */
																	long BgL_arg1162z00_1471;

																	BgL_arg1162z00_1471 =
																		(BgL_tendz00_1466 - BgL_tstartz00_1460);
																	{	/* Ieee/vector.scm 312 */
																		long BgL_auxz00_2690;
																		obj_t BgL_tmpz00_2683;

																		{	/* Ieee/vector.scm 312 */
																			obj_t BgL_tmpz00_2691;

																			if (INTEGERP(BgL_sstartz00_853))
																				{	/* Ieee/vector.scm 312 */
																					BgL_tmpz00_2691 = BgL_sstartz00_853;
																				}
																			else
																				{
																					obj_t BgL_auxz00_2694;

																					BgL_auxz00_2694 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string1714z00zz__r4_vectors_6_8z00,
																						BINT(13689L),
																						BGl_string1739z00zz__r4_vectors_6_8z00,
																						BGl_string1717z00zz__r4_vectors_6_8z00,
																						BgL_sstartz00_853);
																					FAILURE(BgL_auxz00_2694, BFALSE,
																						BFALSE);
																				}
																			BgL_auxz00_2690 =
																				(long) CINT(BgL_tmpz00_2691);
																		}
																		if (VECTORP(BgL_sourcez00_848))
																			{	/* Ieee/vector.scm 312 */
																				BgL_tmpz00_2683 = BgL_sourcez00_848;
																			}
																		else
																			{
																				obj_t BgL_auxz00_2686;

																				BgL_auxz00_2686 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string1714z00zz__r4_vectors_6_8z00,
																					BINT(13675L),
																					BGl_string1739z00zz__r4_vectors_6_8z00,
																					BGl_string1716z00zz__r4_vectors_6_8z00,
																					BgL_sourcez00_848);
																				FAILURE(BgL_auxz00_2686, BFALSE,
																					BFALSE);
																			}
																		return
																			BGL_VECTOR_BLIT_NO_OVERLAP
																			(BgL_targetz00_1459, BgL_tmpz00_2683,
																			BgL_tstartz00_1460, BgL_auxz00_2690,
																			BgL_arg1162z00_1471);
																	}
																}
														}
													}
												}
											}
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/vector.scm 303 */
								obj_t BgL_sstartz00_855;

								{
									obj_t BgL_auxz00_2700;

									if (VECTORP(BgL_opt1057z00_43))
										{	/* Ieee/vector.scm 303 */
											BgL_auxz00_2700 = BgL_opt1057z00_43;
										}
									else
										{
											obj_t BgL_auxz00_2703;

											BgL_auxz00_2703 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
												BGl_string1739z00zz__r4_vectors_6_8z00,
												BGl_string1716z00zz__r4_vectors_6_8z00,
												BgL_opt1057z00_43);
											FAILURE(BgL_auxz00_2703, BFALSE, BFALSE);
										}
									BgL_sstartz00_855 = VECTOR_REF(BgL_auxz00_2700, 3L);
								}
								{	/* Ieee/vector.scm 303 */
									obj_t BgL_sendz00_856;

									{
										obj_t BgL_auxz00_2708;

										if (VECTORP(BgL_opt1057z00_43))
											{	/* Ieee/vector.scm 303 */
												BgL_auxz00_2708 = BgL_opt1057z00_43;
											}
										else
											{
												obj_t BgL_auxz00_2711;

												BgL_auxz00_2711 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(13245L),
													BGl_string1739z00zz__r4_vectors_6_8z00,
													BGl_string1716z00zz__r4_vectors_6_8z00,
													BgL_opt1057z00_43);
												FAILURE(BgL_auxz00_2711, BFALSE, BFALSE);
											}
										BgL_sendz00_856 = VECTOR_REF(BgL_auxz00_2708, 4L);
									}
									{	/* Ieee/vector.scm 303 */

										{	/* Ieee/vector.scm 303 */
											obj_t BgL_targetz00_1486;
											long BgL_tstartz00_1487;

											if (VECTORP(BgL_g1059z00_846))
												{	/* Ieee/vector.scm 303 */
													BgL_targetz00_1486 = BgL_g1059z00_846;
												}
											else
												{
													obj_t BgL_auxz00_2718;

													BgL_auxz00_2718 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string1714z00zz__r4_vectors_6_8z00,
														BINT(13245L),
														BGl_string1739z00zz__r4_vectors_6_8z00,
														BGl_string1716z00zz__r4_vectors_6_8z00,
														BgL_g1059z00_846);
													FAILURE(BgL_auxz00_2718, BFALSE, BFALSE);
												}
											{	/* Ieee/vector.scm 303 */
												obj_t BgL_tmpz00_2722;

												if (INTEGERP(BgL_g1060z00_847))
													{	/* Ieee/vector.scm 303 */
														BgL_tmpz00_2722 = BgL_g1060z00_847;
													}
												else
													{
														obj_t BgL_auxz00_2725;

														BgL_auxz00_2725 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1714z00zz__r4_vectors_6_8z00,
															BINT(13245L),
															BGl_string1739z00zz__r4_vectors_6_8z00,
															BGl_string1717z00zz__r4_vectors_6_8z00,
															BgL_g1060z00_847);
														FAILURE(BgL_auxz00_2725, BFALSE, BFALSE);
													}
												BgL_tstartz00_1487 = (long) CINT(BgL_tmpz00_2722);
											}
											{	/* Ieee/vector.scm 305 */
												obj_t BgL_endz00_1488;

												{	/* Ieee/vector.scm 305 */
													long BgL_bz00_1490;

													{	/* Ieee/vector.scm 305 */
														obj_t BgL_vectorz00_1499;

														if (VECTORP(BgL_sourcez00_848))
															{	/* Ieee/vector.scm 305 */
																BgL_vectorz00_1499 = BgL_sourcez00_848;
															}
														else
															{
																obj_t BgL_auxz00_2732;

																BgL_auxz00_2732 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string1714z00zz__r4_vectors_6_8z00,
																	BINT(13387L),
																	BGl_string1739z00zz__r4_vectors_6_8z00,
																	BGl_string1716z00zz__r4_vectors_6_8z00,
																	BgL_sourcez00_848);
																FAILURE(BgL_auxz00_2732, BFALSE, BFALSE);
															}
														BgL_bz00_1490 = VECTOR_LENGTH(BgL_vectorz00_1499);
													}
													{	/* Ieee/vector.scm 305 */
														bool_t BgL_test1903z00_2737;

														{	/* Ieee/vector.scm 305 */
															long BgL_n1z00_1500;

															{	/* Ieee/vector.scm 305 */
																obj_t BgL_tmpz00_2738;

																if (INTEGERP(BgL_sendz00_856))
																	{	/* Ieee/vector.scm 305 */
																		BgL_tmpz00_2738 = BgL_sendz00_856;
																	}
																else
																	{
																		obj_t BgL_auxz00_2741;

																		BgL_auxz00_2741 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string1714z00zz__r4_vectors_6_8z00,
																			BINT(13372L),
																			BGl_string1739z00zz__r4_vectors_6_8z00,
																			BGl_string1717z00zz__r4_vectors_6_8z00,
																			BgL_sendz00_856);
																		FAILURE(BgL_auxz00_2741, BFALSE, BFALSE);
																	}
																BgL_n1z00_1500 = (long) CINT(BgL_tmpz00_2738);
															}
															BgL_test1903z00_2737 =
																(BgL_n1z00_1500 < BgL_bz00_1490);
														}
														if (BgL_test1903z00_2737)
															{	/* Ieee/vector.scm 305 */
																BgL_endz00_1488 = BgL_sendz00_856;
															}
														else
															{	/* Ieee/vector.scm 305 */
																BgL_endz00_1488 = BINT(BgL_bz00_1490);
															}
													}
												}
												{	/* Ieee/vector.scm 305 */
													long BgL_countz00_1492;

													{	/* Ieee/vector.scm 306 */
														long BgL_za71za7_1502;
														long BgL_za72za7_1503;

														{	/* Ieee/vector.scm 306 */
															obj_t BgL_tmpz00_2748;

															if (INTEGERP(BgL_endz00_1488))
																{	/* Ieee/vector.scm 306 */
																	BgL_tmpz00_2748 = BgL_endz00_1488;
																}
															else
																{
																	obj_t BgL_auxz00_2751;

																	BgL_auxz00_2751 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string1714z00zz__r4_vectors_6_8z00,
																		BINT(13419L),
																		BGl_string1739z00zz__r4_vectors_6_8z00,
																		BGl_string1717z00zz__r4_vectors_6_8z00,
																		BgL_endz00_1488);
																	FAILURE(BgL_auxz00_2751, BFALSE, BFALSE);
																}
															BgL_za71za7_1502 = (long) CINT(BgL_tmpz00_2748);
														}
														{	/* Ieee/vector.scm 306 */
															obj_t BgL_tmpz00_2756;

															if (INTEGERP(BgL_sstartz00_855))
																{	/* Ieee/vector.scm 306 */
																	BgL_tmpz00_2756 = BgL_sstartz00_855;
																}
															else
																{
																	obj_t BgL_auxz00_2759;

																	BgL_auxz00_2759 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string1714z00zz__r4_vectors_6_8z00,
																		BINT(13423L),
																		BGl_string1739z00zz__r4_vectors_6_8z00,
																		BGl_string1717z00zz__r4_vectors_6_8z00,
																		BgL_sstartz00_855);
																	FAILURE(BgL_auxz00_2759, BFALSE, BFALSE);
																}
															BgL_za72za7_1503 = (long) CINT(BgL_tmpz00_2756);
														}
														BgL_countz00_1492 =
															(BgL_za71za7_1502 - BgL_za72za7_1503);
													}
													{	/* Ieee/vector.scm 306 */
														long BgL_tendz00_1493;

														{	/* Ieee/vector.scm 307 */
															long BgL_az00_1494;

															BgL_az00_1494 =
																(BgL_tstartz00_1487 + BgL_countz00_1492);
															if (
																(BgL_az00_1494 <
																	VECTOR_LENGTH(BgL_targetz00_1486)))
																{	/* Ieee/vector.scm 307 */
																	BgL_tendz00_1493 = BgL_az00_1494;
																}
															else
																{	/* Ieee/vector.scm 307 */
																	BgL_tendz00_1493 =
																		VECTOR_LENGTH(BgL_targetz00_1486);
																}
														}
														{	/* Ieee/vector.scm 307 */

															if ((BgL_targetz00_1486 == BgL_sourcez00_848))
																{	/* Ieee/vector.scm 311 */
																	long BgL_arg1160z00_1497;

																	BgL_arg1160z00_1497 =
																		(BgL_tendz00_1493 - BgL_tstartz00_1487);
																	{	/* Ieee/vector.scm 311 */
																		long BgL_auxz00_2780;
																		obj_t BgL_tmpz00_2773;

																		{	/* Ieee/vector.scm 311 */
																			obj_t BgL_tmpz00_2781;

																			if (INTEGERP(BgL_sstartz00_855))
																				{	/* Ieee/vector.scm 311 */
																					BgL_tmpz00_2781 = BgL_sstartz00_855;
																				}
																			else
																				{
																					obj_t BgL_auxz00_2784;

																					BgL_auxz00_2784 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string1714z00zz__r4_vectors_6_8z00,
																						BINT(13609L),
																						BGl_string1739z00zz__r4_vectors_6_8z00,
																						BGl_string1717z00zz__r4_vectors_6_8z00,
																						BgL_sstartz00_855);
																					FAILURE(BgL_auxz00_2784, BFALSE,
																						BFALSE);
																				}
																			BgL_auxz00_2780 =
																				(long) CINT(BgL_tmpz00_2781);
																		}
																		if (VECTORP(BgL_sourcez00_848))
																			{	/* Ieee/vector.scm 311 */
																				BgL_tmpz00_2773 = BgL_sourcez00_848;
																			}
																		else
																			{
																				obj_t BgL_auxz00_2776;

																				BgL_auxz00_2776 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string1714z00zz__r4_vectors_6_8z00,
																					BINT(13595L),
																					BGl_string1739z00zz__r4_vectors_6_8z00,
																					BGl_string1716z00zz__r4_vectors_6_8z00,
																					BgL_sourcez00_848);
																				FAILURE(BgL_auxz00_2776, BFALSE,
																					BFALSE);
																			}
																		return
																			BGL_VECTOR_BLIT_OVERLAP
																			(BgL_targetz00_1486, BgL_tmpz00_2773,
																			BgL_tstartz00_1487, BgL_auxz00_2780,
																			BgL_arg1160z00_1497);
																	}
																}
															else
																{	/* Ieee/vector.scm 312 */
																	long BgL_arg1162z00_1498;

																	BgL_arg1162z00_1498 =
																		(BgL_tendz00_1493 - BgL_tstartz00_1487);
																	{	/* Ieee/vector.scm 312 */
																		long BgL_auxz00_2798;
																		obj_t BgL_tmpz00_2791;

																		{	/* Ieee/vector.scm 312 */
																			obj_t BgL_tmpz00_2799;

																			if (INTEGERP(BgL_sstartz00_855))
																				{	/* Ieee/vector.scm 312 */
																					BgL_tmpz00_2799 = BgL_sstartz00_855;
																				}
																			else
																				{
																					obj_t BgL_auxz00_2802;

																					BgL_auxz00_2802 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string1714z00zz__r4_vectors_6_8z00,
																						BINT(13689L),
																						BGl_string1739z00zz__r4_vectors_6_8z00,
																						BGl_string1717z00zz__r4_vectors_6_8z00,
																						BgL_sstartz00_855);
																					FAILURE(BgL_auxz00_2802, BFALSE,
																						BFALSE);
																				}
																			BgL_auxz00_2798 =
																				(long) CINT(BgL_tmpz00_2799);
																		}
																		if (VECTORP(BgL_sourcez00_848))
																			{	/* Ieee/vector.scm 312 */
																				BgL_tmpz00_2791 = BgL_sourcez00_848;
																			}
																		else
																			{
																				obj_t BgL_auxz00_2794;

																				BgL_auxz00_2794 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string1714z00zz__r4_vectors_6_8z00,
																					BINT(13675L),
																					BGl_string1739z00zz__r4_vectors_6_8z00,
																					BGl_string1716z00zz__r4_vectors_6_8z00,
																					BgL_sourcez00_848);
																				FAILURE(BgL_auxz00_2794, BFALSE,
																					BFALSE);
																			}
																		return
																			BGL_VECTOR_BLIT_NO_OVERLAP
																			(BgL_targetz00_1486, BgL_tmpz00_2791,
																			BgL_tstartz00_1487, BgL_auxz00_2798,
																			BgL_arg1162z00_1498);
																	}
																}
														}
													}
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(obj_t
		BgL_targetz00_38, long BgL_tstartz00_39, obj_t BgL_sourcez00_40,
		obj_t BgL_sstartz00_41, obj_t BgL_sendz00_42)
	{
		{	/* Ieee/vector.scm 303 */
			{	/* Ieee/vector.scm 305 */
				obj_t BgL_endz00_1513;

				if (
					((long) CINT(BgL_sendz00_42) <
						VECTOR_LENGTH(((obj_t) BgL_sourcez00_40))))
					{	/* Ieee/vector.scm 305 */
						BgL_endz00_1513 = BgL_sendz00_42;
					}
				else
					{	/* Ieee/vector.scm 305 */
						BgL_endz00_1513 = BINT(VECTOR_LENGTH(((obj_t) BgL_sourcez00_40)));
					}
				{	/* Ieee/vector.scm 305 */
					long BgL_countz00_1517;

					BgL_countz00_1517 =
						((long) CINT(BgL_endz00_1513) - (long) CINT(BgL_sstartz00_41));
					{	/* Ieee/vector.scm 306 */
						long BgL_tendz00_1518;

						{	/* Ieee/vector.scm 307 */
							long BgL_az00_1519;

							BgL_az00_1519 = (BgL_tstartz00_39 + BgL_countz00_1517);
							if ((BgL_az00_1519 < VECTOR_LENGTH(BgL_targetz00_38)))
								{	/* Ieee/vector.scm 307 */
									BgL_tendz00_1518 = BgL_az00_1519;
								}
							else
								{	/* Ieee/vector.scm 307 */
									BgL_tendz00_1518 = VECTOR_LENGTH(BgL_targetz00_38);
								}
						}
						{	/* Ieee/vector.scm 307 */

							if ((BgL_targetz00_38 == BgL_sourcez00_40))
								{	/* Ieee/vector.scm 311 */
									long BgL_auxz00_2829;
									long BgL_tmpz00_2827;

									BgL_auxz00_2829 = (BgL_tendz00_1518 - BgL_tstartz00_39);
									BgL_tmpz00_2827 = (long) CINT(BgL_sstartz00_41);
									return
										BGL_VECTOR_BLIT_OVERLAP(BgL_targetz00_38, BgL_sourcez00_40,
										BgL_tstartz00_39, BgL_tmpz00_2827, BgL_auxz00_2829);
								}
							else
								{	/* Ieee/vector.scm 312 */
									long BgL_auxz00_2834;
									long BgL_tmpz00_2832;

									BgL_auxz00_2834 = (BgL_tendz00_1518 - BgL_tstartz00_39);
									BgL_tmpz00_2832 = (long) CINT(BgL_sstartz00_41);
									return
										BGL_VECTOR_BLIT_NO_OVERLAP(BgL_targetz00_38,
										BgL_sourcez00_40, BgL_tstartz00_39, BgL_tmpz00_2832,
										BgL_auxz00_2834);
								}
						}
					}
				}
			}
		}

	}



/* vector-append */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2appendzd2zz__r4_vectors_6_8z00(obj_t
		BgL_vecz00_45, obj_t BgL_argsz00_46)
	{
		{	/* Ieee/vector.scm 331 */
			{
				long BgL_lenz00_870;
				obj_t BgL_vectsz00_871;

				BgL_lenz00_870 = VECTOR_LENGTH(BgL_vecz00_45);
				BgL_vectsz00_871 = BgL_argsz00_46;
			BgL_zc3z04anonymousza31165ze3z87_872:
				if (NULLP(BgL_vectsz00_871))
					{	/* Ieee/vector.scm 335 */
						obj_t BgL_resz00_874;

						BgL_resz00_874 = make_vector(BgL_lenz00_870, BUNSPEC);
						{	/* Ieee/vector.scm 112 */

							{	/* Ieee/vector.scm 305 */
								long BgL_endz00_1543;

								if (
									(VECTOR_LENGTH(BgL_vecz00_45) < VECTOR_LENGTH(BgL_vecz00_45)))
									{	/* Ieee/vector.scm 305 */
										BgL_endz00_1543 = VECTOR_LENGTH(BgL_vecz00_45);
									}
								else
									{	/* Ieee/vector.scm 305 */
										BgL_endz00_1543 = VECTOR_LENGTH(BgL_vecz00_45);
									}
								{	/* Ieee/vector.scm 305 */
									long BgL_countz00_1547;

									BgL_countz00_1547 = (BgL_endz00_1543 - 0L);
									{	/* Ieee/vector.scm 306 */
										long BgL_tendz00_1548;

										{	/* Ieee/vector.scm 307 */
											long BgL_az00_1549;

											BgL_az00_1549 = (0L + BgL_countz00_1547);
											if ((BgL_az00_1549 < VECTOR_LENGTH(BgL_resz00_874)))
												{	/* Ieee/vector.scm 307 */
													BgL_tendz00_1548 = BgL_az00_1549;
												}
											else
												{	/* Ieee/vector.scm 307 */
													BgL_tendz00_1548 = VECTOR_LENGTH(BgL_resz00_874);
												}
										}
										{	/* Ieee/vector.scm 307 */

											if ((BgL_resz00_874 == BgL_vecz00_45))
												{	/* Ieee/vector.scm 311 */
													long BgL_tmpz00_2854;

													BgL_tmpz00_2854 = (BgL_tendz00_1548 - 0L);
													BGL_VECTOR_BLIT_OVERLAP(BgL_resz00_874, BgL_vecz00_45,
														0L, 0L, BgL_tmpz00_2854);
												}
											else
												{	/* Ieee/vector.scm 312 */
													long BgL_tmpz00_2857;

													BgL_tmpz00_2857 = (BgL_tendz00_1548 - 0L);
													BGL_VECTOR_BLIT_NO_OVERLAP(BgL_resz00_874,
														BgL_vecz00_45, 0L, 0L, BgL_tmpz00_2857);
						}}}}}}
						{
							long BgL_iz00_882;
							obj_t BgL_vectsz00_883;

							BgL_iz00_882 = VECTOR_LENGTH(BgL_vecz00_45);
							BgL_vectsz00_883 = BgL_argsz00_46;
						BgL_zc3z04anonymousza31167ze3z87_884:
							if (NULLP(BgL_vectsz00_883))
								{	/* Ieee/vector.scm 339 */
									return BgL_resz00_874;
								}
							else
								{	/* Ieee/vector.scm 341 */
									obj_t BgL_vecz00_886;

									BgL_vecz00_886 = CAR(((obj_t) BgL_vectsz00_883));
									{	/* Ieee/vector.scm 112 */

										{	/* Ieee/vector.scm 305 */
											long BgL_endz00_1573;

											if (
												(VECTOR_LENGTH(
														((obj_t) BgL_vecz00_886)) <
													VECTOR_LENGTH(((obj_t) BgL_vecz00_886))))
												{	/* Ieee/vector.scm 305 */
													BgL_endz00_1573 =
														VECTOR_LENGTH(((obj_t) BgL_vecz00_886));
												}
											else
												{	/* Ieee/vector.scm 305 */
													BgL_endz00_1573 =
														VECTOR_LENGTH(((obj_t) BgL_vecz00_886));
												}
											{	/* Ieee/vector.scm 305 */
												long BgL_countz00_1577;

												BgL_countz00_1577 = (BgL_endz00_1573 - 0L);
												{	/* Ieee/vector.scm 306 */
													long BgL_tendz00_1578;

													{	/* Ieee/vector.scm 307 */
														long BgL_az00_1579;

														BgL_az00_1579 = (BgL_iz00_882 + BgL_countz00_1577);
														if ((BgL_az00_1579 < VECTOR_LENGTH(BgL_resz00_874)))
															{	/* Ieee/vector.scm 307 */
																BgL_tendz00_1578 = BgL_az00_1579;
															}
														else
															{	/* Ieee/vector.scm 307 */
																BgL_tendz00_1578 =
																	VECTOR_LENGTH(BgL_resz00_874);
															}
													}
													{	/* Ieee/vector.scm 307 */

														if ((BgL_resz00_874 == BgL_vecz00_886))
															{	/* Ieee/vector.scm 311 */
																long BgL_tmpz00_2882;

																BgL_tmpz00_2882 =
																	(BgL_tendz00_1578 - BgL_iz00_882);
																BGL_VECTOR_BLIT_OVERLAP(BgL_resz00_874,
																	BgL_vecz00_886, BgL_iz00_882, 0L,
																	BgL_tmpz00_2882);
															}
														else
															{	/* Ieee/vector.scm 312 */
																long BgL_tmpz00_2885;

																BgL_tmpz00_2885 =
																	(BgL_tendz00_1578 - BgL_iz00_882);
																BGL_VECTOR_BLIT_NO_OVERLAP(BgL_resz00_874,
																	BgL_vecz00_886, BgL_iz00_882, 0L,
																	BgL_tmpz00_2885);
									}}}}}}
									{	/* Ieee/vector.scm 343 */
										long BgL_arg1169z00_892;
										obj_t BgL_arg1170z00_893;

										BgL_arg1169z00_892 =
											(BgL_iz00_882 + VECTOR_LENGTH(((obj_t) BgL_vecz00_886)));
										BgL_arg1170z00_893 = CDR(((obj_t) BgL_vectsz00_883));
										{
											obj_t BgL_vectsz00_2894;
											long BgL_iz00_2893;

											BgL_iz00_2893 = BgL_arg1169z00_892;
											BgL_vectsz00_2894 = BgL_arg1170z00_893;
											BgL_vectsz00_883 = BgL_vectsz00_2894;
											BgL_iz00_882 = BgL_iz00_2893;
											goto BgL_zc3z04anonymousza31167ze3z87_884;
										}
									}
								}
						}
					}
				else
					{	/* Ieee/vector.scm 344 */
						long BgL_arg1192z00_897;
						obj_t BgL_arg1193z00_898;

						{	/* Ieee/vector.scm 344 */
							long BgL_arg1194z00_899;

							{	/* Ieee/vector.scm 344 */
								obj_t BgL_arg1195z00_900;

								BgL_arg1195z00_900 = CAR(((obj_t) BgL_vectsz00_871));
								BgL_arg1194z00_899 =
									VECTOR_LENGTH(((obj_t) BgL_arg1195z00_900));
							}
							BgL_arg1192z00_897 = (BgL_arg1194z00_899 + BgL_lenz00_870);
						}
						BgL_arg1193z00_898 = CDR(((obj_t) BgL_vectsz00_871));
						{
							obj_t BgL_vectsz00_2904;
							long BgL_lenz00_2903;

							BgL_lenz00_2903 = BgL_arg1192z00_897;
							BgL_vectsz00_2904 = BgL_arg1193z00_898;
							BgL_vectsz00_871 = BgL_vectsz00_2904;
							BgL_lenz00_870 = BgL_lenz00_2903;
							goto BgL_zc3z04anonymousza31165ze3z87_872;
						}
					}
			}
		}

	}



/* &vector-append */
	obj_t BGl_z62vectorzd2appendzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1908,
		obj_t BgL_vecz00_1909, obj_t BgL_argsz00_1910)
	{
		{	/* Ieee/vector.scm 331 */
			{	/* Ieee/vector.scm 332 */
				obj_t BgL_auxz00_2906;

				if (VECTORP(BgL_vecz00_1909))
					{	/* Ieee/vector.scm 332 */
						BgL_auxz00_2906 = BgL_vecz00_1909;
					}
				else
					{
						obj_t BgL_auxz00_2909;

						BgL_auxz00_2909 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(14486L),
							BGl_string1740z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vecz00_1909);
						FAILURE(BgL_auxz00_2909, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2appendzd2zz__r4_vectors_6_8z00(BgL_auxz00_2906,
					BgL_argsz00_1910);
			}
		}

	}



/* sort */
	BGL_EXPORTED_DEF obj_t BGl_sortz00zz__r4_vectors_6_8z00(obj_t BgL_o1z00_47,
		obj_t BgL_o2z00_48)
	{
		{	/* Ieee/vector.scm 349 */
			if (PROCEDUREP(BgL_o1z00_47))
				{	/* Ieee/vector.scm 350 */
					return
						BGl_innerzd2sortzd2zz__r4_vectors_6_8z00(BgL_o2z00_48,
						BgL_o1z00_47);
				}
			else
				{	/* Ieee/vector.scm 350 */
					return
						BGl_innerzd2sortzd2zz__r4_vectors_6_8z00(BgL_o1z00_47,
						BgL_o2z00_48);
				}
		}

	}



/* &sort */
	obj_t BGl_z62sortz62zz__r4_vectors_6_8z00(obj_t BgL_envz00_1911,
		obj_t BgL_o1z00_1912, obj_t BgL_o2z00_1913)
	{
		{	/* Ieee/vector.scm 349 */
			return BGl_sortz00zz__r4_vectors_6_8z00(BgL_o1z00_1912, BgL_o2z00_1913);
		}

	}



/* inner-sort */
	obj_t BGl_innerzd2sortzd2zz__r4_vectors_6_8z00(obj_t BgL_objz00_49,
		obj_t BgL_procz00_50)
	{
		{	/* Ieee/vector.scm 357 */
			if (NULLP(BgL_objz00_49))
				{	/* Ieee/vector.scm 359 */
					return BgL_objz00_49;
				}
			else
				{	/* Ieee/vector.scm 361 */
					bool_t BgL_test1927z00_2921;

					if (PAIRP(BgL_objz00_49))
						{	/* Ieee/vector.scm 361 */
							BgL_test1927z00_2921 = NULLP(CDR(BgL_objz00_49));
						}
					else
						{	/* Ieee/vector.scm 361 */
							BgL_test1927z00_2921 = ((bool_t) 0);
						}
					if (BgL_test1927z00_2921)
						{	/* Ieee/vector.scm 361 */
							return BgL_objz00_49;
						}
					else
						{	/* Ieee/vector.scm 364 */
							obj_t BgL_vecz00_907;

							if (VECTORP(BgL_objz00_49))
								{	/* Ieee/vector.scm 366 */
									obj_t BgL_newz00_912;

									BgL_newz00_912 = create_vector(VECTOR_LENGTH(BgL_objz00_49));
									{	/* Ieee/vector.scm 367 */

										{
											long BgL_iz00_1618;

											BgL_iz00_1618 = 0L;
										BgL_loopz00_1617:
											if ((BgL_iz00_1618 < VECTOR_LENGTH(BgL_objz00_49)))
												{	/* Ieee/vector.scm 369 */
													{	/* Ieee/vector.scm 371 */
														obj_t BgL_arg1207z00_1622;

														BgL_arg1207z00_1622 =
															VECTOR_REF(
															((obj_t) BgL_objz00_49), BgL_iz00_1618);
														VECTOR_SET(BgL_newz00_912, BgL_iz00_1618,
															BgL_arg1207z00_1622);
													}
													{
														long BgL_iz00_2936;

														BgL_iz00_2936 = (BgL_iz00_1618 + 1L);
														BgL_iz00_1618 = BgL_iz00_2936;
														goto BgL_loopz00_1617;
													}
												}
											else
												{	/* Ieee/vector.scm 369 */
													((bool_t) 0);
												}
										}
										BgL_vecz00_907 = BgL_newz00_912;
									}
								}
							else
								{	/* Ieee/vector.scm 365 */
									if (PAIRP(BgL_objz00_49))
										{	/* Ieee/vector.scm 374 */
											BgL_vecz00_907 =
												BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
												(BgL_objz00_49);
										}
									else
										{	/* Ieee/vector.scm 374 */
											BgL_vecz00_907 =
												BGl_errorz00zz__errorz00
												(BGl_string1741z00zz__r4_vectors_6_8z00,
												BGl_string1742z00zz__r4_vectors_6_8z00, BgL_objz00_49);
										}
								}
							{	/* Ieee/vector.scm 380 */
								obj_t BgL_resz00_908;

								BgL_resz00_908 = sort_vector(BgL_vecz00_907, BgL_procz00_50);
								if (PAIRP(BgL_objz00_49))
									{	/* Ieee/vector.scm 381 */
										return
											BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00
											(BgL_resz00_908);
									}
								else
									{	/* Ieee/vector.scm 381 */
										return BgL_resz00_908;
									}
							}
						}
				}
		}

	}



/* vector-mapN! */
	obj_t BGl_vectorzd2mapNz12zc0zz__r4_vectors_6_8z00(obj_t BgL_procz00_54,
		obj_t BgL_vdestz00_55, obj_t BgL_vsrcz00_56, obj_t BgL_vrestz00_57)
	{
		{	/* Ieee/vector.scm 400 */
			{
				long BgL_iz00_934;

				BgL_iz00_934 = 0L;
			BgL_zc3z04anonymousza31218ze3z87_935:
				if ((BgL_iz00_934 < VECTOR_LENGTH(((obj_t) BgL_vdestz00_55))))
					{	/* Ieee/vector.scm 404 */
						obj_t BgL_argsz00_937;

						if (NULLP(BgL_vrestz00_57))
							{	/* Ieee/vector.scm 404 */
								BgL_argsz00_937 = BNIL;
							}
						else
							{	/* Ieee/vector.scm 404 */
								obj_t BgL_head1036z00_944;

								BgL_head1036z00_944 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1034z00_1683;
									obj_t BgL_tail1037z00_1684;

									BgL_l1034z00_1683 = BgL_vrestz00_57;
									BgL_tail1037z00_1684 = BgL_head1036z00_944;
								BgL_zc3z04anonymousza31228ze3z87_1682:
									if (NULLP(BgL_l1034z00_1683))
										{	/* Ieee/vector.scm 404 */
											BgL_argsz00_937 = CDR(BgL_head1036z00_944);
										}
									else
										{	/* Ieee/vector.scm 404 */
											obj_t BgL_newtail1038z00_1691;

											{	/* Ieee/vector.scm 404 */
												obj_t BgL_arg1231z00_1692;

												{	/* Ieee/vector.scm 404 */
													obj_t BgL_vz00_1693;

													BgL_vz00_1693 = CAR(((obj_t) BgL_l1034z00_1683));
													BgL_arg1231z00_1692 =
														VECTOR_REF(((obj_t) BgL_vz00_1693), BgL_iz00_934);
												}
												BgL_newtail1038z00_1691 =
													MAKE_YOUNG_PAIR(BgL_arg1231z00_1692, BNIL);
											}
											SET_CDR(BgL_tail1037z00_1684, BgL_newtail1038z00_1691);
											{	/* Ieee/vector.scm 404 */
												obj_t BgL_arg1230z00_1694;

												BgL_arg1230z00_1694 = CDR(((obj_t) BgL_l1034z00_1683));
												{
													obj_t BgL_tail1037z00_2965;
													obj_t BgL_l1034z00_2964;

													BgL_l1034z00_2964 = BgL_arg1230z00_1694;
													BgL_tail1037z00_2965 = BgL_newtail1038z00_1691;
													BgL_tail1037z00_1684 = BgL_tail1037z00_2965;
													BgL_l1034z00_1683 = BgL_l1034z00_2964;
													goto BgL_zc3z04anonymousza31228ze3z87_1682;
												}
											}
										}
								}
							}
						{	/* Ieee/vector.scm 404 */
							obj_t BgL_nvalz00_938;

							{	/* Ieee/vector.scm 405 */
								obj_t BgL_auxz00_2966;

								{	/* Ieee/vector.scm 405 */
									obj_t BgL_arg1225z00_940;

									BgL_arg1225z00_940 = VECTOR_REF(BgL_vsrcz00_56, BgL_iz00_934);
									{	/* Ieee/vector.scm 405 */
										obj_t BgL_list1226z00_941;

										BgL_list1226z00_941 =
											MAKE_YOUNG_PAIR(BgL_argsz00_937, BNIL);
										BgL_auxz00_2966 =
											BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
											(BgL_arg1225z00_940, BgL_list1226z00_941);
									}
								}
								BgL_nvalz00_938 = apply(BgL_procz00_54, BgL_auxz00_2966);
							}
							{	/* Ieee/vector.scm 405 */

								VECTOR_SET(
									((obj_t) BgL_vdestz00_55), BgL_iz00_934, BgL_nvalz00_938);
								{
									long BgL_iz00_2973;

									BgL_iz00_2973 = (BgL_iz00_934 + 1L);
									BgL_iz00_934 = BgL_iz00_2973;
									goto BgL_zc3z04anonymousza31218ze3z87_935;
								}
							}
						}
					}
				else
					{	/* Ieee/vector.scm 403 */
						return BgL_vdestz00_55;
					}
			}
		}

	}



/* vector-map */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2mapzd2zz__r4_vectors_6_8z00(obj_t
		BgL_procz00_58, obj_t BgL_vz00_59, obj_t BgL_restz00_60)
	{
		{	/* Ieee/vector.scm 413 */
			{	/* Ieee/vector.scm 414 */
				obj_t BgL_nvz00_957;

				BgL_nvz00_957 = create_vector(VECTOR_LENGTH(BgL_vz00_59));
				{	/* Ieee/vector.scm 415 */

					if (NULLP(BgL_restz00_60))
						{
							long BgL_iz00_1709;

							BgL_iz00_1709 = 0L;
						BgL_loopz00_1708:
							if ((BgL_iz00_1709 < VECTOR_LENGTH(BgL_nvz00_957)))
								{	/* Ieee/vector.scm 391 */
									{	/* Ieee/vector.scm 393 */
										obj_t BgL_arg1215z00_1711;

										{	/* Ieee/vector.scm 393 */
											obj_t BgL_arg1216z00_1712;

											BgL_arg1216z00_1712 =
												VECTOR_REF(BgL_vz00_59, BgL_iz00_1709);
											BgL_arg1215z00_1711 =
												BGL_PROCEDURE_CALL1(BgL_procz00_58,
												BgL_arg1216z00_1712);
										}
										VECTOR_SET(BgL_nvz00_957, BgL_iz00_1709,
											BgL_arg1215z00_1711);
									}
									{
										long BgL_iz00_2988;

										BgL_iz00_2988 = (BgL_iz00_1709 + 1L);
										BgL_iz00_1709 = BgL_iz00_2988;
										goto BgL_loopz00_1708;
									}
								}
							else
								{	/* Ieee/vector.scm 391 */
									return BgL_nvz00_957;
								}
						}
					else
						{	/* Ieee/vector.scm 419 */
							bool_t BgL_test1938z00_2990;

							{	/* Ieee/vector.scm 419 */
								obj_t BgL_zc3z04anonymousza31243ze3z87_1914;

								BgL_zc3z04anonymousza31243ze3z87_1914 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31243ze3ze5zz__r4_vectors_6_8z00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31243ze3z87_1914, (int) (0L),
									BINT(VECTOR_LENGTH(BgL_vz00_59)));
								BgL_test1938z00_2990 =
									CBOOL(BGl_everyz00zz__r4_pairs_and_lists_6_3z00
									(BgL_zc3z04anonymousza31243ze3z87_1914, BNIL));
							}
							if (BgL_test1938z00_2990)
								{	/* Ieee/vector.scm 419 */
									return
										BGl_vectorzd2mapNz12zc0zz__r4_vectors_6_8z00(BgL_procz00_58,
										BgL_nvz00_957, BgL_vz00_59, BgL_restz00_60);
								}
							else
								{	/* Ieee/vector.scm 419 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string1743z00zz__r4_vectors_6_8z00,
										BGl_string1744z00zz__r4_vectors_6_8z00, BgL_restz00_60);
								}
						}
				}
			}
		}

	}



/* &vector-map */
	obj_t BGl_z62vectorzd2mapzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1915,
		obj_t BgL_procz00_1916, obj_t BgL_vz00_1917, obj_t BgL_restz00_1918)
	{
		{	/* Ieee/vector.scm 413 */
			{	/* Ieee/vector.scm 414 */
				obj_t BgL_auxz00_3009;
				obj_t BgL_auxz00_3002;

				if (VECTORP(BgL_vz00_1917))
					{	/* Ieee/vector.scm 414 */
						BgL_auxz00_3009 = BgL_vz00_1917;
					}
				else
					{
						obj_t BgL_auxz00_3012;

						BgL_auxz00_3012 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(17349L),
							BGl_string1745z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vz00_1917);
						FAILURE(BgL_auxz00_3012, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_procz00_1916))
					{	/* Ieee/vector.scm 414 */
						BgL_auxz00_3002 = BgL_procz00_1916;
					}
				else
					{
						obj_t BgL_auxz00_3005;

						BgL_auxz00_3005 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(17349L),
							BGl_string1745z00zz__r4_vectors_6_8z00,
							BGl_string1746z00zz__r4_vectors_6_8z00, BgL_procz00_1916);
						FAILURE(BgL_auxz00_3005, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2mapzd2zz__r4_vectors_6_8z00(BgL_auxz00_3002,
					BgL_auxz00_3009, BgL_restz00_1918);
			}
		}

	}



/* &<@anonymous:1243> */
	obj_t BGl_z62zc3z04anonymousza31243ze3ze5zz__r4_vectors_6_8z00(obj_t
		BgL_envz00_1919, obj_t BgL_vz00_1921)
	{
		{	/* Ieee/vector.scm 419 */
			{	/* Ieee/vector.scm 419 */
				long BgL_lenz00_1920;

				BgL_lenz00_1920 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_1919, (int) (0L)));
				{	/* Ieee/vector.scm 419 */
					bool_t BgL_tmpz00_3020;

					if (VECTORP(BgL_vz00_1921))
						{	/* Ieee/vector.scm 419 */
							BgL_tmpz00_3020 =
								(VECTOR_LENGTH(BgL_vz00_1921) == BgL_lenz00_1920);
						}
					else
						{	/* Ieee/vector.scm 419 */
							BgL_tmpz00_3020 = ((bool_t) 0);
						}
					return BBOOL(BgL_tmpz00_3020);
				}
			}
		}

	}



/* vector-map! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2mapz12zc0zz__r4_vectors_6_8z00(obj_t
		BgL_procz00_61, obj_t BgL_vz00_62, obj_t BgL_restz00_63)
	{
		{	/* Ieee/vector.scm 427 */
			if (NULLP(BgL_restz00_63))
				{
					long BgL_iz00_1730;

					BgL_iz00_1730 = 0L;
				BgL_loopz00_1729:
					if ((BgL_iz00_1730 < VECTOR_LENGTH(BgL_vz00_62)))
						{	/* Ieee/vector.scm 391 */
							{	/* Ieee/vector.scm 393 */
								obj_t BgL_arg1215z00_1732;

								{	/* Ieee/vector.scm 393 */
									obj_t BgL_arg1216z00_1733;

									BgL_arg1216z00_1733 = VECTOR_REF(BgL_vz00_62, BgL_iz00_1730);
									BgL_arg1215z00_1732 =
										BGL_PROCEDURE_CALL1(BgL_procz00_61, BgL_arg1216z00_1733);
								}
								VECTOR_SET(BgL_vz00_62, BgL_iz00_1730, BgL_arg1215z00_1732);
							}
							{
								long BgL_iz00_3037;

								BgL_iz00_3037 = (BgL_iz00_1730 + 1L);
								BgL_iz00_1730 = BgL_iz00_3037;
								goto BgL_loopz00_1729;
							}
						}
					else
						{	/* Ieee/vector.scm 391 */
							return BgL_vz00_62;
						}
				}
			else
				{	/* Ieee/vector.scm 432 */
					bool_t BgL_test1944z00_3039;

					{	/* Ieee/vector.scm 432 */
						obj_t BgL_zc3z04anonymousza31263ze3z87_1922;

						BgL_zc3z04anonymousza31263ze3z87_1922 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31263ze3ze5zz__r4_vectors_6_8z00,
							(int) (1L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31263ze3z87_1922, (int) (0L),
							BINT(VECTOR_LENGTH(BgL_vz00_62)));
						BgL_test1944z00_3039 =
							CBOOL(BGl_everyz00zz__r4_pairs_and_lists_6_3z00
							(BgL_zc3z04anonymousza31263ze3z87_1922, BNIL));
					}
					if (BgL_test1944z00_3039)
						{	/* Ieee/vector.scm 432 */
							return
								BGl_vectorzd2mapNz12zc0zz__r4_vectors_6_8z00(BgL_procz00_61,
								BgL_vz00_62, BgL_vz00_62, BgL_restz00_63);
						}
					else
						{	/* Ieee/vector.scm 432 */
							return
								BGl_errorz00zz__errorz00(BGl_string1747z00zz__r4_vectors_6_8z00,
								BGl_string1744z00zz__r4_vectors_6_8z00, BgL_restz00_63);
						}
				}
		}

	}



/* &vector-map! */
	obj_t BGl_z62vectorzd2mapz12za2zz__r4_vectors_6_8z00(obj_t BgL_envz00_1923,
		obj_t BgL_procz00_1924, obj_t BgL_vz00_1925, obj_t BgL_restz00_1926)
	{
		{	/* Ieee/vector.scm 427 */
			{	/* Ieee/vector.scm 428 */
				obj_t BgL_auxz00_3058;
				obj_t BgL_auxz00_3051;

				if (VECTORP(BgL_vz00_1925))
					{	/* Ieee/vector.scm 428 */
						BgL_auxz00_3058 = BgL_vz00_1925;
					}
				else
					{
						obj_t BgL_auxz00_3061;

						BgL_auxz00_3061 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(17894L),
							BGl_string1748z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vz00_1925);
						FAILURE(BgL_auxz00_3061, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_procz00_1924))
					{	/* Ieee/vector.scm 428 */
						BgL_auxz00_3051 = BgL_procz00_1924;
					}
				else
					{
						obj_t BgL_auxz00_3054;

						BgL_auxz00_3054 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(17894L),
							BGl_string1748z00zz__r4_vectors_6_8z00,
							BGl_string1746z00zz__r4_vectors_6_8z00, BgL_procz00_1924);
						FAILURE(BgL_auxz00_3054, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2mapz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_3051,
					BgL_auxz00_3058, BgL_restz00_1926);
			}
		}

	}



/* &<@anonymous:1263> */
	obj_t BGl_z62zc3z04anonymousza31263ze3ze5zz__r4_vectors_6_8z00(obj_t
		BgL_envz00_1927, obj_t BgL_vz00_1929)
	{
		{	/* Ieee/vector.scm 432 */
			{	/* Ieee/vector.scm 432 */
				long BgL_lenz00_1928;

				BgL_lenz00_1928 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_1927, (int) (0L)));
				{	/* Ieee/vector.scm 432 */
					bool_t BgL_tmpz00_3069;

					if (VECTORP(BgL_vz00_1929))
						{	/* Ieee/vector.scm 432 */
							BgL_tmpz00_3069 =
								(VECTOR_LENGTH(BgL_vz00_1929) == BgL_lenz00_1928);
						}
					else
						{	/* Ieee/vector.scm 432 */
							BgL_tmpz00_3069 = ((bool_t) 0);
						}
					return BBOOL(BgL_tmpz00_3069);
				}
			}
		}

	}



/* vector-for-each2 */
	bool_t BGl_vectorzd2forzd2each2z00zz__r4_vectors_6_8z00(obj_t BgL_procz00_64,
		obj_t BgL_vsrcz00_65)
	{
		{	/* Ieee/vector.scm 440 */
			{
				long BgL_iz00_1755;

				BgL_iz00_1755 = 0L;
			BgL_loopz00_1754:
				if ((BgL_iz00_1755 < VECTOR_LENGTH(BgL_vsrcz00_65)))
					{	/* Ieee/vector.scm 443 */
						{	/* Ieee/vector.scm 444 */
							obj_t BgL_arg1269z00_1759;

							BgL_arg1269z00_1759 = VECTOR_REF(BgL_vsrcz00_65, BgL_iz00_1755);
							BGL_PROCEDURE_CALL1(BgL_procz00_64, BgL_arg1269z00_1759);
						}
						{
							long BgL_iz00_3083;

							BgL_iz00_3083 = (BgL_iz00_1755 + 1L);
							BgL_iz00_1755 = BgL_iz00_3083;
							goto BgL_loopz00_1754;
						}
					}
				else
					{	/* Ieee/vector.scm 443 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* vector-for-eachN */
	bool_t BGl_vectorzd2forzd2eachNz00zz__r4_vectors_6_8z00(obj_t BgL_procz00_66,
		obj_t BgL_vsrcz00_67, obj_t BgL_vrestz00_68)
	{
		{	/* Ieee/vector.scm 450 */
			{
				long BgL_iz00_1001;

				BgL_iz00_1001 = 0L;
			BgL_zc3z04anonymousza31272ze3z87_1002:
				if ((BgL_iz00_1001 < VECTOR_LENGTH(BgL_vsrcz00_67)))
					{	/* Ieee/vector.scm 454 */
						obj_t BgL_argsz00_1004;

						if (NULLP(BgL_vrestz00_68))
							{	/* Ieee/vector.scm 454 */
								BgL_argsz00_1004 = BNIL;
							}
						else
							{	/* Ieee/vector.scm 454 */
								obj_t BgL_head1041z00_1010;

								BgL_head1041z00_1010 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1039z00_1790;
									obj_t BgL_tail1042z00_1791;

									BgL_l1039z00_1790 = BgL_vrestz00_68;
									BgL_tail1042z00_1791 = BgL_head1041z00_1010;
								BgL_zc3z04anonymousza31278ze3z87_1789:
									if (NULLP(BgL_l1039z00_1790))
										{	/* Ieee/vector.scm 454 */
											BgL_argsz00_1004 = CDR(BgL_head1041z00_1010);
										}
									else
										{	/* Ieee/vector.scm 454 */
											obj_t BgL_newtail1043z00_1798;

											{	/* Ieee/vector.scm 454 */
												obj_t BgL_arg1281z00_1799;

												{	/* Ieee/vector.scm 454 */
													obj_t BgL_vz00_1800;

													BgL_vz00_1800 = CAR(((obj_t) BgL_l1039z00_1790));
													BgL_arg1281z00_1799 =
														VECTOR_REF(((obj_t) BgL_vz00_1800), BgL_iz00_1001);
												}
												BgL_newtail1043z00_1798 =
													MAKE_YOUNG_PAIR(BgL_arg1281z00_1799, BNIL);
											}
											SET_CDR(BgL_tail1042z00_1791, BgL_newtail1043z00_1798);
											{	/* Ieee/vector.scm 454 */
												obj_t BgL_arg1280z00_1801;

												BgL_arg1280z00_1801 = CDR(((obj_t) BgL_l1039z00_1790));
												{
													obj_t BgL_tail1042z00_3103;
													obj_t BgL_l1039z00_3102;

													BgL_l1039z00_3102 = BgL_arg1280z00_1801;
													BgL_tail1042z00_3103 = BgL_newtail1043z00_1798;
													BgL_tail1042z00_1791 = BgL_tail1042z00_3103;
													BgL_l1039z00_1790 = BgL_l1039z00_3102;
													goto BgL_zc3z04anonymousza31278ze3z87_1789;
												}
											}
										}
								}
							}
						{	/* Ieee/vector.scm 455 */
							obj_t BgL_auxz00_3104;

							{	/* Ieee/vector.scm 455 */
								obj_t BgL_arg1274z00_1005;

								BgL_arg1274z00_1005 = VECTOR_REF(BgL_vsrcz00_67, BgL_iz00_1001);
								{	/* Ieee/vector.scm 455 */
									obj_t BgL_list1275z00_1006;

									BgL_list1275z00_1006 =
										MAKE_YOUNG_PAIR(BgL_argsz00_1004, BNIL);
									BgL_auxz00_3104 =
										BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1274z00_1005, BgL_list1275z00_1006);
								}
							}
							apply(BgL_procz00_66, BgL_auxz00_3104);
						}
						{
							long BgL_iz00_3109;

							BgL_iz00_3109 = (BgL_iz00_1001 + 1L);
							BgL_iz00_1001 = BgL_iz00_3109;
							goto BgL_zc3z04anonymousza31272ze3z87_1002;
						}
					}
				else
					{	/* Ieee/vector.scm 453 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* vector-for-each */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2forzd2eachz00zz__r4_vectors_6_8z00(obj_t
		BgL_procz00_69, obj_t BgL_vz00_70, obj_t BgL_restz00_71)
	{
		{	/* Ieee/vector.scm 461 */
			if (NULLP(BgL_restz00_71))
				{	/* Ieee/vector.scm 464 */
					return
						BBOOL(BGl_vectorzd2forzd2each2z00zz__r4_vectors_6_8z00
						(BgL_procz00_69, BgL_vz00_70));
				}
			else
				{	/* Ieee/vector.scm 466 */
					bool_t BgL_test1953z00_3115;

					{	/* Ieee/vector.scm 466 */
						obj_t BgL_zc3z04anonymousza31293ze3z87_1930;

						BgL_zc3z04anonymousza31293ze3z87_1930 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31293ze3ze5zz__r4_vectors_6_8z00,
							(int) (1L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31293ze3z87_1930, (int) (0L),
							BINT(VECTOR_LENGTH(BgL_vz00_70)));
						BgL_test1953z00_3115 =
							CBOOL(BGl_everyz00zz__r4_pairs_and_lists_6_3z00
							(BgL_zc3z04anonymousza31293ze3z87_1930, BNIL));
					}
					if (BgL_test1953z00_3115)
						{	/* Ieee/vector.scm 466 */
							return
								BBOOL(BGl_vectorzd2forzd2eachNz00zz__r4_vectors_6_8z00
								(BgL_procz00_69, BgL_vz00_70, BgL_restz00_71));
						}
					else
						{	/* Ieee/vector.scm 466 */
							return
								BGl_errorz00zz__errorz00(BGl_string1749z00zz__r4_vectors_6_8z00,
								BGl_string1744z00zz__r4_vectors_6_8z00, BgL_restz00_71);
						}
				}
		}

	}



/* &vector-for-each */
	obj_t BGl_z62vectorzd2forzd2eachz62zz__r4_vectors_6_8z00(obj_t
		BgL_envz00_1931, obj_t BgL_procz00_1932, obj_t BgL_vz00_1933,
		obj_t BgL_restz00_1934)
	{
		{	/* Ieee/vector.scm 461 */
			{	/* Ieee/vector.scm 462 */
				obj_t BgL_auxz00_3135;
				obj_t BgL_auxz00_3128;

				if (VECTORP(BgL_vz00_1933))
					{	/* Ieee/vector.scm 462 */
						BgL_auxz00_3135 = BgL_vz00_1933;
					}
				else
					{
						obj_t BgL_auxz00_3138;

						BgL_auxz00_3138 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(19298L),
							BGl_string1750z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vz00_1933);
						FAILURE(BgL_auxz00_3138, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_procz00_1932))
					{	/* Ieee/vector.scm 462 */
						BgL_auxz00_3128 = BgL_procz00_1932;
					}
				else
					{
						obj_t BgL_auxz00_3131;

						BgL_auxz00_3131 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(19298L),
							BGl_string1750z00zz__r4_vectors_6_8z00,
							BGl_string1746z00zz__r4_vectors_6_8z00, BgL_procz00_1932);
						FAILURE(BgL_auxz00_3131, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2forzd2eachz00zz__r4_vectors_6_8z00(BgL_auxz00_3128,
					BgL_auxz00_3135, BgL_restz00_1934);
			}
		}

	}



/* &<@anonymous:1293> */
	obj_t BGl_z62zc3z04anonymousza31293ze3ze5zz__r4_vectors_6_8z00(obj_t
		BgL_envz00_1935, obj_t BgL_vz00_1937)
	{
		{	/* Ieee/vector.scm 466 */
			{	/* Ieee/vector.scm 466 */
				long BgL_lenz00_1936;

				BgL_lenz00_1936 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_1935, (int) (0L)));
				{	/* Ieee/vector.scm 466 */
					bool_t BgL_tmpz00_3146;

					if (VECTORP(BgL_vz00_1937))
						{	/* Ieee/vector.scm 466 */
							BgL_tmpz00_3146 =
								(VECTOR_LENGTH(BgL_vz00_1937) == BgL_lenz00_1936);
						}
					else
						{	/* Ieee/vector.scm 466 */
							BgL_tmpz00_3146 = ((bool_t) 0);
						}
					return BBOOL(BgL_tmpz00_3146);
				}
			}
		}

	}



/* vector-shrink! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2shrinkz12zc0zz__r4_vectors_6_8z00(obj_t
		BgL_vecz00_72, long BgL_nlenz00_73)
	{
		{	/* Ieee/vector.scm 474 */
			return BGL_VECTOR_SHRINK(BgL_vecz00_72, BgL_nlenz00_73);
		}

	}



/* &vector-shrink! */
	obj_t BGl_z62vectorzd2shrinkz12za2zz__r4_vectors_6_8z00(obj_t BgL_envz00_1938,
		obj_t BgL_vecz00_1939, obj_t BgL_nlenz00_1940)
	{
		{	/* Ieee/vector.scm 474 */
			{	/* Ieee/vector.scm 475 */
				long BgL_auxz00_3160;
				obj_t BgL_auxz00_3153;

				{	/* Ieee/vector.scm 475 */
					obj_t BgL_tmpz00_3161;

					if (INTEGERP(BgL_nlenz00_1940))
						{	/* Ieee/vector.scm 475 */
							BgL_tmpz00_3161 = BgL_nlenz00_1940;
						}
					else
						{
							obj_t BgL_auxz00_3164;

							BgL_auxz00_3164 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(19825L),
								BGl_string1751z00zz__r4_vectors_6_8z00,
								BGl_string1717z00zz__r4_vectors_6_8z00, BgL_nlenz00_1940);
							FAILURE(BgL_auxz00_3164, BFALSE, BFALSE);
						}
					BgL_auxz00_3160 = (long) CINT(BgL_tmpz00_3161);
				}
				if (VECTORP(BgL_vecz00_1939))
					{	/* Ieee/vector.scm 475 */
						BgL_auxz00_3153 = BgL_vecz00_1939;
					}
				else
					{
						obj_t BgL_auxz00_3156;

						BgL_auxz00_3156 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1714z00zz__r4_vectors_6_8z00, BINT(19825L),
							BGl_string1751z00zz__r4_vectors_6_8z00,
							BGl_string1716z00zz__r4_vectors_6_8z00, BgL_vecz00_1939);
						FAILURE(BgL_auxz00_3156, BFALSE, BFALSE);
					}
				return
					BGl_vectorzd2shrinkz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_3153,
					BgL_auxz00_3160);
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00(void)
	{
		{	/* Ieee/vector.scm 18 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1752z00zz__r4_vectors_6_8z00));
			return
				BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1752z00zz__r4_vectors_6_8z00));
		}

	}

#ifdef __cplusplus
}
#endif
