/*===========================================================================*/
/*   (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-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/vector.scm -indent -o objs/obj_s/Ieee/vector.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* 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_symbol1912z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_symbol1837z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_vectorzd2copy3zd2zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31256ze3ze5zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_symbol1920z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1923z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1926z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1929z00zz__r4_vectors_6_8z00 = BUNSPEC;
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);
static obj_t BGl_symbol1932z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1900z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1935z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1854z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1903z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1906z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1907z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1908z00zz__r4_vectors_6_8z00 = BUNSPEC;
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 *);
static obj_t BGl_list2000z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1940z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1943z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31300ze3ze5zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_list1911z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_sortz00zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_symbol1945z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1865z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1914z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1948z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1867z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1917z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1869z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1918z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1919z00zz__r4_vectors_6_8z00 = BUNSPEC;
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);
static obj_t BGl_symbol1951z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t, long, long);
static obj_t BGl_list1922z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1875z00zz__r4_vectors_6_8z00 = BUNSPEC;
extern obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list1925z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1878z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1928z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_vectorzd2map2z12zc0zz__r4_vectors_6_8z00(obj_t, 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_symbol1961z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_z62vectorzd2setzd2urz12z70zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol1881z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1931z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1885z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1934z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1968z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1937z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1938z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_vectorzd2refzd2urz00zz__r4_vectors_6_8z00(obj_t, long);
static obj_t BGl_list1939z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31269ze3ze5zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_vectors_6_8z00(void);
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_symbol1890z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1891z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1974z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00(void);
static obj_t BGl_list1942z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1894z00zz__r4_vectors_6_8z00 = BUNSPEC;
extern obj_t sort_vector(obj_t, obj_t);
static obj_t BGl_symbol1977z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1896z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1864z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r4_vectors_6_8z00(void);
static obj_t BGl_list1947z00zz__r4_vectors_6_8z00 = BUNSPEC;
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 obj_t BGl_symbol1982z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1950z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1988z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1877z00zz__r4_vectors_6_8z00 = BUNSPEC;
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 obj_t BGl_list1960z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1880z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1964z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1883z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1998z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1965z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1884z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1966z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1967z00zz__r4_vectors_6_8z00 = BUNSPEC;
static bool_t BGl_vectorzd2forzd2eachNz00zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl_list1887z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1888z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1889z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_z62vectorzd2appendzb0zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl_list1970z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1971z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1972z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1973z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1893z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1976z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1979z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1898z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1899z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_z62vectorzd2refzd2urz62zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
extern obj_t bstring_to_symbol(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);
static obj_t BGl_list1980z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1981z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1984z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1985z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1986z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1987z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(obj_t, long, obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_list1990z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1991z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1992z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1993z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1994z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1995z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1996z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_list1997z00zz__r4_vectors_6_8z00 = BUNSPEC;
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);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, 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_symbol1819z00zz__r4_vectors_6_8z00 = BUNSPEC;
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_symbol1901z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_z62copyzd2vectorzb0zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1904z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol1909z00zz__r4_vectors_6_8z00 = BUNSPEC;
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


BGL_DEFINE_STRING(BGl_string1870z00zz__r4_vectors_6_8z00, BgL_bgl_string1870za700za7za7_2006za7, "arg1231", 7 );
BGL_DEFINE_STRING(BGl_string1952z00zz__r4_vectors_6_8z00, BgL_bgl_string1952za700za7za7_2007za7, "cons*", 5 );
BGL_DEFINE_STRING(BGl_string1871z00zz__r4_vectors_6_8z00, BgL_bgl_string1871za700za7za7_2008za7, "vector-mapN!", 12 );
BGL_DEFINE_STRING(BGl_string1953z00zz__r4_vectors_6_8z00, BgL_bgl_string1953za700za7za7_2009za7, "vector-map", 10 );
BGL_DEFINE_STRING(BGl_string1872z00zz__r4_vectors_6_8z00, BgL_bgl_string1872za700za7za7_2010za7, "<@anonymous:1239>", 17 );
BGL_DEFINE_STRING(BGl_string1954z00zz__r4_vectors_6_8z00, BgL_bgl_string1954za700za7za7_2011za7, "Illegal arguments", 17 );
BGL_DEFINE_STRING(BGl_string1873z00zz__r4_vectors_6_8z00, BgL_bgl_string1873za700za7za7_2012za7, "map", 3 );
BGL_DEFINE_STRING(BGl_string1955z00zz__r4_vectors_6_8z00, BgL_bgl_string1955za700za7za7_2013za7, "&vector-map", 11 );
BGL_DEFINE_STRING(BGl_string1874z00zz__r4_vectors_6_8z00, BgL_bgl_string1874za700za7za7_2014za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string1956z00zz__r4_vectors_6_8z00, BgL_bgl_string1956za700za7za7_2015za7, "&<@anonymous:1256>", 18 );
BGL_DEFINE_STRING(BGl_string1957z00zz__r4_vectors_6_8z00, BgL_bgl_string1957za700za7za7_2016za7, "vector-map!", 11 );
BGL_DEFINE_STRING(BGl_string1876z00zz__r4_vectors_6_8z00, BgL_bgl_string1876za700za7za7_2017za7, "Wrong number of arguments", 25 );
BGL_DEFINE_STRING(BGl_string1958z00zz__r4_vectors_6_8z00, BgL_bgl_string1958za700za7za7_2018za7, "&vector-map!", 12 );
BGL_DEFINE_STRING(BGl_string1959z00zz__r4_vectors_6_8z00, BgL_bgl_string1959za700za7za7_2019za7, "&<@anonymous:1269>", 18 );
BGL_DEFINE_STRING(BGl_string1879z00zz__r4_vectors_6_8z00, BgL_bgl_string1879za700za7za7_2020za7, "apply", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2mapzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2mapza72021za7, va_generic_entry, BGl_z62vectorzd2mapzb0zz__r4_vectors_6_8z00, BUNSPEC, -3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2shrinkz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2shri2022z00, BGl_z62vectorzd2shrinkz12za2zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1962z00zz__r4_vectors_6_8z00, BgL_bgl_string1962za700za7za7_2023za7, "arg1274", 7 );
BGL_DEFINE_STRING(BGl_string1963z00zz__r4_vectors_6_8z00, BgL_bgl_string1963za700za7za7_2024za7, "<@anonymous:1283>", 17 );
BGL_DEFINE_STRING(BGl_string1882z00zz__r4_vectors_6_8z00, BgL_bgl_string1882za700za7za7_2025za7, "let", 3 );
BGL_DEFINE_STRING(BGl_string1886z00zz__r4_vectors_6_8z00, BgL_bgl_string1886za700za7za7_2026za7, "arg1236", 7 );
BGL_DEFINE_STRING(BGl_string1969z00zz__r4_vectors_6_8z00, BgL_bgl_string1969za700za7za7_2027za7, "arg1279", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_copyzd2vectorzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762copyza7d2vector2028z00, BGl_z62copyzd2vectorzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_sortzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762sortza762za7za7__r42029z00, BGl_z62sortz62zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1892z00zz__r4_vectors_6_8z00, BgL_bgl_string1892za700za7za7_2030za7, "vsrc", 4 );
BGL_DEFINE_STRING(BGl_string1975z00zz__r4_vectors_6_8z00, BgL_bgl_string1975za700za7za7_2031za7, "v1611", 5 );
BGL_DEFINE_STRING(BGl_string1895z00zz__r4_vectors_6_8z00, BgL_bgl_string1895za700za7za7_2032za7, "k", 1 );
BGL_DEFINE_STRING(BGl_string1978z00zz__r4_vectors_6_8z00, BgL_bgl_string1978za700za7za7_2033za7, "i1612", 5 );
BGL_DEFINE_STRING(BGl_string1897z00zz__r4_vectors_6_8z00, BgL_bgl_string1897za700za7za7_2034za7, "i", 1 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2fillz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2fillza712035z00, opt_generic_entry, BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string1983z00zz__r4_vectors_6_8z00, BgL_bgl_string1983za700za7za7_2036za7, "l1613", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2appendzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2appe2037z00, va_generic_entry, BGl_z62vectorzd2appendzb0zz__r4_vectors_6_8z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string1989z00zz__r4_vectors_6_8z00, BgL_bgl_string1989za700za7za7_2038za7, "test1614", 8 );
BGL_DEFINE_STRING(BGl_string1999z00zz__r4_vectors_6_8z00, BgL_bgl_string1999za700za7za7_2039za7, "list1280", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2ze3listzd2envze3zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2za7e3l2040za7, BGl_z62vectorzd2ze3listz53zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2tagzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2tagza72041za7, BGl_z62vectorzd2tagzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2copy3zd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2copy2042z00, BGl_z62vectorzd2copy3zb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza762za7za7__2043z00, va_generic_entry, BGl_z62vectorz62zz__r4_vectors_6_8z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2refzd2urzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2refza72044za7, BGl_z62vectorzd2refzd2urz62zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2mapz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2mapza72045za7, va_generic_entry, BGl_z62vectorzd2mapz12za2zz__r4_vectors_6_8z00, BUNSPEC, -3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2copyzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2copy2046z00, va_generic_entry, BGl_z62vectorzd2copyzb0zz__r4_vectors_6_8z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string1815z00zz__r4_vectors_6_8z00, BgL_bgl_string1815za700za7za7_2047za7, "/tmp/bigloo/runtime/Ieee/vector.scm", 35 );
BGL_DEFINE_STRING(BGl_string1816z00zz__r4_vectors_6_8z00, BgL_bgl_string1816za700za7za7_2048za7, "_make-vector", 12 );
BGL_DEFINE_STRING(BGl_string1817z00zz__r4_vectors_6_8z00, BgL_bgl_string1817za700za7za7_2049za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string1818z00zz__r4_vectors_6_8z00, BgL_bgl_string1818za700za7za7_2050za7, "case_else1051", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3vectorzd2envze3zz__r4_vectors_6_8z00, BgL_bgl_za762listza7d2za7e3vec2051za7, BGl_z62listzd2ze3vectorz53zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2refzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2refza72052za7, BGl_z62vectorzd2refzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2lengthzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2leng2053z00, BGl_z62vectorzd2lengthzb0zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1820z00zz__r4_vectors_6_8z00, BgL_bgl_string1820za700za7za7_2054za7, "make-vector", 11 );
BGL_DEFINE_STRING(BGl_string1902z00zz__r4_vectors_6_8z00, BgL_bgl_string1902za700za7za7_2055za7, "v1603", 5 );
BGL_DEFINE_STRING(BGl_string1821z00zz__r4_vectors_6_8z00, BgL_bgl_string1821za700za7za7_2056za7, "wrong number of arguments: [1..2] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string1822z00zz__r4_vectors_6_8z00, BgL_bgl_string1822za700za7za7_2057za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string1823z00zz__r4_vectors_6_8z00, BgL_bgl_string1823za700za7za7_2058za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string1905z00zz__r4_vectors_6_8z00, BgL_bgl_string1905za700za7za7_2059za7, "i1604", 5 );
BGL_DEFINE_STRING(BGl_string1824z00zz__r4_vectors_6_8z00, BgL_bgl_string1824za700za7za7_2060za7, "&vector-length", 14 );
BGL_DEFINE_STRING(BGl_string1825z00zz__r4_vectors_6_8z00, BgL_bgl_string1825za700za7za7_2061za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string1826z00zz__r4_vectors_6_8z00, BgL_bgl_string1826za700za7za7_2062za7, "&vector-ref", 11 );
BGL_DEFINE_STRING(BGl_string1827z00zz__r4_vectors_6_8z00, BgL_bgl_string1827za700za7za7_2063za7, "vector-set!", 11 );
BGL_DEFINE_STRING(BGl_string1828z00zz__r4_vectors_6_8z00, BgL_bgl_string1828za700za7za7_2064za7, "&vector-set!", 12 );
BGL_DEFINE_STRING(BGl_string1829z00zz__r4_vectors_6_8z00, BgL_bgl_string1829za700za7za7_2065za7, "&vector-ref-ur", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2tagzd2setz12zd2envzc0zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2tagza72066za7, BGl_z62vectorzd2tagzd2setz12z70zz__r4_vectors_6_8z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2001z00zz__r4_vectors_6_8z00, BgL_bgl_string2001za700za7za7_2067za7, "vector-for-each", 15 );
BGL_DEFINE_STRING(BGl_string2002z00zz__r4_vectors_6_8z00, BgL_bgl_string2002za700za7za7_2068za7, "&vector-for-each", 16 );
BGL_DEFINE_STRING(BGl_string2003z00zz__r4_vectors_6_8z00, BgL_bgl_string2003za700za7za7_2069za7, "&<@anonymous:1300>", 18 );
BGL_DEFINE_STRING(BGl_string2004z00zz__r4_vectors_6_8z00, BgL_bgl_string2004za700za7za7_2070za7, "&vector-shrink!", 15 );
BGL_DEFINE_STRING(BGl_string2005z00zz__r4_vectors_6_8z00, BgL_bgl_string2005za700za7za7_2071za7, "__r4_vectors_6_8", 16 );
BGL_DEFINE_STRING(BGl_string1910z00zz__r4_vectors_6_8z00, BgL_bgl_string1910za700za7za7_2072za7, "l1605", 5 );
BGL_DEFINE_STRING(BGl_string1830z00zz__r4_vectors_6_8z00, BgL_bgl_string1830za700za7za7_2073za7, "&vector-set-ur!", 15 );
BGL_DEFINE_STRING(BGl_string1831z00zz__r4_vectors_6_8z00, BgL_bgl_string1831za700za7za7_2074za7, "&vector->list", 13 );
BGL_DEFINE_STRING(BGl_string1913z00zz__r4_vectors_6_8z00, BgL_bgl_string1913za700za7za7_2075za7, "vlength", 7 );
BGL_DEFINE_STRING(BGl_string1832z00zz__r4_vectors_6_8z00, BgL_bgl_string1832za700za7za7_2076za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string1833z00zz__r4_vectors_6_8z00, BgL_bgl_string1833za700za7za7_2077za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string1915z00zz__r4_vectors_6_8z00, BgL_bgl_string1915za700za7za7_2078za7, "ftype:", 6 );
BGL_DEFINE_STRING(BGl_string1834z00zz__r4_vectors_6_8z00, BgL_bgl_string1834za700za7za7_2079za7, "&list->vector", 13 );
BGL_DEFINE_STRING(BGl_string1916z00zz__r4_vectors_6_8z00, BgL_bgl_string1916za700za7za7_2080za7, "_", 1 );
BGL_DEFINE_STRING(BGl_string1835z00zz__r4_vectors_6_8z00, BgL_bgl_string1835za700za7za7_2081za7, "_vector-fill!", 13 );
BGL_DEFINE_STRING(BGl_string1836z00zz__r4_vectors_6_8z00, BgL_bgl_string1836za700za7za7_2082za7, "case_else1055", 13 );
BGL_DEFINE_STRING(BGl_string1838z00zz__r4_vectors_6_8z00, BgL_bgl_string1838za700za7za7_2083za7, "vector-fill!", 12 );
BGL_DEFINE_STRING(BGl_string1839z00zz__r4_vectors_6_8z00, BgL_bgl_string1839za700za7za7_2084za7, "wrong number of arguments: [2..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string1921z00zz__r4_vectors_6_8z00, BgL_bgl_string1921za700za7za7_2085za7, "test1606", 8 );
BGL_DEFINE_STRING(BGl_string1840z00zz__r4_vectors_6_8z00, BgL_bgl_string1840za700za7za7_2086za7, "wrong negative start", 20 );
BGL_DEFINE_STRING(BGl_string1841z00zz__r4_vectors_6_8z00, BgL_bgl_string1841za700za7za7_2087za7, "end index too large", 19 );
BGL_DEFINE_STRING(BGl_string1842z00zz__r4_vectors_6_8z00, BgL_bgl_string1842za700za7za7_2088za7, "start index larger than end", 27 );
BGL_DEFINE_STRING(BGl_string1924z00zz__r4_vectors_6_8z00, BgL_bgl_string1924za700za7za7_2089za7, "$vector-bound-check?", 20 );
BGL_DEFINE_STRING(BGl_string1843z00zz__r4_vectors_6_8z00, BgL_bgl_string1843za700za7za7_2090za7, "&vector-tag", 11 );
BGL_DEFINE_STRING(BGl_string1844z00zz__r4_vectors_6_8z00, BgL_bgl_string1844za700za7za7_2091za7, "&vector-tag-set!", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzf3zd2envz21zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7f3za791za72092z00, BGl_z62vectorzf3z91zz__r4_vectors_6_8z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1845z00zz__r4_vectors_6_8z00, BgL_bgl_string1845za700za7za7_2093za7, "&copy-vector", 12 );
BGL_DEFINE_STRING(BGl_string1927z00zz__r4_vectors_6_8z00, BgL_bgl_string1927za700za7za7_2094za7, "if", 2 );
BGL_DEFINE_STRING(BGl_string1846z00zz__r4_vectors_6_8z00, BgL_bgl_string1846za700za7za7_2095za7, "vector-copy3", 12 );
BGL_DEFINE_STRING(BGl_string1847z00zz__r4_vectors_6_8z00, BgL_bgl_string1847za700za7za7_2096za7, "vector-copy", 11 );
BGL_DEFINE_STRING(BGl_string1848z00zz__r4_vectors_6_8z00, BgL_bgl_string1848za700za7za7_2097za7, "Illegal indexes", 15 );
BGL_DEFINE_STRING(BGl_string1849z00zz__r4_vectors_6_8z00, BgL_bgl_string1849za700za7za7_2098za7, "&vector-copy3", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2setzd2urz12zd2envzc0zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2setza72099za7, BGl_z62vectorzd2setzd2urz12z70zz__r4_vectors_6_8z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string1930z00zz__r4_vectors_6_8z00, BgL_bgl_string1930za700za7za7_2100za7, "vref", 4 );
BGL_DEFINE_STRING(BGl_string1850z00zz__r4_vectors_6_8z00, BgL_bgl_string1850za700za7za7_2101za7, "Illegal argument", 16 );
BGL_DEFINE_STRING(BGl_string1851z00zz__r4_vectors_6_8z00, BgL_bgl_string1851za700za7za7_2102za7, "&vector-copy", 12 );
BGL_DEFINE_STRING(BGl_string1933z00zz__r4_vectors_6_8z00, BgL_bgl_string1933za700za7za7_2103za7, "failure", 7 );
BGL_DEFINE_STRING(BGl_string1852z00zz__r4_vectors_6_8z00, BgL_bgl_string1852za700za7za7_2104za7, "_vector-copy!", 13 );
BGL_DEFINE_STRING(BGl_string1853z00zz__r4_vectors_6_8z00, BgL_bgl_string1853za700za7za7_2105za7, "case_else1061", 13 );
BGL_DEFINE_STRING(BGl_string1936z00zz__r4_vectors_6_8z00, BgL_bgl_string1936za700za7za7_2106za7, "index-out-of-bounds-error", 25 );
BGL_DEFINE_STRING(BGl_string1855z00zz__r4_vectors_6_8z00, BgL_bgl_string1855za700za7za7_2107za7, "vector-copy!", 12 );
BGL_DEFINE_STRING(BGl_string1856z00zz__r4_vectors_6_8z00, BgL_bgl_string1856za700za7za7_2108za7, "wrong number of arguments: [3..5] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string1857z00zz__r4_vectors_6_8z00, BgL_bgl_string1857za700za7za7_2109za7, "&vector-append", 14 );
BGL_DEFINE_STRING(BGl_string1858z00zz__r4_vectors_6_8z00, BgL_bgl_string1858za700za7za7_2110za7, "sort", 4 );
BGL_DEFINE_STRING(BGl_string1859z00zz__r4_vectors_6_8z00, BgL_bgl_string1859za700za7za7_2111za7, "procedure", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2copyz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2copyza712112z00, opt_generic_entry, BGl__vectorzd2copyz12zc0zz__r4_vectors_6_8z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2vectorzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__makeza7d2vectorza7d2113z00, opt_generic_entry, BGl__makezd2vectorzd2zz__r4_vectors_6_8z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2forzd2eachzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2forza72114za7, va_generic_entry, BGl_z62vectorzd2forzd2eachz62zz__r4_vectors_6_8z00, BUNSPEC, -3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2setz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2setza72115za7, BGl_z62vectorzd2setz12za2zz__r4_vectors_6_8z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string1941z00zz__r4_vectors_6_8z00, BgL_bgl_string1941za700za7za7_2116za7, "list1237", 8 );
BGL_DEFINE_STRING(BGl_string1860z00zz__r4_vectors_6_8z00, BgL_bgl_string1860za700za7za7_2117za7, "Object must be a list or a vector", 33 );
BGL_DEFINE_STRING(BGl_string1861z00zz__r4_vectors_6_8z00, BgL_bgl_string1861za700za7za7_2118za7, "inner-sort", 10 );
BGL_DEFINE_STRING(BGl_string1862z00zz__r4_vectors_6_8z00, BgL_bgl_string1862za700za7za7_2119za7, "vector-map2!", 12 );
BGL_DEFINE_STRING(BGl_string1944z00zz__r4_vectors_6_8z00, BgL_bgl_string1944za700za7za7_2120za7, "$cons", 5 );
BGL_DEFINE_STRING(BGl_string1863z00zz__r4_vectors_6_8z00, BgL_bgl_string1863za700za7za7_2121za7, "loop:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string1946z00zz__r4_vectors_6_8z00, BgL_bgl_string1946za700za7za7_2122za7, "args", 4 );
BGL_DEFINE_STRING(BGl_string1866z00zz__r4_vectors_6_8z00, BgL_bgl_string1866za700za7za7_2123za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string1949z00zz__r4_vectors_6_8z00, BgL_bgl_string1949za700za7za7_2124za7, "quote", 5 );
BGL_DEFINE_STRING(BGl_string1868z00zz__r4_vectors_6_8z00, BgL_bgl_string1868za700za7za7_2125za7, "proc", 4 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string1868z00zz__r4_vectors_6_8z00, BgL_bgl_string1868za700za7za7_2125za7);
BGL_BIND_STRING(BGl_string1949z00zz__r4_vectors_6_8z00, BgL_bgl_string1949za700za7za7_2124za7);
BGL_BIND_STRING(BGl_string1866z00zz__r4_vectors_6_8z00, BgL_bgl_string1866za700za7za7_2123za7);
BGL_BIND_STRING(BGl_string1946z00zz__r4_vectors_6_8z00, BgL_bgl_string1946za700za7za7_2122za7);
BGL_BIND_STRING(BGl_string1863z00zz__r4_vectors_6_8z00, BgL_bgl_string1863za700za7za7_2121za7);
BGL_BIND_STRING(BGl_string1944z00zz__r4_vectors_6_8z00, BgL_bgl_string1944za700za7za7_2120za7);
BGL_BIND_STRING(BGl_string1862z00zz__r4_vectors_6_8z00, BgL_bgl_string1862za700za7za7_2119za7);
BGL_BIND_STRING(BGl_string1861z00zz__r4_vectors_6_8z00, BgL_bgl_string1861za700za7za7_2118za7);
BGL_BIND_STRING(BGl_string1860z00zz__r4_vectors_6_8z00, BgL_bgl_string1860za700za7za7_2117za7);
BGL_BIND_STRING(BGl_string1941z00zz__r4_vectors_6_8z00, BgL_bgl_string1941za700za7za7_2116za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2setz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2setza72115za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2forzd2eachzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2forza72114za7);
BGL_BIND_PROCEDURE(BGl_makezd2vectorzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__makeza7d2vectorza7d2113z00);
BGL_BIND_PROCEDURE(BGl_vectorzd2copyz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2copyza712112z00);
BGL_BIND_STRING(BGl_string1859z00zz__r4_vectors_6_8z00, BgL_bgl_string1859za700za7za7_2111za7);
BGL_BIND_STRING(BGl_string1858z00zz__r4_vectors_6_8z00, BgL_bgl_string1858za700za7za7_2110za7);
BGL_BIND_STRING(BGl_string1857z00zz__r4_vectors_6_8z00, BgL_bgl_string1857za700za7za7_2109za7);
BGL_BIND_STRING(BGl_string1856z00zz__r4_vectors_6_8z00, BgL_bgl_string1856za700za7za7_2108za7);
BGL_BIND_STRING(BGl_string1855z00zz__r4_vectors_6_8z00, BgL_bgl_string1855za700za7za7_2107za7);
BGL_BIND_STRING(BGl_string1936z00zz__r4_vectors_6_8z00, BgL_bgl_string1936za700za7za7_2106za7);
BGL_BIND_STRING(BGl_string1853z00zz__r4_vectors_6_8z00, BgL_bgl_string1853za700za7za7_2105za7);
BGL_BIND_STRING(BGl_string1852z00zz__r4_vectors_6_8z00, BgL_bgl_string1852za700za7za7_2104za7);
BGL_BIND_STRING(BGl_string1933z00zz__r4_vectors_6_8z00, BgL_bgl_string1933za700za7za7_2103za7);
BGL_BIND_STRING(BGl_string1851z00zz__r4_vectors_6_8z00, BgL_bgl_string1851za700za7za7_2102za7);
BGL_BIND_STRING(BGl_string1850z00zz__r4_vectors_6_8z00, BgL_bgl_string1850za700za7za7_2101za7);
BGL_BIND_STRING(BGl_string1930z00zz__r4_vectors_6_8z00, BgL_bgl_string1930za700za7za7_2100za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2setzd2urz12zd2envzc0zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2setza72099za7);
BGL_BIND_STRING(BGl_string1849z00zz__r4_vectors_6_8z00, BgL_bgl_string1849za700za7za7_2098za7);
BGL_BIND_STRING(BGl_string1848z00zz__r4_vectors_6_8z00, BgL_bgl_string1848za700za7za7_2097za7);
BGL_BIND_STRING(BGl_string1847z00zz__r4_vectors_6_8z00, BgL_bgl_string1847za700za7za7_2096za7);
BGL_BIND_STRING(BGl_string1846z00zz__r4_vectors_6_8z00, BgL_bgl_string1846za700za7za7_2095za7);
BGL_BIND_STRING(BGl_string1927z00zz__r4_vectors_6_8z00, BgL_bgl_string1927za700za7za7_2094za7);
BGL_BIND_STRING(BGl_string1845z00zz__r4_vectors_6_8z00, BgL_bgl_string1845za700za7za7_2093za7);
BGL_BIND_PROCEDURE(BGl_vectorzf3zd2envz21zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7f3za791za72092z00);
BGL_BIND_STRING(BGl_string1844z00zz__r4_vectors_6_8z00, BgL_bgl_string1844za700za7za7_2091za7);
BGL_BIND_STRING(BGl_string1843z00zz__r4_vectors_6_8z00, BgL_bgl_string1843za700za7za7_2090za7);
BGL_BIND_STRING(BGl_string1924z00zz__r4_vectors_6_8z00, BgL_bgl_string1924za700za7za7_2089za7);
BGL_BIND_STRING(BGl_string1842z00zz__r4_vectors_6_8z00, BgL_bgl_string1842za700za7za7_2088za7);
BGL_BIND_STRING(BGl_string1841z00zz__r4_vectors_6_8z00, BgL_bgl_string1841za700za7za7_2087za7);
BGL_BIND_STRING(BGl_string1840z00zz__r4_vectors_6_8z00, BgL_bgl_string1840za700za7za7_2086za7);
BGL_BIND_STRING(BGl_string1921z00zz__r4_vectors_6_8z00, BgL_bgl_string1921za700za7za7_2085za7);
BGL_BIND_STRING(BGl_string1839z00zz__r4_vectors_6_8z00, BgL_bgl_string1839za700za7za7_2084za7);
BGL_BIND_STRING(BGl_string1838z00zz__r4_vectors_6_8z00, BgL_bgl_string1838za700za7za7_2083za7);
BGL_BIND_STRING(BGl_string1836z00zz__r4_vectors_6_8z00, BgL_bgl_string1836za700za7za7_2082za7);
BGL_BIND_STRING(BGl_string1835z00zz__r4_vectors_6_8z00, BgL_bgl_string1835za700za7za7_2081za7);
BGL_BIND_STRING(BGl_string1916z00zz__r4_vectors_6_8z00, BgL_bgl_string1916za700za7za7_2080za7);
BGL_BIND_STRING(BGl_string1834z00zz__r4_vectors_6_8z00, BgL_bgl_string1834za700za7za7_2079za7);
BGL_BIND_STRING(BGl_string1915z00zz__r4_vectors_6_8z00, BgL_bgl_string1915za700za7za7_2078za7);
BGL_BIND_STRING(BGl_string1833z00zz__r4_vectors_6_8z00, BgL_bgl_string1833za700za7za7_2077za7);
BGL_BIND_STRING(BGl_string1832z00zz__r4_vectors_6_8z00, BgL_bgl_string1832za700za7za7_2076za7);
BGL_BIND_STRING(BGl_string1913z00zz__r4_vectors_6_8z00, BgL_bgl_string1913za700za7za7_2075za7);
BGL_BIND_STRING(BGl_string1831z00zz__r4_vectors_6_8z00, BgL_bgl_string1831za700za7za7_2074za7);
BGL_BIND_STRING(BGl_string1830z00zz__r4_vectors_6_8z00, BgL_bgl_string1830za700za7za7_2073za7);
BGL_BIND_STRING(BGl_string1910z00zz__r4_vectors_6_8z00, BgL_bgl_string1910za700za7za7_2072za7);
BGL_BIND_STRING(BGl_string2005z00zz__r4_vectors_6_8z00, BgL_bgl_string2005za700za7za7_2071za7);
BGL_BIND_STRING(BGl_string2004z00zz__r4_vectors_6_8z00, BgL_bgl_string2004za700za7za7_2070za7);
BGL_BIND_STRING(BGl_string2003z00zz__r4_vectors_6_8z00, BgL_bgl_string2003za700za7za7_2069za7);
BGL_BIND_STRING(BGl_string2002z00zz__r4_vectors_6_8z00, BgL_bgl_string2002za700za7za7_2068za7);
BGL_BIND_STRING(BGl_string2001z00zz__r4_vectors_6_8z00, BgL_bgl_string2001za700za7za7_2067za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2tagzd2setz12zd2envzc0zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2tagza72066za7);
BGL_BIND_STRING(BGl_string1829z00zz__r4_vectors_6_8z00, BgL_bgl_string1829za700za7za7_2065za7);
BGL_BIND_STRING(BGl_string1828z00zz__r4_vectors_6_8z00, BgL_bgl_string1828za700za7za7_2064za7);
BGL_BIND_STRING(BGl_string1827z00zz__r4_vectors_6_8z00, BgL_bgl_string1827za700za7za7_2063za7);
BGL_BIND_STRING(BGl_string1826z00zz__r4_vectors_6_8z00, BgL_bgl_string1826za700za7za7_2062za7);
BGL_BIND_STRING(BGl_string1825z00zz__r4_vectors_6_8z00, BgL_bgl_string1825za700za7za7_2061za7);
BGL_BIND_STRING(BGl_string1824z00zz__r4_vectors_6_8z00, BgL_bgl_string1824za700za7za7_2060za7);
BGL_BIND_STRING(BGl_string1905z00zz__r4_vectors_6_8z00, BgL_bgl_string1905za700za7za7_2059za7);
BGL_BIND_STRING(BGl_string1823z00zz__r4_vectors_6_8z00, BgL_bgl_string1823za700za7za7_2058za7);
BGL_BIND_STRING(BGl_string1822z00zz__r4_vectors_6_8z00, BgL_bgl_string1822za700za7za7_2057za7);
BGL_BIND_STRING(BGl_string1821z00zz__r4_vectors_6_8z00, BgL_bgl_string1821za700za7za7_2056za7);
BGL_BIND_STRING(BGl_string1902z00zz__r4_vectors_6_8z00, BgL_bgl_string1902za700za7za7_2055za7);
BGL_BIND_STRING(BGl_string1820z00zz__r4_vectors_6_8z00, BgL_bgl_string1820za700za7za7_2054za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2lengthzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2leng2053z00);
BGL_BIND_PROCEDURE(BGl_vectorzd2refzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2refza72052za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3vectorzd2envze3zz__r4_vectors_6_8z00, BgL_bgl_za762listza7d2za7e3vec2051za7);
BGL_BIND_STRING(BGl_string1818z00zz__r4_vectors_6_8z00, BgL_bgl_string1818za700za7za7_2050za7);
BGL_BIND_STRING(BGl_string1817z00zz__r4_vectors_6_8z00, BgL_bgl_string1817za700za7za7_2049za7);
BGL_BIND_STRING(BGl_string1816z00zz__r4_vectors_6_8z00, BgL_bgl_string1816za700za7za7_2048za7);
BGL_BIND_STRING(BGl_string1815z00zz__r4_vectors_6_8z00, BgL_bgl_string1815za700za7za7_2047za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2copyzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2copy2046z00);
BGL_BIND_PROCEDURE(BGl_vectorzd2mapz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2mapza72045za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2refzd2urzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2refza72044za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza762za7za7__2043z00);
BGL_BIND_PROCEDURE(BGl_vectorzd2copy3zd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2copy2042z00);
BGL_BIND_PROCEDURE(BGl_vectorzd2tagzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2tagza72041za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2ze3listzd2envze3zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2za7e3l2040za7);
BGL_BIND_STRING(BGl_string1999z00zz__r4_vectors_6_8z00, BgL_bgl_string1999za700za7za7_2039za7);
BGL_BIND_STRING(BGl_string1989z00zz__r4_vectors_6_8z00, BgL_bgl_string1989za700za7za7_2038za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2appendzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2appe2037z00);
BGL_BIND_STRING(BGl_string1983z00zz__r4_vectors_6_8z00, BgL_bgl_string1983za700za7za7_2036za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2fillz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2fillza712035z00);
BGL_BIND_STRING(BGl_string1897z00zz__r4_vectors_6_8z00, BgL_bgl_string1897za700za7za7_2034za7);
BGL_BIND_STRING(BGl_string1978z00zz__r4_vectors_6_8z00, BgL_bgl_string1978za700za7za7_2033za7);
BGL_BIND_STRING(BGl_string1895z00zz__r4_vectors_6_8z00, BgL_bgl_string1895za700za7za7_2032za7);
BGL_BIND_STRING(BGl_string1975z00zz__r4_vectors_6_8z00, BgL_bgl_string1975za700za7za7_2031za7);
BGL_BIND_STRING(BGl_string1892z00zz__r4_vectors_6_8z00, BgL_bgl_string1892za700za7za7_2030za7);
BGL_BIND_PROCEDURE(BGl_sortzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl_za762sortza762za7za7__r42029z00);
BGL_BIND_PROCEDURE(BGl_copyzd2vectorzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762copyza7d2vector2028z00);
BGL_BIND_STRING(BGl_string1969z00zz__r4_vectors_6_8z00, BgL_bgl_string1969za700za7za7_2027za7);
BGL_BIND_STRING(BGl_string1886z00zz__r4_vectors_6_8z00, BgL_bgl_string1886za700za7za7_2026za7);
BGL_BIND_STRING(BGl_string1882z00zz__r4_vectors_6_8z00, BgL_bgl_string1882za700za7za7_2025za7);
BGL_BIND_STRING(BGl_string1963z00zz__r4_vectors_6_8z00, BgL_bgl_string1963za700za7za7_2024za7);
BGL_BIND_STRING(BGl_string1962z00zz__r4_vectors_6_8z00, BgL_bgl_string1962za700za7za7_2023za7);
BGL_BIND_PROCEDURE(BGl_vectorzd2shrinkz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2shri2022z00);
BGL_BIND_PROCEDURE(BGl_vectorzd2mapzd2envz00zz__r4_vectors_6_8z00, BgL_bgl_za762vectorza7d2mapza72021za7);
BGL_BIND_STRING(BGl_string1879z00zz__r4_vectors_6_8z00, BgL_bgl_string1879za700za7za7_2020za7);
BGL_BIND_STRING(BGl_string1959z00zz__r4_vectors_6_8z00, BgL_bgl_string1959za700za7za7_2019za7);
BGL_BIND_STRING(BGl_string1958z00zz__r4_vectors_6_8z00, BgL_bgl_string1958za700za7za7_2018za7);
BGL_BIND_STRING(BGl_string1876z00zz__r4_vectors_6_8z00, BgL_bgl_string1876za700za7za7_2017za7);
BGL_BIND_STRING(BGl_string1957z00zz__r4_vectors_6_8z00, BgL_bgl_string1957za700za7za7_2016za7);
BGL_BIND_STRING(BGl_string1956z00zz__r4_vectors_6_8z00, BgL_bgl_string1956za700za7za7_2015za7);
BGL_BIND_STRING(BGl_string1874z00zz__r4_vectors_6_8z00, BgL_bgl_string1874za700za7za7_2014za7);
BGL_BIND_STRING(BGl_string1955z00zz__r4_vectors_6_8z00, BgL_bgl_string1955za700za7za7_2013za7);
BGL_BIND_STRING(BGl_string1873z00zz__r4_vectors_6_8z00, BgL_bgl_string1873za700za7za7_2012za7);
BGL_BIND_STRING(BGl_string1954z00zz__r4_vectors_6_8z00, BgL_bgl_string1954za700za7za7_2011za7);
BGL_BIND_STRING(BGl_string1872z00zz__r4_vectors_6_8z00, BgL_bgl_string1872za700za7za7_2010za7);
BGL_BIND_STRING(BGl_string1953z00zz__r4_vectors_6_8z00, BgL_bgl_string1953za700za7za7_2009za7);
BGL_BIND_STRING(BGl_string1871z00zz__r4_vectors_6_8z00, BgL_bgl_string1871za700za7za7_2008za7);
BGL_BIND_STRING(BGl_string1952z00zz__r4_vectors_6_8z00, BgL_bgl_string1952za700za7za7_2007za7);
BGL_BIND_STRING(BGl_string1870z00zz__r4_vectors_6_8z00, BgL_bgl_string1870za700za7za7_2006za7);
}

/* 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_symbol1912z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1837z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1920z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1923z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1926z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1929z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1932z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1900z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1935z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1854z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1903z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1906z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1907z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1908z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list2000z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1940z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1943z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1911z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1945z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1865z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1914z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1948z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1867z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1917z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1869z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1918z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1919z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1951z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1922z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1875z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1925z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1878z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1928z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1961z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1881z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1931z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1885z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1934z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1968z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1937z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1938z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1939z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1890z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1891z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1974z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1942z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1894z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1977z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1896z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1864z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1947z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1982z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1950z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1988z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1877z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1960z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1880z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1964z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1883z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1998z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1965z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1884z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1966z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1967z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1887z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1888z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1889z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1970z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1971z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1972z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1973z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1893z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1976z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1979z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1898z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1899z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1980z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1981z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1984z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1985z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1986z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1987z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1990z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1991z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1992z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1993z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1994z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1995z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1996z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_list1997z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1819z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1901z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1904z00zz__r4_vectors_6_8z00) );
ADD_ROOT( (void *)(&BGl_symbol1909z00zz__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_1895, char * BgL_fromz00_1896)
{
{ 
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(); 
BGl_cnstzd2initzd2zz__r4_vectors_6_8z00(); 
return 
BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_vectors_6_8z00(void)
{
{ /* Ieee/vector.scm 18 */
BGl_symbol1819z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1820z00zz__r4_vectors_6_8z00); 
BGl_symbol1837z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1838z00zz__r4_vectors_6_8z00); 
BGl_symbol1854z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1855z00zz__r4_vectors_6_8z00); 
BGl_symbol1865z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1866z00zz__r4_vectors_6_8z00); 
BGl_symbol1867z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1868z00zz__r4_vectors_6_8z00); 
BGl_symbol1869z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1870z00zz__r4_vectors_6_8z00); 
BGl_list1864z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1865z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1869z00zz__r4_vectors_6_8z00, BNIL)))); 
BGl_symbol1875z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1832z00zz__r4_vectors_6_8z00); 
BGl_symbol1878z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1879z00zz__r4_vectors_6_8z00); 
BGl_symbol1881z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1882z00zz__r4_vectors_6_8z00); 
BGl_symbol1885z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1886z00zz__r4_vectors_6_8z00); 
BGl_symbol1890z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1817z00zz__r4_vectors_6_8z00); 
BGl_symbol1891z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1892z00zz__r4_vectors_6_8z00); 
BGl_list1889z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1890z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1891z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_symbol1894z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1895z00zz__r4_vectors_6_8z00); 
BGl_symbol1896z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1897z00zz__r4_vectors_6_8z00); 
BGl_list1893z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1894z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1896z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1888z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1889z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1893z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_symbol1901z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1902z00zz__r4_vectors_6_8z00); 
BGl_list1900z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1890z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_symbol1904z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1905z00zz__r4_vectors_6_8z00); 
BGl_list1903z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1904z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1894z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1899z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1900z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1903z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_symbol1909z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1910z00zz__r4_vectors_6_8z00); 
BGl_symbol1912z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1913z00zz__r4_vectors_6_8z00); 
BGl_list1914z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_string1915z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_string1916z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1911z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1912z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1914z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1908z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1909z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1911z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1907z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1908z00zz__r4_vectors_6_8z00, BNIL); 
BGl_symbol1920z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1921z00zz__r4_vectors_6_8z00); 
BGl_symbol1923z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1924z00zz__r4_vectors_6_8z00); 
BGl_list1922z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1923z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1904z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1909z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1919z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1920z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1922z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1918z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1919z00zz__r4_vectors_6_8z00, BNIL); 
BGl_symbol1926z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1927z00zz__r4_vectors_6_8z00); 
BGl_symbol1929z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1930z00zz__r4_vectors_6_8z00); 
BGl_list1928z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1929z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1904z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_symbol1932z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1933z00zz__r4_vectors_6_8z00); 
BGl_symbol1935z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1936z00zz__r4_vectors_6_8z00); 
BGl_list1934z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1935z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_string1815z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(
BINT(7562L), 
MAKE_YOUNG_PAIR(BGl_string1825z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1909z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1904z00zz__r4_vectors_6_8z00, BNIL))))))); 
BGl_list1931z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1932z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1934z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(
BBOOL(((bool_t)0)), 
MAKE_YOUNG_PAIR(
BBOOL(((bool_t)0)), BNIL)))); 
BGl_list1925z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1926z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1920z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1928z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1931z00zz__r4_vectors_6_8z00, BNIL)))); 
BGl_list1917z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1918z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1925z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1906z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1907z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1917z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1898z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1899z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1906z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1887z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1888z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1898z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1884z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1885z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1887z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1883z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1884z00zz__r4_vectors_6_8z00, BNIL); 
BGl_symbol1940z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1941z00zz__r4_vectors_6_8z00); 
BGl_symbol1943z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1944z00zz__r4_vectors_6_8z00); 
BGl_symbol1945z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1946z00zz__r4_vectors_6_8z00); 
BGl_symbol1948z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1949z00zz__r4_vectors_6_8z00); 
BGl_list1947z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1948z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BNIL, BNIL)); 
BGl_list1942z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1943z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1945z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1947z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1939z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1940z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1942z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1938z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1939z00zz__r4_vectors_6_8z00, BNIL); 
BGl_symbol1951z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1952z00zz__r4_vectors_6_8z00); 
BGl_list1950z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1951z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1885z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1940z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1937z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1938z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1950z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1880z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1883z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1937z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1877z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1878z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1880z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_symbol1961z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1962z00zz__r4_vectors_6_8z00); 
BGl_list1960z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1865z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1961z00zz__r4_vectors_6_8z00, BNIL)))); 
BGl_symbol1968z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1969z00zz__r4_vectors_6_8z00); 
BGl_symbol1974z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1975z00zz__r4_vectors_6_8z00); 
BGl_list1973z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1974z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1890z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_symbol1977z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1978z00zz__r4_vectors_6_8z00); 
BGl_list1976z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1977z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1894z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1972z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1973z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1976z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_symbol1982z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1983z00zz__r4_vectors_6_8z00); 
BGl_list1984z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1912z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1914z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1974z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1981z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1982z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1984z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1980z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1981z00zz__r4_vectors_6_8z00, BNIL); 
BGl_symbol1988z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1989z00zz__r4_vectors_6_8z00); 
BGl_list1990z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1923z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1977z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1982z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1987z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1988z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1990z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1986z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1987z00zz__r4_vectors_6_8z00, BNIL); 
BGl_list1992z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1929z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1974z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1977z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1994z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1935z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_string1815z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(
BINT(7562L), 
MAKE_YOUNG_PAIR(BGl_string1825z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1974z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1982z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1977z00zz__r4_vectors_6_8z00, BNIL))))))); 
BGl_list1993z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1932z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1994z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(
BBOOL(((bool_t)0)), 
MAKE_YOUNG_PAIR(
BBOOL(((bool_t)0)), BNIL)))); 
BGl_list1991z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1926z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1988z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1992z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1993z00zz__r4_vectors_6_8z00, BNIL)))); 
BGl_list1985z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1986z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1991z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1979z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1980z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1985z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1971z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1972z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1979z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1970z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1888z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1971z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1967z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1968z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1970z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1966z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1967z00zz__r4_vectors_6_8z00, BNIL); 
BGl_symbol1998z00zz__r4_vectors_6_8z00 = 
bstring_to_symbol(BGl_string1999z00zz__r4_vectors_6_8z00); 
BGl_list1997z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1998z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1942z00zz__r4_vectors_6_8z00, BNIL)); 
BGl_list1996z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_list1997z00zz__r4_vectors_6_8z00, BNIL); 
BGl_list2000z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1951z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1968z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1998z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1995z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1996z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list2000z00zz__r4_vectors_6_8z00, BNIL))); 
BGl_list1965z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1881z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1966z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1995z00zz__r4_vectors_6_8z00, BNIL))); 
return ( 
BGl_list1964z00zz__r4_vectors_6_8z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1878z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__r4_vectors_6_8z00, 
MAKE_YOUNG_PAIR(BGl_list1965z00zz__r4_vectors_6_8z00, BNIL))), 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_1544, obj_t BgL_objz00_1545)
{
{ /* Ieee/vector.scm 136 */
return 
BBOOL(
BGl_vectorzf3zf3zz__r4_vectors_6_8z00(BgL_objz00_1545));} 

}



/* _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_1885;
{ 
 obj_t BgL_auxz00_2103;
if(
VECTORP(BgL_opt1048z00_6))
{ /* Ieee/vector.scm 142 */
BgL_auxz00_2103 = BgL_opt1048z00_6
; }  else 
{ 
 obj_t BgL_auxz00_2106;
BgL_auxz00_2106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(6640L), BGl_string1816z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1048z00_6); 
FAILURE(BgL_auxz00_2106,BFALSE,BFALSE);} 
BgL_g1050z00_1885 = 
VECTOR_REF(BgL_auxz00_2103,0L); } 
{ 

{ /* Ieee/vector.scm 142 */
 long BgL_aux1052z00_1888;
{ 
 obj_t BgL_auxz00_2111;
if(
VECTORP(BgL_opt1048z00_6))
{ /* Ieee/vector.scm 142 */
BgL_auxz00_2111 = BgL_opt1048z00_6
; }  else 
{ 
 obj_t BgL_auxz00_2114;
BgL_auxz00_2114 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(6640L), BGl_string1816z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1048z00_6); 
FAILURE(BgL_auxz00_2114,BFALSE,BFALSE);} 
BgL_aux1052z00_1888 = 
VECTOR_LENGTH(BgL_auxz00_2111); } 
switch( BgL_aux1052z00_1888) { case 1L : 

{ /* Ieee/vector.scm 142 */

{ /* Ieee/vector.scm 142 */
 long BgL_intz00_1889;
{ /* Ieee/vector.scm 142 */
 obj_t BgL_tmpz00_2119;
if(
INTEGERP(BgL_g1050z00_1885))
{ /* Ieee/vector.scm 142 */
BgL_tmpz00_2119 = BgL_g1050z00_1885
; }  else 
{ 
 obj_t BgL_auxz00_2122;
BgL_auxz00_2122 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(6640L), BGl_string1816z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_g1050z00_1885); 
FAILURE(BgL_auxz00_2122,BFALSE,BFALSE);} 
BgL_intz00_1889 = 
(long)CINT(BgL_tmpz00_2119); } 
return 
make_vector(BgL_intz00_1889, BUNSPEC);} } break;case 2L : 

{ /* Ieee/vector.scm 142 */
 obj_t BgL_fillz00_1890;
{ 
 obj_t BgL_auxz00_2128;
if(
VECTORP(BgL_opt1048z00_6))
{ /* Ieee/vector.scm 142 */
BgL_auxz00_2128 = BgL_opt1048z00_6
; }  else 
{ 
 obj_t BgL_auxz00_2131;
BgL_auxz00_2131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(6640L), BGl_string1816z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1048z00_6); 
FAILURE(BgL_auxz00_2131,BFALSE,BFALSE);} 
BgL_fillz00_1890 = 
VECTOR_REF(BgL_auxz00_2128,1L); } 
{ /* Ieee/vector.scm 142 */

{ /* Ieee/vector.scm 142 */
 long BgL_intz00_1891;
{ /* Ieee/vector.scm 142 */
 obj_t BgL_tmpz00_2136;
if(
INTEGERP(BgL_g1050z00_1885))
{ /* Ieee/vector.scm 142 */
BgL_tmpz00_2136 = BgL_g1050z00_1885
; }  else 
{ 
 obj_t BgL_auxz00_2139;
BgL_auxz00_2139 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(6640L), BGl_string1816z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_g1050z00_1885); 
FAILURE(BgL_auxz00_2139,BFALSE,BFALSE);} 
BgL_intz00_1891 = 
(long)CINT(BgL_tmpz00_2136); } 
return 
make_vector(BgL_intz00_1891, BgL_fillz00_1890);} } } break;
default: 
{ /* Ieee/vector.scm 142 */
 long BgL_arg1088z00_1887;
{ 
 obj_t BgL_auxz00_2145;
if(
VECTORP(BgL_opt1048z00_6))
{ /* Ieee/vector.scm 142 */
BgL_auxz00_2145 = BgL_opt1048z00_6
; }  else 
{ 
 obj_t BgL_auxz00_2148;
BgL_auxz00_2148 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(6640L), BGl_string1818z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1048z00_6); 
FAILURE(BgL_auxz00_2148,BFALSE,BFALSE);} 
BgL_arg1088z00_1887 = 
VECTOR_LENGTH(BgL_auxz00_2145); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1819z00zz__r4_vectors_6_8z00, BGl_string1821z00zz__r4_vectors_6_8z00, 
BINT(BgL_arg1088z00_1887));} } } } } } 

}



/* 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 */
{ /* Ieee/vector.scm 149 */
 obj_t BgL_auxz00_2157;
{ /* Ieee/vector.scm 149 */
 bool_t BgL_test2133z00_2158;
if(
PAIRP(BgL_argsz00_8))
{ /* Ieee/vector.scm 149 */
BgL_test2133z00_2158 = ((bool_t)1)
; }  else 
{ /* Ieee/vector.scm 149 */
BgL_test2133z00_2158 = 
NULLP(BgL_argsz00_8)
; } 
if(BgL_test2133z00_2158)
{ /* Ieee/vector.scm 149 */
BgL_auxz00_2157 = BgL_argsz00_8
; }  else 
{ 
 obj_t BgL_auxz00_2162;
BgL_auxz00_2162 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7003L), BGl_string1817z00zz__r4_vectors_6_8z00, BGl_string1823z00zz__r4_vectors_6_8z00, BgL_argsz00_8); 
FAILURE(BgL_auxz00_2162,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_auxz00_2157);} } 

}



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

}



/* 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_1548, obj_t BgL_vectorz00_1549)
{
{ /* Ieee/vector.scm 154 */
{ /* Ieee/vector.scm 155 */
 long BgL_tmpz00_2169;
{ /* Ieee/vector.scm 155 */
 obj_t BgL_auxz00_2170;
if(
VECTORP(BgL_vectorz00_1549))
{ /* Ieee/vector.scm 155 */
BgL_auxz00_2170 = BgL_vectorz00_1549
; }  else 
{ 
 obj_t BgL_auxz00_2173;
BgL_auxz00_2173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7274L), BGl_string1824z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1549); 
FAILURE(BgL_auxz00_2173,BFALSE,BFALSE);} 
BgL_tmpz00_2169 = 
BGl_vectorzd2lengthzd2zz__r4_vectors_6_8z00(BgL_auxz00_2170); } 
return 
BINT(BgL_tmpz00_2169);} } 

}



/* 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 */
{ /* Ieee/vector.scm 161 */
 bool_t BgL_test2136z00_2179;
{ /* Ieee/vector.scm 161 */
 long BgL_tmpz00_2180;
BgL_tmpz00_2180 = 
VECTOR_LENGTH(BgL_vectorz00_10); 
BgL_test2136z00_2179 = 
BOUND_CHECK(BgL_kz00_11, BgL_tmpz00_2180); } 
if(BgL_test2136z00_2179)
{ /* Ieee/vector.scm 161 */
return 
VECTOR_REF(BgL_vectorz00_10,BgL_kz00_11);}  else 
{ 
 obj_t BgL_auxz00_2184;
BgL_auxz00_2184 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7562L), BGl_string1825z00zz__r4_vectors_6_8z00, BgL_vectorz00_10, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_10)), 
(int)(BgL_kz00_11)); 
FAILURE(BgL_auxz00_2184,BFALSE,BFALSE);} } } 

}



/* &vector-ref */
obj_t BGl_z62vectorzd2refzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1550, obj_t BgL_vectorz00_1551, obj_t BgL_kz00_1552)
{
{ /* Ieee/vector.scm 160 */
{ /* Ieee/vector.scm 161 */
 long BgL_auxz00_2198; obj_t BgL_auxz00_2191;
{ /* Ieee/vector.scm 161 */
 obj_t BgL_tmpz00_2199;
if(
INTEGERP(BgL_kz00_1552))
{ /* Ieee/vector.scm 161 */
BgL_tmpz00_2199 = BgL_kz00_1552
; }  else 
{ 
 obj_t BgL_auxz00_2202;
BgL_auxz00_2202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7562L), BGl_string1826z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_kz00_1552); 
FAILURE(BgL_auxz00_2202,BFALSE,BFALSE);} 
BgL_auxz00_2198 = 
(long)CINT(BgL_tmpz00_2199); } 
if(
VECTORP(BgL_vectorz00_1551))
{ /* Ieee/vector.scm 161 */
BgL_auxz00_2191 = BgL_vectorz00_1551
; }  else 
{ 
 obj_t BgL_auxz00_2194;
BgL_auxz00_2194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7562L), BGl_string1826z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1551); 
FAILURE(BgL_auxz00_2194,BFALSE,BFALSE);} 
return 
BGl_vectorzd2refzd2zz__r4_vectors_6_8z00(BgL_auxz00_2191, BgL_auxz00_2198);} } 

}



/* 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 */
{ /* Ieee/vector.scm 167 */
 bool_t BgL_test2139z00_2208;
{ /* Ieee/vector.scm 167 */
 long BgL_tmpz00_2209;
BgL_tmpz00_2209 = 
VECTOR_LENGTH(BgL_vectorz00_12); 
BgL_test2139z00_2208 = 
BOUND_CHECK(BgL_kz00_13, BgL_tmpz00_2209); } 
if(BgL_test2139z00_2208)
{ /* Ieee/vector.scm 167 */
return 
VECTOR_SET(BgL_vectorz00_12,BgL_kz00_13,BgL_objz00_14);}  else 
{ 
 obj_t BgL_auxz00_2213;
BgL_auxz00_2213 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7854L), BGl_string1827z00zz__r4_vectors_6_8z00, BgL_vectorz00_12, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_12)), 
(int)(BgL_kz00_13)); 
FAILURE(BgL_auxz00_2213,BFALSE,BFALSE);} } } 

}



/* &vector-set! */
obj_t BGl_z62vectorzd2setz12za2zz__r4_vectors_6_8z00(obj_t BgL_envz00_1553, obj_t BgL_vectorz00_1554, obj_t BgL_kz00_1555, obj_t BgL_objz00_1556)
{
{ /* Ieee/vector.scm 166 */
{ /* Ieee/vector.scm 167 */
 long BgL_auxz00_2227; obj_t BgL_auxz00_2220;
{ /* Ieee/vector.scm 167 */
 obj_t BgL_tmpz00_2228;
if(
INTEGERP(BgL_kz00_1555))
{ /* Ieee/vector.scm 167 */
BgL_tmpz00_2228 = BgL_kz00_1555
; }  else 
{ 
 obj_t BgL_auxz00_2231;
BgL_auxz00_2231 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7854L), BGl_string1828z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_kz00_1555); 
FAILURE(BgL_auxz00_2231,BFALSE,BFALSE);} 
BgL_auxz00_2227 = 
(long)CINT(BgL_tmpz00_2228); } 
if(
VECTORP(BgL_vectorz00_1554))
{ /* Ieee/vector.scm 167 */
BgL_auxz00_2220 = BgL_vectorz00_1554
; }  else 
{ 
 obj_t BgL_auxz00_2223;
BgL_auxz00_2223 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7854L), BGl_string1828z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1554); 
FAILURE(BgL_auxz00_2223,BFALSE,BFALSE);} 
return 
BGl_vectorzd2setz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2220, BgL_auxz00_2227, BgL_objz00_1556);} } 

}



/* 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_1557, obj_t BgL_vectorz00_1558, obj_t BgL_kz00_1559)
{
{ /* Ieee/vector.scm 172 */
{ /* Ieee/vector.scm 173 */
 long BgL_auxz00_2245; obj_t BgL_auxz00_2238;
{ /* Ieee/vector.scm 173 */
 obj_t BgL_tmpz00_2246;
if(
INTEGERP(BgL_kz00_1559))
{ /* Ieee/vector.scm 173 */
BgL_tmpz00_2246 = BgL_kz00_1559
; }  else 
{ 
 obj_t BgL_auxz00_2249;
BgL_auxz00_2249 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(8149L), BGl_string1829z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_kz00_1559); 
FAILURE(BgL_auxz00_2249,BFALSE,BFALSE);} 
BgL_auxz00_2245 = 
(long)CINT(BgL_tmpz00_2246); } 
if(
VECTORP(BgL_vectorz00_1558))
{ /* Ieee/vector.scm 173 */
BgL_auxz00_2238 = BgL_vectorz00_1558
; }  else 
{ 
 obj_t BgL_auxz00_2241;
BgL_auxz00_2241 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(8149L), BGl_string1829z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1558); 
FAILURE(BgL_auxz00_2241,BFALSE,BFALSE);} 
return 
BGl_vectorzd2refzd2urz00zz__r4_vectors_6_8z00(BgL_auxz00_2238, BgL_auxz00_2245);} } 

}



/* 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_1560, obj_t BgL_vectorz00_1561, obj_t BgL_kz00_1562, obj_t BgL_objz00_1563)
{
{ /* Ieee/vector.scm 178 */
{ /* Ieee/vector.scm 179 */
 long BgL_auxz00_2263; obj_t BgL_auxz00_2256;
{ /* Ieee/vector.scm 179 */
 obj_t BgL_tmpz00_2264;
if(
INTEGERP(BgL_kz00_1562))
{ /* Ieee/vector.scm 179 */
BgL_tmpz00_2264 = BgL_kz00_1562
; }  else 
{ 
 obj_t BgL_auxz00_2267;
BgL_auxz00_2267 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(8447L), BGl_string1830z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_kz00_1562); 
FAILURE(BgL_auxz00_2267,BFALSE,BFALSE);} 
BgL_auxz00_2263 = 
(long)CINT(BgL_tmpz00_2264); } 
if(
VECTORP(BgL_vectorz00_1561))
{ /* Ieee/vector.scm 179 */
BgL_auxz00_2256 = BgL_vectorz00_1561
; }  else 
{ 
 obj_t BgL_auxz00_2259;
BgL_auxz00_2259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(8447L), BGl_string1830z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1561); 
FAILURE(BgL_auxz00_2259,BFALSE,BFALSE);} 
return 
BGl_vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(BgL_auxz00_2256, BgL_auxz00_2263, BgL_objz00_1563);} } 

}



/* 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_762;
BgL_g1014z00_762 = 
(
VECTOR_LENGTH(BgL_vectorz00_20)-1L); 
{ 
 long BgL_iz00_765; obj_t BgL_accz00_766;
BgL_iz00_765 = BgL_g1014z00_762; 
BgL_accz00_766 = BNIL; 
BgL_zc3z04anonymousza31090ze3z87_767:
if(
(BgL_iz00_765==0L))
{ /* Ieee/vector.scm 190 */
return 
MAKE_YOUNG_PAIR(
VECTOR_REF(BgL_vectorz00_20,BgL_iz00_765), BgL_accz00_766);}  else 
{ /* Ieee/vector.scm 192 */
 long BgL_arg1096z00_770; obj_t BgL_arg1097z00_771;
BgL_arg1096z00_770 = 
(BgL_iz00_765-1L); 
BgL_arg1097z00_771 = 
MAKE_YOUNG_PAIR(
VECTOR_REF(BgL_vectorz00_20,BgL_iz00_765), BgL_accz00_766); 
{ 
 obj_t BgL_accz00_2286; long BgL_iz00_2285;
BgL_iz00_2285 = BgL_arg1096z00_770; 
BgL_accz00_2286 = BgL_arg1097z00_771; 
BgL_accz00_766 = BgL_accz00_2286; 
BgL_iz00_765 = BgL_iz00_2285; 
goto BgL_zc3z04anonymousza31090ze3z87_767;} } } } } 

}



/* &vector->list */
obj_t BGl_z62vectorzd2ze3listz53zz__r4_vectors_6_8z00(obj_t BgL_envz00_1564, obj_t BgL_vectorz00_1565)
{
{ /* Ieee/vector.scm 184 */
{ /* Ieee/vector.scm 185 */
 obj_t BgL_auxz00_2287;
if(
VECTORP(BgL_vectorz00_1565))
{ /* Ieee/vector.scm 185 */
BgL_auxz00_2287 = BgL_vectorz00_1565
; }  else 
{ 
 obj_t BgL_auxz00_2290;
BgL_auxz00_2290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(8735L), BGl_string1831z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1565); 
FAILURE(BgL_auxz00_2290,BFALSE,BFALSE);} 
return 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_auxz00_2287);} } 

}



/* 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_774;
BgL_lenz00_774 = 
bgl_list_length(BgL_listz00_21); 
{ /* Ieee/vector.scm 198 */
 obj_t BgL_vecz00_775;
BgL_vecz00_775 = 
create_vector(BgL_lenz00_774); 
{ /* Ieee/vector.scm 199 */

{ 
 long BgL_iz00_1321; obj_t BgL_lz00_1322;
BgL_iz00_1321 = 0L; 
BgL_lz00_1322 = BgL_listz00_21; 
BgL_loopz00_1320:
if(
(BgL_iz00_1321==BgL_lenz00_774))
{ /* Ieee/vector.scm 202 */
return BgL_vecz00_775;}  else 
{ /* Ieee/vector.scm 202 */
{ /* Ieee/vector.scm 205 */
 obj_t BgL_arg1111z00_1326;
{ /* Ieee/vector.scm 205 */
 obj_t BgL_pairz00_1327;
if(
PAIRP(BgL_lz00_1322))
{ /* Ieee/vector.scm 205 */
BgL_pairz00_1327 = BgL_lz00_1322; }  else 
{ 
 obj_t BgL_auxz00_2301;
BgL_auxz00_2301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9389L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_lz00_1322); 
FAILURE(BgL_auxz00_2301,BFALSE,BFALSE);} 
BgL_arg1111z00_1326 = 
CAR(BgL_pairz00_1327); } 
VECTOR_SET(BgL_vecz00_775,BgL_iz00_1321,BgL_arg1111z00_1326); } 
{ /* Ieee/vector.scm 206 */
 long BgL_arg1115z00_1330; obj_t BgL_arg1116z00_1331;
BgL_arg1115z00_1330 = 
(BgL_iz00_1321+1L); 
{ /* Ieee/vector.scm 206 */
 obj_t BgL_pairz00_1333;
if(
PAIRP(BgL_lz00_1322))
{ /* Ieee/vector.scm 206 */
BgL_pairz00_1333 = BgL_lz00_1322; }  else 
{ 
 obj_t BgL_auxz00_2310;
BgL_auxz00_2310 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9416L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_lz00_1322); 
FAILURE(BgL_auxz00_2310,BFALSE,BFALSE);} 
BgL_arg1116z00_1331 = 
CDR(BgL_pairz00_1333); } 
{ 
 obj_t BgL_lz00_2316; long BgL_iz00_2315;
BgL_iz00_2315 = BgL_arg1115z00_1330; 
BgL_lz00_2316 = BgL_arg1116z00_1331; 
BgL_lz00_1322 = BgL_lz00_2316; 
BgL_iz00_1321 = BgL_iz00_2315; 
goto BgL_loopz00_1320;} } } } } } } } 

}



/* &list->vector */
obj_t BGl_z62listzd2ze3vectorz53zz__r4_vectors_6_8z00(obj_t BgL_envz00_1566, obj_t BgL_listz00_1567)
{
{ /* Ieee/vector.scm 197 */
{ /* Ieee/vector.scm 198 */
 obj_t BgL_auxz00_2317;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_1567))
{ /* Ieee/vector.scm 198 */
BgL_auxz00_2317 = BgL_listz00_1567
; }  else 
{ 
 obj_t BgL_auxz00_2320;
BgL_auxz00_2320 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9225L), BGl_string1834z00zz__r4_vectors_6_8z00, BGl_string1823z00zz__r4_vectors_6_8z00, BgL_listz00_1567); 
FAILURE(BgL_auxz00_2320,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_auxz00_2317);} } 

}



/* _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_785; obj_t BgL_fillz00_786;
{ 
 obj_t BgL_auxz00_2325;
if(
VECTORP(BgL_opt1053z00_26))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2325 = BgL_opt1053z00_26
; }  else 
{ 
 obj_t BgL_auxz00_2328;
BgL_auxz00_2328 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26); 
FAILURE(BgL_auxz00_2328,BFALSE,BFALSE);} 
BgL_vecz00_785 = 
VECTOR_REF(BgL_auxz00_2325,0L); } 
{ 
 obj_t BgL_auxz00_2333;
if(
VECTORP(BgL_opt1053z00_26))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2333 = BgL_opt1053z00_26
; }  else 
{ 
 obj_t BgL_auxz00_2336;
BgL_auxz00_2336 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26); 
FAILURE(BgL_auxz00_2336,BFALSE,BFALSE);} 
BgL_fillz00_786 = 
VECTOR_REF(BgL_auxz00_2333,1L); } 
{ 

{ /* Ieee/vector.scm 211 */
 long BgL_aux1056z00_788;
{ 
 obj_t BgL_auxz00_2341;
if(
VECTORP(BgL_opt1053z00_26))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2341 = BgL_opt1053z00_26
; }  else 
{ 
 obj_t BgL_auxz00_2344;
BgL_auxz00_2344 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26); 
FAILURE(BgL_auxz00_2344,BFALSE,BFALSE);} 
BgL_aux1056z00_788 = 
VECTOR_LENGTH(BgL_auxz00_2341); } 
switch( BgL_aux1056z00_788) { case 2L : 

{ /* Ieee/vector.scm 212 */
 long BgL_endz00_790;
{ /* Ieee/vector.scm 212 */
 obj_t BgL_vectorz00_1334;
if(
VECTORP(BgL_vecz00_785))
{ /* Ieee/vector.scm 212 */
BgL_vectorz00_1334 = BgL_vecz00_785; }  else 
{ 
 obj_t BgL_auxz00_2351;
BgL_auxz00_2351 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9736L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_785); 
FAILURE(BgL_auxz00_2351,BFALSE,BFALSE);} 
BgL_endz00_790 = 
VECTOR_LENGTH(BgL_vectorz00_1334); } 
{ /* Ieee/vector.scm 211 */

{ /* Ieee/vector.scm 211 */
 obj_t BgL_auxz00_2356;
if(
VECTORP(BgL_vecz00_785))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2356 = BgL_vecz00_785
; }  else 
{ 
 obj_t BgL_auxz00_2359;
BgL_auxz00_2359 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_785); 
FAILURE(BgL_auxz00_2359,BFALSE,BFALSE);} 
return 
BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2356, BgL_fillz00_786, 0L, BgL_endz00_790);} } } break;case 3L : 

{ /* Ieee/vector.scm 211 */
 obj_t BgL_startz00_791;
{ 
 obj_t BgL_auxz00_2364;
if(
VECTORP(BgL_opt1053z00_26))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2364 = BgL_opt1053z00_26
; }  else 
{ 
 obj_t BgL_auxz00_2367;
BgL_auxz00_2367 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26); 
FAILURE(BgL_auxz00_2367,BFALSE,BFALSE);} 
BgL_startz00_791 = 
VECTOR_REF(BgL_auxz00_2364,2L); } 
{ /* Ieee/vector.scm 212 */
 long BgL_endz00_792;
{ /* Ieee/vector.scm 212 */
 obj_t BgL_vectorz00_1335;
if(
VECTORP(BgL_vecz00_785))
{ /* Ieee/vector.scm 212 */
BgL_vectorz00_1335 = BgL_vecz00_785; }  else 
{ 
 obj_t BgL_auxz00_2374;
BgL_auxz00_2374 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9736L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_785); 
FAILURE(BgL_auxz00_2374,BFALSE,BFALSE);} 
BgL_endz00_792 = 
VECTOR_LENGTH(BgL_vectorz00_1335); } 
{ /* Ieee/vector.scm 211 */

{ /* Ieee/vector.scm 211 */
 long BgL_auxz00_2386; obj_t BgL_auxz00_2379;
{ /* Ieee/vector.scm 211 */
 obj_t BgL_tmpz00_2387;
if(
INTEGERP(BgL_startz00_791))
{ /* Ieee/vector.scm 211 */
BgL_tmpz00_2387 = BgL_startz00_791
; }  else 
{ 
 obj_t BgL_auxz00_2390;
BgL_auxz00_2390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_startz00_791); 
FAILURE(BgL_auxz00_2390,BFALSE,BFALSE);} 
BgL_auxz00_2386 = 
(long)CINT(BgL_tmpz00_2387); } 
if(
VECTORP(BgL_vecz00_785))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2379 = BgL_vecz00_785
; }  else 
{ 
 obj_t BgL_auxz00_2382;
BgL_auxz00_2382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_785); 
FAILURE(BgL_auxz00_2382,BFALSE,BFALSE);} 
return 
BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2379, BgL_fillz00_786, BgL_auxz00_2386, BgL_endz00_792);} } } } break;case 4L : 

{ /* Ieee/vector.scm 211 */
 obj_t BgL_startz00_793;
{ 
 obj_t BgL_auxz00_2396;
if(
VECTORP(BgL_opt1053z00_26))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2396 = BgL_opt1053z00_26
; }  else 
{ 
 obj_t BgL_auxz00_2399;
BgL_auxz00_2399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26); 
FAILURE(BgL_auxz00_2399,BFALSE,BFALSE);} 
BgL_startz00_793 = 
VECTOR_REF(BgL_auxz00_2396,2L); } 
{ /* Ieee/vector.scm 211 */
 obj_t BgL_endz00_794;
{ 
 obj_t BgL_auxz00_2404;
if(
VECTORP(BgL_opt1053z00_26))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2404 = BgL_opt1053z00_26
; }  else 
{ 
 obj_t BgL_auxz00_2407;
BgL_auxz00_2407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26); 
FAILURE(BgL_auxz00_2407,BFALSE,BFALSE);} 
BgL_endz00_794 = 
VECTOR_REF(BgL_auxz00_2404,3L); } 
{ /* Ieee/vector.scm 211 */

{ /* Ieee/vector.scm 211 */
 long BgL_auxz00_2428; long BgL_auxz00_2419; obj_t BgL_auxz00_2412;
{ /* Ieee/vector.scm 211 */
 obj_t BgL_tmpz00_2429;
if(
INTEGERP(BgL_endz00_794))
{ /* Ieee/vector.scm 211 */
BgL_tmpz00_2429 = BgL_endz00_794
; }  else 
{ 
 obj_t BgL_auxz00_2432;
BgL_auxz00_2432 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_endz00_794); 
FAILURE(BgL_auxz00_2432,BFALSE,BFALSE);} 
BgL_auxz00_2428 = 
(long)CINT(BgL_tmpz00_2429); } 
{ /* Ieee/vector.scm 211 */
 obj_t BgL_tmpz00_2420;
if(
INTEGERP(BgL_startz00_793))
{ /* Ieee/vector.scm 211 */
BgL_tmpz00_2420 = BgL_startz00_793
; }  else 
{ 
 obj_t BgL_auxz00_2423;
BgL_auxz00_2423 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_startz00_793); 
FAILURE(BgL_auxz00_2423,BFALSE,BFALSE);} 
BgL_auxz00_2419 = 
(long)CINT(BgL_tmpz00_2420); } 
if(
VECTORP(BgL_vecz00_785))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2412 = BgL_vecz00_785
; }  else 
{ 
 obj_t BgL_auxz00_2415;
BgL_auxz00_2415 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1835z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_785); 
FAILURE(BgL_auxz00_2415,BFALSE,BFALSE);} 
return 
BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2412, BgL_fillz00_786, BgL_auxz00_2419, BgL_auxz00_2428);} } } } break;
default: 
{ /* Ieee/vector.scm 211 */
 long BgL_arg1117z00_795;
{ 
 obj_t BgL_auxz00_2438;
if(
VECTORP(BgL_opt1053z00_26))
{ /* Ieee/vector.scm 211 */
BgL_auxz00_2438 = BgL_opt1053z00_26
; }  else 
{ 
 obj_t BgL_auxz00_2441;
BgL_auxz00_2441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(9648L), BGl_string1836z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1053z00_26); 
FAILURE(BgL_auxz00_2441,BFALSE,BFALSE);} 
BgL_arg1117z00_795 = 
VECTOR_LENGTH(BgL_auxz00_2438); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1837z00zz__r4_vectors_6_8z00, BGl_string1839z00zz__r4_vectors_6_8z00, 
BINT(BgL_arg1117z00_795));} } } } } } 

}



/* 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_string1838z00zz__r4_vectors_6_8z00, BGl_string1840z00zz__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_string1838z00zz__r4_vectors_6_8z00, BGl_string1841z00zz__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_test2171z00_2460;
if(
(BgL_startz00_24==BgL_endz00_25))
{ /* Ieee/vector.scm 219 */
BgL_test2171z00_2460 = 
(BgL_startz00_24==0L)
; }  else 
{ /* Ieee/vector.scm 219 */
BgL_test2171z00_2460 = ((bool_t)0)
; } 
if(BgL_test2171z00_2460)
{ /* Ieee/vector.scm 219 */
return BUNSPEC;}  else 
{ /* Ieee/vector.scm 222 */
 obj_t BgL_arg1129z00_802;
BgL_arg1129z00_802 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_24), 
BINT(BgL_endz00_25)); 
return 
BGl_errorz00zz__errorz00(BGl_string1838z00zz__r4_vectors_6_8z00, BGl_string1842z00zz__r4_vectors_6_8z00, BgL_arg1129z00_802);} }  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_1568, obj_t BgL_vectorz00_1569)
{
{ /* Ieee/vector.scm 229 */
{ /* Ieee/vector.scm 230 */
 int BgL_tmpz00_2470;
{ /* Ieee/vector.scm 230 */
 obj_t BgL_auxz00_2471;
if(
VECTORP(BgL_vectorz00_1569))
{ /* Ieee/vector.scm 230 */
BgL_auxz00_2471 = BgL_vectorz00_1569
; }  else 
{ 
 obj_t BgL_auxz00_2474;
BgL_auxz00_2474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(10416L), BGl_string1843z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1569); 
FAILURE(BgL_auxz00_2474,BFALSE,BFALSE);} 
BgL_tmpz00_2470 = 
BGl_vectorzd2tagzd2zz__r4_vectors_6_8z00(BgL_auxz00_2471); } 
return 
BINT(BgL_tmpz00_2470);} } 

}



/* 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_1570, obj_t BgL_vectorz00_1571, obj_t BgL_tagz00_1572)
{
{ /* Ieee/vector.scm 235 */
{ /* Ieee/vector.scm 236 */
 int BgL_auxz00_2488; obj_t BgL_auxz00_2481;
{ /* Ieee/vector.scm 236 */
 obj_t BgL_tmpz00_2489;
if(
INTEGERP(BgL_tagz00_1572))
{ /* Ieee/vector.scm 236 */
BgL_tmpz00_2489 = BgL_tagz00_1572
; }  else 
{ 
 obj_t BgL_auxz00_2492;
BgL_auxz00_2492 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(10708L), BGl_string1844z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_tagz00_1572); 
FAILURE(BgL_auxz00_2492,BFALSE,BFALSE);} 
BgL_auxz00_2488 = 
CINT(BgL_tmpz00_2489); } 
if(
VECTORP(BgL_vectorz00_1571))
{ /* Ieee/vector.scm 236 */
BgL_auxz00_2481 = BgL_vectorz00_1571
; }  else 
{ 
 obj_t BgL_auxz00_2484;
BgL_auxz00_2484 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(10708L), BGl_string1844z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vectorz00_1571); 
FAILURE(BgL_auxz00_2484,BFALSE,BFALSE);} 
return 
BGl_vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(BgL_auxz00_2481, BgL_auxz00_2488);} } 

}



/* 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_806;
BgL_newzd2veczd2_806 = 
make_vector(BgL_newzd2lenzd2_32, BUNSPEC); 
{ /* Ieee/vector.scm 243 */
 long BgL_minz00_807;
if(
(BgL_newzd2lenzd2_32<
VECTOR_LENGTH(BgL_oldzd2veczd2_31)))
{ /* Ieee/vector.scm 244 */
BgL_minz00_807 = BgL_newzd2lenzd2_32; }  else 
{ /* Ieee/vector.scm 244 */
BgL_minz00_807 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_31); } 
{ /* Ieee/vector.scm 244 */

return 
BGL_VECTOR_BLIT_NO_OVERLAP(BgL_newzd2veczd2_806, BgL_oldzd2veczd2_31, 0L, 0L, BgL_minz00_807);} } } } 

}



/* &copy-vector */
obj_t BGl_z62copyzd2vectorzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1573, obj_t BgL_oldzd2veczd2_1574, obj_t BgL_newzd2lenzd2_1575)
{
{ /* Ieee/vector.scm 241 */
{ /* Ieee/vector.scm 242 */
 long BgL_auxz00_2511; obj_t BgL_auxz00_2504;
{ /* Ieee/vector.scm 242 */
 obj_t BgL_tmpz00_2512;
if(
INTEGERP(BgL_newzd2lenzd2_1575))
{ /* Ieee/vector.scm 242 */
BgL_tmpz00_2512 = BgL_newzd2lenzd2_1575
; }  else 
{ 
 obj_t BgL_auxz00_2515;
BgL_auxz00_2515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11025L), BGl_string1845z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_newzd2lenzd2_1575); 
FAILURE(BgL_auxz00_2515,BFALSE,BFALSE);} 
BgL_auxz00_2511 = 
(long)CINT(BgL_tmpz00_2512); } 
if(
VECTORP(BgL_oldzd2veczd2_1574))
{ /* Ieee/vector.scm 242 */
BgL_auxz00_2504 = BgL_oldzd2veczd2_1574
; }  else 
{ 
 obj_t BgL_auxz00_2507;
BgL_auxz00_2507 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11025L), BGl_string1845z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_1574); 
FAILURE(BgL_auxz00_2507,BFALSE,BFALSE);} 
return 
BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(BgL_auxz00_2504, BgL_auxz00_2511);} } 

}



/* 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_811;
{ /* Ieee/vector.scm 263 */
 long BgL_za71za7_1350; long BgL_za72za7_1351;
{ /* Ieee/vector.scm 263 */
 obj_t BgL_tmpz00_2521;
if(
INTEGERP(BgL_stopz00_35))
{ /* Ieee/vector.scm 263 */
BgL_tmpz00_2521 = BgL_stopz00_35
; }  else 
{ 
 obj_t BgL_auxz00_2524;
BgL_auxz00_2524 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11765L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_stopz00_35); 
FAILURE(BgL_auxz00_2524,BFALSE,BFALSE);} 
BgL_za71za7_1350 = 
(long)CINT(BgL_tmpz00_2521); } 
{ /* Ieee/vector.scm 263 */
 obj_t BgL_tmpz00_2529;
if(
INTEGERP(BgL_startz00_34))
{ /* Ieee/vector.scm 263 */
BgL_tmpz00_2529 = BgL_startz00_34
; }  else 
{ 
 obj_t BgL_auxz00_2532;
BgL_auxz00_2532 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11770L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_startz00_34); 
FAILURE(BgL_auxz00_2532,BFALSE,BFALSE);} 
BgL_za72za7_1351 = 
(long)CINT(BgL_tmpz00_2529); } 
BgL_newzd2lenzd2_811 = 
(BgL_za71za7_1350-BgL_za72za7_1351); } 
{ /* Ieee/vector.scm 263 */
 obj_t BgL_newzd2veczd2_812;
BgL_newzd2veczd2_812 = 
make_vector(BgL_newzd2lenzd2_811, BUNSPEC); 
{ /* Ieee/vector.scm 265 */

{ /* Ieee/vector.scm 268 */
 bool_t BgL_test2181z00_2539;
if(
(BgL_newzd2lenzd2_811<0L))
{ /* Ieee/vector.scm 268 */
BgL_test2181z00_2539 = ((bool_t)1)
; }  else 
{ /* Ieee/vector.scm 268 */
 bool_t BgL_test2183z00_2542;
{ /* Ieee/vector.scm 268 */
 long BgL_n1z00_1356;
{ /* Ieee/vector.scm 268 */
 obj_t BgL_tmpz00_2543;
if(
INTEGERP(BgL_startz00_34))
{ /* Ieee/vector.scm 268 */
BgL_tmpz00_2543 = BgL_startz00_34
; }  else 
{ 
 obj_t BgL_auxz00_2546;
BgL_auxz00_2546 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11911L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_startz00_34); 
FAILURE(BgL_auxz00_2546,BFALSE,BFALSE);} 
BgL_n1z00_1356 = 
(long)CINT(BgL_tmpz00_2543); } 
BgL_test2183z00_2542 = 
(BgL_n1z00_1356>
VECTOR_LENGTH(BgL_oldzd2veczd2_33)); } 
if(BgL_test2183z00_2542)
{ /* Ieee/vector.scm 268 */
BgL_test2181z00_2539 = ((bool_t)1)
; }  else 
{ /* Ieee/vector.scm 268 */
 long BgL_n1z00_1358;
{ /* Ieee/vector.scm 268 */
 obj_t BgL_tmpz00_2553;
if(
INTEGERP(BgL_stopz00_35))
{ /* Ieee/vector.scm 268 */
BgL_tmpz00_2553 = BgL_stopz00_35
; }  else 
{ 
 obj_t BgL_auxz00_2556;
BgL_auxz00_2556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11931L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_stopz00_35); 
FAILURE(BgL_auxz00_2556,BFALSE,BFALSE);} 
BgL_n1z00_1358 = 
(long)CINT(BgL_tmpz00_2553); } 
BgL_test2181z00_2539 = 
(BgL_n1z00_1358>
VECTOR_LENGTH(BgL_oldzd2veczd2_33)); } } 
if(BgL_test2181z00_2539)
{ /* Ieee/vector.scm 269 */
 obj_t BgL_arg1136z00_817;
BgL_arg1136z00_817 = 
MAKE_YOUNG_PAIR(BgL_startz00_34, BgL_stopz00_35); 
{ /* Ieee/vector.scm 269 */
 obj_t BgL_aux1688z00_1715;
BgL_aux1688z00_1715 = 
BGl_errorz00zz__errorz00(BGl_string1847z00zz__r4_vectors_6_8z00, BGl_string1848z00zz__r4_vectors_6_8z00, BgL_arg1136z00_817); 
if(
VECTORP(BgL_aux1688z00_1715))
{ /* Ieee/vector.scm 269 */
return BgL_aux1688z00_1715;}  else 
{ 
 obj_t BgL_auxz00_2567;
BgL_auxz00_2567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11949L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_aux1688z00_1715); 
FAILURE(BgL_auxz00_2567,BFALSE,BFALSE);} } }  else 
{ /* Ieee/vector.scm 272 */
 long BgL_arg1137z00_818;
{ /* Ieee/vector.scm 272 */
 long BgL_za71za7_1360; long BgL_za72za7_1361;
{ /* Ieee/vector.scm 272 */
 obj_t BgL_tmpz00_2571;
if(
INTEGERP(BgL_stopz00_35))
{ /* Ieee/vector.scm 272 */
BgL_tmpz00_2571 = BgL_stopz00_35
; }  else 
{ 
 obj_t BgL_auxz00_2574;
BgL_auxz00_2574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(12101L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_stopz00_35); 
FAILURE(BgL_auxz00_2574,BFALSE,BFALSE);} 
BgL_za71za7_1360 = 
(long)CINT(BgL_tmpz00_2571); } 
{ /* Ieee/vector.scm 272 */
 obj_t BgL_tmpz00_2579;
if(
INTEGERP(BgL_startz00_34))
{ /* Ieee/vector.scm 272 */
BgL_tmpz00_2579 = BgL_startz00_34
; }  else 
{ 
 obj_t BgL_auxz00_2582;
BgL_auxz00_2582 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(12106L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_startz00_34); 
FAILURE(BgL_auxz00_2582,BFALSE,BFALSE);} 
BgL_za72za7_1361 = 
(long)CINT(BgL_tmpz00_2579); } 
BgL_arg1137z00_818 = 
(BgL_za71za7_1360-BgL_za72za7_1361); } 
{ /* Ieee/vector.scm 272 */
 long BgL_tmpz00_2588;
{ /* Ieee/vector.scm 272 */
 obj_t BgL_tmpz00_2589;
if(
INTEGERP(BgL_startz00_34))
{ /* Ieee/vector.scm 272 */
BgL_tmpz00_2589 = BgL_startz00_34
; }  else 
{ 
 obj_t BgL_auxz00_2592;
BgL_auxz00_2592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(12090L), BGl_string1846z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_startz00_34); 
FAILURE(BgL_auxz00_2592,BFALSE,BFALSE);} 
BgL_tmpz00_2588 = 
(long)CINT(BgL_tmpz00_2589); } 
return 
BGL_VECTOR_BLIT_NO_OVERLAP(BgL_newzd2veczd2_812, BgL_oldzd2veczd2_33, 0L, BgL_tmpz00_2588, BgL_arg1137z00_818);} } } } } } } 

}



/* &vector-copy3 */
obj_t BGl_z62vectorzd2copy3zb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1576, obj_t BgL_oldzd2veczd2_1577, obj_t BgL_startz00_1578, obj_t BgL_stopz00_1579)
{
{ /* Ieee/vector.scm 261 */
{ /* Ieee/vector.scm 262 */
 obj_t BgL_auxz00_2598;
if(
VECTORP(BgL_oldzd2veczd2_1577))
{ /* Ieee/vector.scm 262 */
BgL_auxz00_2598 = BgL_oldzd2veczd2_1577
; }  else 
{ 
 obj_t BgL_auxz00_2601;
BgL_auxz00_2601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(11707L), BGl_string1849z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_1577); 
FAILURE(BgL_auxz00_2601,BFALSE,BFALSE);} 
return 
BGl_vectorzd2copy3zd2zz__r4_vectors_6_8z00(BgL_auxz00_2598, BgL_startz00_1578, BgL_stopz00_1579);} } 

}



/* 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_824;
if(
PAIRP(BgL_argsz00_37))
{ /* Ieee/vector.scm 287 */
if(
INTEGERP(
CAR(BgL_argsz00_37)))
{ /* Ieee/vector.scm 288 */
BgL_startz00_824 = 
CAR(BgL_argsz00_37); }  else 
{ /* Ieee/vector.scm 288 */
BgL_startz00_824 = 
BGl_errorz00zz__errorz00(BGl_string1847z00zz__r4_vectors_6_8z00, BGl_string1850z00zz__r4_vectors_6_8z00, 
CAR(BgL_argsz00_37)); } }  else 
{ /* Ieee/vector.scm 287 */
BgL_startz00_824 = 
BINT(0L); } 
{ /* Ieee/vector.scm 287 */
 obj_t BgL_stopz00_825;
{ /* Ieee/vector.scm 292 */
 bool_t BgL_test2193z00_2615;
if(
PAIRP(BgL_argsz00_37))
{ /* Ieee/vector.scm 292 */
 obj_t BgL_tmpz00_2618;
BgL_tmpz00_2618 = 
CDR(BgL_argsz00_37); 
BgL_test2193z00_2615 = 
PAIRP(BgL_tmpz00_2618); }  else 
{ /* Ieee/vector.scm 292 */
BgL_test2193z00_2615 = ((bool_t)0)
; } 
if(BgL_test2193z00_2615)
{ /* Ieee/vector.scm 293 */
 bool_t BgL_test2195z00_2621;
{ /* Ieee/vector.scm 293 */
 bool_t BgL_test2196z00_2622;
{ /* Ieee/vector.scm 293 */
 obj_t BgL_tmpz00_2623;
{ /* Ieee/vector.scm 293 */
 obj_t BgL_pairz00_1370;
{ /* Ieee/vector.scm 293 */
 obj_t BgL_aux1695z00_1722;
BgL_aux1695z00_1722 = 
CDR(BgL_argsz00_37); 
if(
PAIRP(BgL_aux1695z00_1722))
{ /* Ieee/vector.scm 293 */
BgL_pairz00_1370 = BgL_aux1695z00_1722; }  else 
{ 
 obj_t BgL_auxz00_2627;
BgL_auxz00_2627 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(12843L), BGl_string1847z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_aux1695z00_1722); 
FAILURE(BgL_auxz00_2627,BFALSE,BFALSE);} } 
BgL_tmpz00_2623 = 
CDR(BgL_pairz00_1370); } 
BgL_test2196z00_2622 = 
PAIRP(BgL_tmpz00_2623); } 
if(BgL_test2196z00_2622)
{ /* Ieee/vector.scm 293 */
BgL_test2195z00_2621 = ((bool_t)1)
; }  else 
{ /* Ieee/vector.scm 294 */
 bool_t BgL_test2198z00_2633;
{ /* Ieee/vector.scm 294 */
 obj_t BgL_tmpz00_2634;
{ /* Ieee/vector.scm 294 */
 obj_t BgL_pairz00_1374;
{ /* Ieee/vector.scm 294 */
 obj_t BgL_aux1697z00_1724;
BgL_aux1697z00_1724 = 
CDR(BgL_argsz00_37); 
if(
PAIRP(BgL_aux1697z00_1724))
{ /* Ieee/vector.scm 294 */
BgL_pairz00_1374 = BgL_aux1697z00_1724; }  else 
{ 
 obj_t BgL_auxz00_2638;
BgL_auxz00_2638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(12877L), BGl_string1847z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_aux1697z00_1724); 
FAILURE(BgL_auxz00_2638,BFALSE,BFALSE);} } 
BgL_tmpz00_2634 = 
CAR(BgL_pairz00_1374); } 
BgL_test2198z00_2633 = 
INTEGERP(BgL_tmpz00_2634); } 
if(BgL_test2198z00_2633)
{ /* Ieee/vector.scm 294 */
BgL_test2195z00_2621 = ((bool_t)0)
; }  else 
{ /* Ieee/vector.scm 294 */
BgL_test2195z00_2621 = ((bool_t)1)
; } } } 
if(BgL_test2195z00_2621)
{ /* Ieee/vector.scm 293 */
BgL_stopz00_825 = 
BGl_errorz00zz__errorz00(BGl_string1847z00zz__r4_vectors_6_8z00, BGl_string1850z00zz__r4_vectors_6_8z00, 
CDR(BgL_argsz00_37)); }  else 
{ /* Ieee/vector.scm 296 */
 obj_t BgL_pairz00_1379;
{ /* Ieee/vector.scm 296 */
 obj_t BgL_aux1699z00_1726;
BgL_aux1699z00_1726 = 
CDR(BgL_argsz00_37); 
if(
PAIRP(BgL_aux1699z00_1726))
{ /* Ieee/vector.scm 296 */
BgL_pairz00_1379 = BgL_aux1699z00_1726; }  else 
{ 
 obj_t BgL_auxz00_2649;
BgL_auxz00_2649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(12950L), BGl_string1847z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_aux1699z00_1726); 
FAILURE(BgL_auxz00_2649,BFALSE,BFALSE);} } 
BgL_stopz00_825 = 
CAR(BgL_pairz00_1379); } }  else 
{ /* Ieee/vector.scm 292 */
BgL_stopz00_825 = 
BINT(
VECTOR_LENGTH(BgL_oldzd2veczd2_36)); } } 
{ /* Ieee/vector.scm 292 */

return 
BGl_vectorzd2copy3zd2zz__r4_vectors_6_8z00(BgL_oldzd2veczd2_36, BgL_startz00_824, BgL_stopz00_825);} } } } 

}



/* &vector-copy */
obj_t BGl_z62vectorzd2copyzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1580, obj_t BgL_oldzd2veczd2_1581, obj_t BgL_argsz00_1582)
{
{ /* Ieee/vector.scm 285 */
{ /* Ieee/vector.scm 286 */
 obj_t BgL_auxz00_2657;
if(
VECTORP(BgL_oldzd2veczd2_1581))
{ /* Ieee/vector.scm 286 */
BgL_auxz00_2657 = BgL_oldzd2veczd2_1581
; }  else 
{ 
 obj_t BgL_auxz00_2660;
BgL_auxz00_2660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(12588L), BGl_string1851z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_1581); 
FAILURE(BgL_auxz00_2660,BFALSE,BFALSE);} 
return 
BGl_vectorzd2copyzd2zz__r4_vectors_6_8z00(BgL_auxz00_2657, BgL_argsz00_1582);} } 

}



/* _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_848; obj_t BgL_g1060z00_849; obj_t BgL_sourcez00_850;
{ 
 obj_t BgL_auxz00_2665;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2665 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2668;
BgL_auxz00_2668 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2668,BFALSE,BFALSE);} 
BgL_g1059z00_848 = 
VECTOR_REF(BgL_auxz00_2665,0L); } 
{ 
 obj_t BgL_auxz00_2673;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2673 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2676;
BgL_auxz00_2676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2676,BFALSE,BFALSE);} 
BgL_g1060z00_849 = 
VECTOR_REF(BgL_auxz00_2673,1L); } 
{ 
 obj_t BgL_auxz00_2681;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2681 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2684;
BgL_auxz00_2684 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2684,BFALSE,BFALSE);} 
BgL_sourcez00_850 = 
VECTOR_REF(BgL_auxz00_2681,2L); } 
{ 

{ /* Ieee/vector.scm 303 */
 long BgL_aux1062z00_852;
{ 
 obj_t BgL_auxz00_2689;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2689 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2692;
BgL_auxz00_2692 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2692,BFALSE,BFALSE);} 
BgL_aux1062z00_852 = 
VECTOR_LENGTH(BgL_auxz00_2689); } 
switch( BgL_aux1062z00_852) { case 3L : 

{ /* Ieee/vector.scm 304 */
 long BgL_sendz00_854;
{ /* Ieee/vector.scm 304 */
 obj_t BgL_vectorz00_1380;
if(
VECTORP(BgL_sourcez00_850))
{ /* Ieee/vector.scm 304 */
BgL_vectorz00_1380 = BgL_sourcez00_850; }  else 
{ 
 obj_t BgL_auxz00_2699;
BgL_auxz00_2699 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13335L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_sourcez00_850); 
FAILURE(BgL_auxz00_2699,BFALSE,BFALSE);} 
BgL_sendz00_854 = 
VECTOR_LENGTH(BgL_vectorz00_1380); } 
{ /* Ieee/vector.scm 303 */

{ /* Ieee/vector.scm 303 */
 long BgL_auxz00_2711; obj_t BgL_auxz00_2704;
{ /* Ieee/vector.scm 303 */
 obj_t BgL_tmpz00_2712;
if(
INTEGERP(BgL_g1060z00_849))
{ /* Ieee/vector.scm 303 */
BgL_tmpz00_2712 = BgL_g1060z00_849
; }  else 
{ 
 obj_t BgL_auxz00_2715;
BgL_auxz00_2715 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_g1060z00_849); 
FAILURE(BgL_auxz00_2715,BFALSE,BFALSE);} 
BgL_auxz00_2711 = 
(long)CINT(BgL_tmpz00_2712); } 
if(
VECTORP(BgL_g1059z00_848))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2704 = BgL_g1059z00_848
; }  else 
{ 
 obj_t BgL_auxz00_2707;
BgL_auxz00_2707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_g1059z00_848); 
FAILURE(BgL_auxz00_2707,BFALSE,BFALSE);} 
return 
BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2704, BgL_auxz00_2711, BgL_sourcez00_850, 
BINT(0L), 
BINT(BgL_sendz00_854));} } } break;case 4L : 

{ /* Ieee/vector.scm 303 */
 obj_t BgL_sstartz00_855;
{ 
 obj_t BgL_auxz00_2723;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2723 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2726;
BgL_auxz00_2726 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2726,BFALSE,BFALSE);} 
BgL_sstartz00_855 = 
VECTOR_REF(BgL_auxz00_2723,3L); } 
{ /* Ieee/vector.scm 304 */
 long BgL_sendz00_856;
{ /* Ieee/vector.scm 304 */
 obj_t BgL_vectorz00_1381;
if(
VECTORP(BgL_sourcez00_850))
{ /* Ieee/vector.scm 304 */
BgL_vectorz00_1381 = BgL_sourcez00_850; }  else 
{ 
 obj_t BgL_auxz00_2733;
BgL_auxz00_2733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13335L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_sourcez00_850); 
FAILURE(BgL_auxz00_2733,BFALSE,BFALSE);} 
BgL_sendz00_856 = 
VECTOR_LENGTH(BgL_vectorz00_1381); } 
{ /* Ieee/vector.scm 303 */

{ /* Ieee/vector.scm 303 */
 long BgL_auxz00_2745; obj_t BgL_auxz00_2738;
{ /* Ieee/vector.scm 303 */
 obj_t BgL_tmpz00_2746;
if(
INTEGERP(BgL_g1060z00_849))
{ /* Ieee/vector.scm 303 */
BgL_tmpz00_2746 = BgL_g1060z00_849
; }  else 
{ 
 obj_t BgL_auxz00_2749;
BgL_auxz00_2749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_g1060z00_849); 
FAILURE(BgL_auxz00_2749,BFALSE,BFALSE);} 
BgL_auxz00_2745 = 
(long)CINT(BgL_tmpz00_2746); } 
if(
VECTORP(BgL_g1059z00_848))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2738 = BgL_g1059z00_848
; }  else 
{ 
 obj_t BgL_auxz00_2741;
BgL_auxz00_2741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_g1059z00_848); 
FAILURE(BgL_auxz00_2741,BFALSE,BFALSE);} 
return 
BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2738, BgL_auxz00_2745, BgL_sourcez00_850, BgL_sstartz00_855, 
BINT(BgL_sendz00_856));} } } } break;case 5L : 

{ /* Ieee/vector.scm 303 */
 obj_t BgL_sstartz00_857;
{ 
 obj_t BgL_auxz00_2756;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2756 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2759;
BgL_auxz00_2759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2759,BFALSE,BFALSE);} 
BgL_sstartz00_857 = 
VECTOR_REF(BgL_auxz00_2756,3L); } 
{ /* Ieee/vector.scm 303 */
 obj_t BgL_sendz00_858;
{ 
 obj_t BgL_auxz00_2764;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2764 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2767;
BgL_auxz00_2767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2767,BFALSE,BFALSE);} 
BgL_sendz00_858 = 
VECTOR_REF(BgL_auxz00_2764,4L); } 
{ /* Ieee/vector.scm 303 */

{ /* Ieee/vector.scm 303 */
 long BgL_auxz00_2779; obj_t BgL_auxz00_2772;
{ /* Ieee/vector.scm 303 */
 obj_t BgL_tmpz00_2780;
if(
INTEGERP(BgL_g1060z00_849))
{ /* Ieee/vector.scm 303 */
BgL_tmpz00_2780 = BgL_g1060z00_849
; }  else 
{ 
 obj_t BgL_auxz00_2783;
BgL_auxz00_2783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_g1060z00_849); 
FAILURE(BgL_auxz00_2783,BFALSE,BFALSE);} 
BgL_auxz00_2779 = 
(long)CINT(BgL_tmpz00_2780); } 
if(
VECTORP(BgL_g1059z00_848))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2772 = BgL_g1059z00_848
; }  else 
{ 
 obj_t BgL_auxz00_2775;
BgL_auxz00_2775 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1852z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_g1059z00_848); 
FAILURE(BgL_auxz00_2775,BFALSE,BFALSE);} 
return 
BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_2772, BgL_auxz00_2779, BgL_sourcez00_850, BgL_sstartz00_857, BgL_sendz00_858);} } } } break;
default: 
{ /* Ieee/vector.scm 303 */
 long BgL_arg1170z00_859;
{ 
 obj_t BgL_auxz00_2789;
if(
VECTORP(BgL_opt1057z00_43))
{ /* Ieee/vector.scm 303 */
BgL_auxz00_2789 = BgL_opt1057z00_43
; }  else 
{ 
 obj_t BgL_auxz00_2792;
BgL_auxz00_2792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13245L), BGl_string1853z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_opt1057z00_43); 
FAILURE(BgL_auxz00_2792,BFALSE,BFALSE);} 
BgL_arg1170z00_859 = 
VECTOR_LENGTH(BgL_auxz00_2789); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1854z00zz__r4_vectors_6_8z00, BGl_string1856z00zz__r4_vectors_6_8z00, 
BINT(BgL_arg1170z00_859));} } } } } } 

}



/* 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_860;
{ /* Ieee/vector.scm 305 */
 long BgL_bz00_869;
{ /* Ieee/vector.scm 305 */
 obj_t BgL_vectorz00_1382;
if(
VECTORP(BgL_sourcez00_40))
{ /* Ieee/vector.scm 305 */
BgL_vectorz00_1382 = BgL_sourcez00_40; }  else 
{ 
 obj_t BgL_auxz00_2802;
BgL_auxz00_2802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13387L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_sourcez00_40); 
FAILURE(BgL_auxz00_2802,BFALSE,BFALSE);} 
BgL_bz00_869 = 
VECTOR_LENGTH(BgL_vectorz00_1382); } 
{ /* Ieee/vector.scm 305 */
 bool_t BgL_test2219z00_2807;
{ /* Ieee/vector.scm 305 */
 long BgL_n1z00_1383;
{ /* Ieee/vector.scm 305 */
 obj_t BgL_tmpz00_2808;
if(
INTEGERP(BgL_sendz00_42))
{ /* Ieee/vector.scm 305 */
BgL_tmpz00_2808 = BgL_sendz00_42
; }  else 
{ 
 obj_t BgL_auxz00_2811;
BgL_auxz00_2811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13372L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_sendz00_42); 
FAILURE(BgL_auxz00_2811,BFALSE,BFALSE);} 
BgL_n1z00_1383 = 
(long)CINT(BgL_tmpz00_2808); } 
BgL_test2219z00_2807 = 
(BgL_n1z00_1383<BgL_bz00_869); } 
if(BgL_test2219z00_2807)
{ /* Ieee/vector.scm 305 */
BgL_endz00_860 = BgL_sendz00_42; }  else 
{ /* Ieee/vector.scm 305 */
BgL_endz00_860 = 
BINT(BgL_bz00_869); } } } 
{ /* Ieee/vector.scm 305 */
 long BgL_countz00_861;
{ /* Ieee/vector.scm 306 */
 long BgL_za71za7_1385; long BgL_za72za7_1386;
{ /* Ieee/vector.scm 306 */
 obj_t BgL_tmpz00_2818;
if(
INTEGERP(BgL_endz00_860))
{ /* Ieee/vector.scm 306 */
BgL_tmpz00_2818 = BgL_endz00_860
; }  else 
{ 
 obj_t BgL_auxz00_2821;
BgL_auxz00_2821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13419L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_endz00_860); 
FAILURE(BgL_auxz00_2821,BFALSE,BFALSE);} 
BgL_za71za7_1385 = 
(long)CINT(BgL_tmpz00_2818); } 
{ /* Ieee/vector.scm 306 */
 obj_t BgL_tmpz00_2826;
if(
INTEGERP(BgL_sstartz00_41))
{ /* Ieee/vector.scm 306 */
BgL_tmpz00_2826 = BgL_sstartz00_41
; }  else 
{ 
 obj_t BgL_auxz00_2829;
BgL_auxz00_2829 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13423L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_sstartz00_41); 
FAILURE(BgL_auxz00_2829,BFALSE,BFALSE);} 
BgL_za72za7_1386 = 
(long)CINT(BgL_tmpz00_2826); } 
BgL_countz00_861 = 
(BgL_za71za7_1385-BgL_za72za7_1386); } 
{ /* Ieee/vector.scm 306 */
 long BgL_tendz00_862;
{ /* Ieee/vector.scm 307 */
 long BgL_az00_865;
BgL_az00_865 = 
(BgL_tstartz00_39+BgL_countz00_861); 
if(
(BgL_az00_865<
VECTOR_LENGTH(BgL_targetz00_38)))
{ /* Ieee/vector.scm 307 */
BgL_tendz00_862 = BgL_az00_865; }  else 
{ /* Ieee/vector.scm 307 */
BgL_tendz00_862 = 
VECTOR_LENGTH(BgL_targetz00_38); } } 
{ /* Ieee/vector.scm 307 */

if(
(BgL_targetz00_38==BgL_sourcez00_40))
{ /* Ieee/vector.scm 311 */
 long BgL_arg1187z00_863;
BgL_arg1187z00_863 = 
(BgL_tendz00_862-BgL_tstartz00_39); 
{ /* Ieee/vector.scm 311 */
 long BgL_auxz00_2850; obj_t BgL_tmpz00_2843;
{ /* Ieee/vector.scm 311 */
 obj_t BgL_tmpz00_2851;
if(
INTEGERP(BgL_sstartz00_41))
{ /* Ieee/vector.scm 311 */
BgL_tmpz00_2851 = BgL_sstartz00_41
; }  else 
{ 
 obj_t BgL_auxz00_2854;
BgL_auxz00_2854 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13609L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_sstartz00_41); 
FAILURE(BgL_auxz00_2854,BFALSE,BFALSE);} 
BgL_auxz00_2850 = 
(long)CINT(BgL_tmpz00_2851); } 
if(
VECTORP(BgL_sourcez00_40))
{ /* Ieee/vector.scm 311 */
BgL_tmpz00_2843 = BgL_sourcez00_40
; }  else 
{ 
 obj_t BgL_auxz00_2846;
BgL_auxz00_2846 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13595L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_sourcez00_40); 
FAILURE(BgL_auxz00_2846,BFALSE,BFALSE);} 
return 
BGL_VECTOR_BLIT_OVERLAP(BgL_targetz00_38, BgL_tmpz00_2843, BgL_tstartz00_39, BgL_auxz00_2850, BgL_arg1187z00_863);} }  else 
{ /* Ieee/vector.scm 312 */
 long BgL_arg1189z00_864;
BgL_arg1189z00_864 = 
(BgL_tendz00_862-BgL_tstartz00_39); 
{ /* Ieee/vector.scm 312 */
 long BgL_auxz00_2868; obj_t BgL_tmpz00_2861;
{ /* Ieee/vector.scm 312 */
 obj_t BgL_tmpz00_2869;
if(
INTEGERP(BgL_sstartz00_41))
{ /* Ieee/vector.scm 312 */
BgL_tmpz00_2869 = BgL_sstartz00_41
; }  else 
{ 
 obj_t BgL_auxz00_2872;
BgL_auxz00_2872 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13689L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_sstartz00_41); 
FAILURE(BgL_auxz00_2872,BFALSE,BFALSE);} 
BgL_auxz00_2868 = 
(long)CINT(BgL_tmpz00_2869); } 
if(
VECTORP(BgL_sourcez00_40))
{ /* Ieee/vector.scm 312 */
BgL_tmpz00_2861 = BgL_sourcez00_40
; }  else 
{ 
 obj_t BgL_auxz00_2864;
BgL_auxz00_2864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(13675L), BGl_string1855z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_sourcez00_40); 
FAILURE(BgL_auxz00_2864,BFALSE,BFALSE);} 
return 
BGL_VECTOR_BLIT_NO_OVERLAP(BgL_targetz00_38, BgL_tmpz00_2861, BgL_tstartz00_39, BgL_auxz00_2868, BgL_arg1189z00_864);} } } } } } } 

}



/* 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_873; obj_t BgL_vectsz00_874;
BgL_lenz00_873 = 
VECTOR_LENGTH(BgL_vecz00_45); 
BgL_vectsz00_874 = BgL_argsz00_46; 
BgL_zc3z04anonymousza31192ze3z87_875:
if(
NULLP(BgL_vectsz00_874))
{ /* Ieee/vector.scm 335 */
 obj_t BgL_resz00_877;
BgL_resz00_877 = 
make_vector(BgL_lenz00_873, BUNSPEC); 
{ /* Ieee/vector.scm 112 */

BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(BgL_resz00_877, 0L, BgL_vecz00_45, 
BINT(0L), 
BINT(
VECTOR_LENGTH(BgL_vecz00_45))); } 
{ 
 long BgL_iz00_885; obj_t BgL_vectsz00_886;
BgL_iz00_885 = 
VECTOR_LENGTH(BgL_vecz00_45); 
BgL_vectsz00_886 = BgL_argsz00_46; 
BgL_zc3z04anonymousza31194ze3z87_887:
if(
NULLP(BgL_vectsz00_886))
{ /* Ieee/vector.scm 339 */
return BgL_resz00_877;}  else 
{ /* Ieee/vector.scm 341 */
 obj_t BgL_vecz00_889;
{ /* Ieee/vector.scm 341 */
 obj_t BgL_pairz00_1400;
if(
PAIRP(BgL_vectsz00_886))
{ /* Ieee/vector.scm 341 */
BgL_pairz00_1400 = BgL_vectsz00_886; }  else 
{ 
 obj_t BgL_auxz00_2889;
BgL_auxz00_2889 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(14743L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_vectsz00_886); 
FAILURE(BgL_auxz00_2889,BFALSE,BFALSE);} 
BgL_vecz00_889 = 
CAR(BgL_pairz00_1400); } 
{ /* Ieee/vector.scm 112 */
 long BgL_sendz00_894;
{ /* Ieee/vector.scm 112 */
 obj_t BgL_vectorz00_1401;
if(
VECTORP(BgL_vecz00_889))
{ /* Ieee/vector.scm 112 */
BgL_vectorz00_1401 = BgL_vecz00_889; }  else 
{ 
 obj_t BgL_auxz00_2896;
BgL_auxz00_2896 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(5224L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_889); 
FAILURE(BgL_auxz00_2896,BFALSE,BFALSE);} 
BgL_sendz00_894 = 
VECTOR_LENGTH(BgL_vectorz00_1401); } 
{ /* Ieee/vector.scm 112 */

BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(BgL_resz00_877, BgL_iz00_885, BgL_vecz00_889, 
BINT(0L), 
BINT(BgL_sendz00_894)); } } 
{ /* Ieee/vector.scm 343 */
 long BgL_arg1196z00_895; obj_t BgL_arg1197z00_896;
{ /* Ieee/vector.scm 343 */
 long BgL_arg1201z00_897;
{ /* Ieee/vector.scm 343 */
 obj_t BgL_vectorz00_1402;
if(
VECTORP(BgL_vecz00_889))
{ /* Ieee/vector.scm 343 */
BgL_vectorz00_1402 = BgL_vecz00_889; }  else 
{ 
 obj_t BgL_auxz00_2906;
BgL_auxz00_2906 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(14823L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_889); 
FAILURE(BgL_auxz00_2906,BFALSE,BFALSE);} 
BgL_arg1201z00_897 = 
VECTOR_LENGTH(BgL_vectorz00_1402); } 
BgL_arg1196z00_895 = 
(BgL_iz00_885+BgL_arg1201z00_897); } 
{ /* Ieee/vector.scm 343 */
 obj_t BgL_pairz00_1405;
if(
PAIRP(BgL_vectsz00_886))
{ /* Ieee/vector.scm 343 */
BgL_pairz00_1405 = BgL_vectsz00_886; }  else 
{ 
 obj_t BgL_auxz00_2914;
BgL_auxz00_2914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(14834L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_vectsz00_886); 
FAILURE(BgL_auxz00_2914,BFALSE,BFALSE);} 
BgL_arg1197z00_896 = 
CDR(BgL_pairz00_1405); } 
{ 
 obj_t BgL_vectsz00_2920; long BgL_iz00_2919;
BgL_iz00_2919 = BgL_arg1196z00_895; 
BgL_vectsz00_2920 = BgL_arg1197z00_896; 
BgL_vectsz00_886 = BgL_vectsz00_2920; 
BgL_iz00_885 = BgL_iz00_2919; 
goto BgL_zc3z04anonymousza31194ze3z87_887;} } } } }  else 
{ /* Ieee/vector.scm 344 */
 long BgL_arg1203z00_900; obj_t BgL_arg1206z00_901;
{ /* Ieee/vector.scm 344 */
 long BgL_arg1207z00_902;
{ /* Ieee/vector.scm 344 */
 obj_t BgL_arg1208z00_903;
{ /* Ieee/vector.scm 344 */
 obj_t BgL_pairz00_1406;
if(
PAIRP(BgL_vectsz00_874))
{ /* Ieee/vector.scm 344 */
BgL_pairz00_1406 = BgL_vectsz00_874; }  else 
{ 
 obj_t BgL_auxz00_2924;
BgL_auxz00_2924 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(14880L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_vectsz00_874); 
FAILURE(BgL_auxz00_2924,BFALSE,BFALSE);} 
BgL_arg1208z00_903 = 
CAR(BgL_pairz00_1406); } 
{ /* Ieee/vector.scm 344 */
 obj_t BgL_vectorz00_1407;
if(
VECTORP(BgL_arg1208z00_903))
{ /* Ieee/vector.scm 344 */
BgL_vectorz00_1407 = BgL_arg1208z00_903; }  else 
{ 
 obj_t BgL_auxz00_2931;
BgL_auxz00_2931 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(14885L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_arg1208z00_903); 
FAILURE(BgL_auxz00_2931,BFALSE,BFALSE);} 
BgL_arg1207z00_902 = 
VECTOR_LENGTH(BgL_vectorz00_1407); } } 
BgL_arg1203z00_900 = 
(BgL_arg1207z00_902+BgL_lenz00_873); } 
{ /* Ieee/vector.scm 344 */
 obj_t BgL_pairz00_1410;
if(
PAIRP(BgL_vectsz00_874))
{ /* Ieee/vector.scm 344 */
BgL_pairz00_1410 = BgL_vectsz00_874; }  else 
{ 
 obj_t BgL_auxz00_2939;
BgL_auxz00_2939 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(14898L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1833z00zz__r4_vectors_6_8z00, BgL_vectsz00_874); 
FAILURE(BgL_auxz00_2939,BFALSE,BFALSE);} 
BgL_arg1206z00_901 = 
CDR(BgL_pairz00_1410); } 
{ 
 obj_t BgL_vectsz00_2945; long BgL_lenz00_2944;
BgL_lenz00_2944 = BgL_arg1203z00_900; 
BgL_vectsz00_2945 = BgL_arg1206z00_901; 
BgL_vectsz00_874 = BgL_vectsz00_2945; 
BgL_lenz00_873 = BgL_lenz00_2944; 
goto BgL_zc3z04anonymousza31192ze3z87_875;} } } } 

}



/* &vector-append */
obj_t BGl_z62vectorzd2appendzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1583, obj_t BgL_vecz00_1584, obj_t BgL_argsz00_1585)
{
{ /* Ieee/vector.scm 331 */
{ /* Ieee/vector.scm 332 */
 obj_t BgL_auxz00_2947;
if(
VECTORP(BgL_vecz00_1584))
{ /* Ieee/vector.scm 332 */
BgL_auxz00_2947 = BgL_vecz00_1584
; }  else 
{ 
 obj_t BgL_auxz00_2950;
BgL_auxz00_2950 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(14486L), BGl_string1857z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_1584); 
FAILURE(BgL_auxz00_2950,BFALSE,BFALSE);} 
return 
BGl_vectorzd2appendzd2zz__r4_vectors_6_8z00(BgL_auxz00_2947, BgL_argsz00_1585);} } 

}



/* 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 352 */
 obj_t BgL_auxz00_2958;
if(
PROCEDUREP(BgL_o2z00_48))
{ /* Ieee/vector.scm 352 */
BgL_auxz00_2958 = BgL_o2z00_48
; }  else 
{ 
 obj_t BgL_auxz00_2961;
BgL_auxz00_2961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(15224L), BGl_string1858z00zz__r4_vectors_6_8z00, BGl_string1859z00zz__r4_vectors_6_8z00, BgL_o2z00_48); 
FAILURE(BgL_auxz00_2961,BFALSE,BFALSE);} 
return 
BGl_innerzd2sortzd2zz__r4_vectors_6_8z00(BgL_o1z00_47, BgL_auxz00_2958);} } 

}



/* &sort */
obj_t BGl_z62sortz62zz__r4_vectors_6_8z00(obj_t BgL_envz00_1586, obj_t BgL_o1z00_1587, obj_t BgL_o2z00_1588)
{
{ /* Ieee/vector.scm 349 */
return 
BGl_sortz00zz__r4_vectors_6_8z00(BgL_o1z00_1587, BgL_o2z00_1588);} 

}



/* 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_test2242z00_2969;
if(
PAIRP(BgL_objz00_49))
{ /* Ieee/vector.scm 361 */
BgL_test2242z00_2969 = 
NULLP(
CDR(BgL_objz00_49))
; }  else 
{ /* Ieee/vector.scm 361 */
BgL_test2242z00_2969 = ((bool_t)0)
; } 
if(BgL_test2242z00_2969)
{ /* Ieee/vector.scm 361 */
return BgL_objz00_49;}  else 
{ /* Ieee/vector.scm 364 */
 obj_t BgL_vecz00_910;
if(
VECTORP(BgL_objz00_49))
{ /* Ieee/vector.scm 366 */
 obj_t BgL_newz00_915;
BgL_newz00_915 = 
create_vector(
VECTOR_LENGTH(BgL_objz00_49)); 
{ /* Ieee/vector.scm 367 */

{ 
 long BgL_iz00_917;
BgL_iz00_917 = 0L; 
BgL_zc3z04anonymousza31217ze3z87_918:
if(
(BgL_iz00_917<
VECTOR_LENGTH(BgL_objz00_49)))
{ /* Ieee/vector.scm 369 */
{ /* Ieee/vector.scm 371 */
 obj_t BgL_arg1219z00_920;
BgL_arg1219z00_920 = 
VECTOR_REF(
((obj_t)BgL_objz00_49),BgL_iz00_917); 
VECTOR_SET(BgL_newz00_915,BgL_iz00_917,BgL_arg1219z00_920); } 
{ 
 long BgL_iz00_2984;
BgL_iz00_2984 = 
(BgL_iz00_917+1L); 
BgL_iz00_917 = BgL_iz00_2984; 
goto BgL_zc3z04anonymousza31217ze3z87_918;} }  else 
{ /* Ieee/vector.scm 369 */((bool_t)0); } } 
BgL_vecz00_910 = BgL_newz00_915; } }  else 
{ /* Ieee/vector.scm 365 */
if(
PAIRP(BgL_objz00_49))
{ /* Ieee/vector.scm 374 */
BgL_vecz00_910 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_objz00_49); }  else 
{ /* Ieee/vector.scm 374 */
BgL_vecz00_910 = 
BGl_errorz00zz__errorz00(BGl_string1858z00zz__r4_vectors_6_8z00, BGl_string1860z00zz__r4_vectors_6_8z00, BgL_objz00_49); } } 
{ /* Ieee/vector.scm 380 */
 obj_t BgL_resz00_911;
{ /* Ieee/vector.scm 380 */
 obj_t BgL_tmpz00_2990;
if(
VECTORP(BgL_vecz00_910))
{ /* Ieee/vector.scm 380 */
BgL_tmpz00_2990 = BgL_vecz00_910
; }  else 
{ 
 obj_t BgL_auxz00_2993;
BgL_auxz00_2993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(16041L), BGl_string1861z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_910); 
FAILURE(BgL_auxz00_2993,BFALSE,BFALSE);} 
BgL_resz00_911 = 
sort_vector(BgL_tmpz00_2990, BgL_procz00_50); } 
if(
PAIRP(BgL_objz00_49))
{ /* Ieee/vector.scm 381 */
return 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_resz00_911);}  else 
{ /* Ieee/vector.scm 381 */
return BgL_resz00_911;} } } } } 

}



/* vector-map2! */
obj_t BGl_vectorzd2map2z12zc0zz__r4_vectors_6_8z00(obj_t BgL_procz00_51, obj_t BgL_vdestz00_52, obj_t BgL_vsrcz00_53)
{
{ /* Ieee/vector.scm 388 */
{ /* Ieee/vector.scm 389 */
 long BgL_lenz00_926;
{ /* Ieee/vector.scm 389 */
 obj_t BgL_vectorz00_1421;
if(
VECTORP(BgL_vdestz00_52))
{ /* Ieee/vector.scm 389 */
BgL_vectorz00_1421 = BgL_vdestz00_52; }  else 
{ 
 obj_t BgL_auxz00_3003;
BgL_auxz00_3003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(16401L), BGl_string1862z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vdestz00_52); 
FAILURE(BgL_auxz00_3003,BFALSE,BFALSE);} 
BgL_lenz00_926 = 
VECTOR_LENGTH(BgL_vectorz00_1421); } 
{ 
 long BgL_iz00_928;
BgL_iz00_928 = 0L; 
BgL_zc3z04anonymousza31227ze3z87_929:
if(
(BgL_iz00_928<BgL_lenz00_926))
{ /* Ieee/vector.scm 391 */
{ /* Ieee/vector.scm 393 */
 obj_t BgL_arg1230z00_931;
{ /* Ieee/vector.scm 393 */
 obj_t BgL_arg1231z00_932;
BgL_arg1231z00_932 = 
VECTOR_REF(BgL_vsrcz00_53,BgL_iz00_928); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_51, 1))
{ /* Ieee/vector.scm 393 */
BgL_arg1230z00_931 = 
BGL_PROCEDURE_CALL1(BgL_procz00_51, BgL_arg1231z00_932); }  else 
{ /* Ieee/vector.scm 393 */
FAILURE(BGl_string1863z00zz__r4_vectors_6_8z00,BGl_list1864z00zz__r4_vectors_6_8z00,BgL_procz00_51);} } 
{ /* Ieee/vector.scm 393 */
 obj_t BgL_vectorz00_1426;
if(
VECTORP(BgL_vdestz00_52))
{ /* Ieee/vector.scm 393 */
BgL_vectorz00_1426 = BgL_vdestz00_52; }  else 
{ 
 obj_t BgL_auxz00_3020;
BgL_auxz00_3020 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(16483L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vdestz00_52); 
FAILURE(BgL_auxz00_3020,BFALSE,BFALSE);} 
VECTOR_SET(BgL_vectorz00_1426,BgL_iz00_928,BgL_arg1230z00_931); } } 
{ 
 long BgL_iz00_3025;
BgL_iz00_3025 = 
(BgL_iz00_928+1L); 
BgL_iz00_928 = BgL_iz00_3025; 
goto BgL_zc3z04anonymousza31227ze3z87_929;} }  else 
{ /* Ieee/vector.scm 391 */
return BgL_vdestz00_52;} } } } 

}



/* 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 */
{ /* Ieee/vector.scm 401 */
 long BgL_lenz00_935;
{ /* Ieee/vector.scm 401 */
 obj_t BgL_vectorz00_1429;
if(
VECTORP(BgL_vdestz00_55))
{ /* Ieee/vector.scm 401 */
BgL_vectorz00_1429 = BgL_vdestz00_55; }  else 
{ 
 obj_t BgL_auxz00_3029;
BgL_auxz00_3029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(16855L), BGl_string1871z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vdestz00_55); 
FAILURE(BgL_auxz00_3029,BFALSE,BFALSE);} 
BgL_lenz00_935 = 
VECTOR_LENGTH(BgL_vectorz00_1429); } 
{ 
 long BgL_iz00_937;
BgL_iz00_937 = 0L; 
BgL_zc3z04anonymousza31233ze3z87_938:
if(
(BgL_iz00_937<BgL_lenz00_935))
{ /* Ieee/vector.scm 404 */
 obj_t BgL_argsz00_940;
if(
NULLP(BgL_vrestz00_57))
{ /* Ieee/vector.scm 404 */
BgL_argsz00_940 = BNIL; }  else 
{ /* Ieee/vector.scm 404 */
 obj_t BgL_head1036z00_947;
BgL_head1036z00_947 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1034z00_949; obj_t BgL_tail1037z00_950;
BgL_l1034z00_949 = BgL_vrestz00_57; 
BgL_tail1037z00_950 = BgL_head1036z00_947; 
BgL_zc3z04anonymousza31239ze3z87_951:
if(
PAIRP(BgL_l1034z00_949))
{ /* Ieee/vector.scm 404 */
 obj_t BgL_newtail1038z00_953;
{ /* Ieee/vector.scm 404 */
 obj_t BgL_arg1242z00_955;
{ /* Ieee/vector.scm 404 */
 obj_t BgL_vz00_956;
BgL_vz00_956 = 
CAR(BgL_l1034z00_949); 
{ /* Ieee/vector.scm 404 */
 obj_t BgL_vectorz00_1433;
if(
VECTORP(BgL_vz00_956))
{ /* Ieee/vector.scm 404 */
BgL_vectorz00_1433 = BgL_vz00_956; }  else 
{ 
 obj_t BgL_auxz00_3044;
BgL_auxz00_3044 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(16954L), BGl_string1872z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vz00_956); 
FAILURE(BgL_auxz00_3044,BFALSE,BFALSE);} 
{ /* Ieee/vector.scm 161 */
 bool_t BgL_test2258z00_3048;
{ /* Ieee/vector.scm 161 */
 long BgL_tmpz00_3049;
BgL_tmpz00_3049 = 
VECTOR_LENGTH(BgL_vectorz00_1433); 
BgL_test2258z00_3048 = 
BOUND_CHECK(BgL_iz00_937, BgL_tmpz00_3049); } 
if(BgL_test2258z00_3048)
{ /* Ieee/vector.scm 161 */
BgL_arg1242z00_955 = 
VECTOR_REF(BgL_vectorz00_1433,BgL_iz00_937); }  else 
{ 
 obj_t BgL_auxz00_3053;
BgL_auxz00_3053 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7562L), BGl_string1825z00zz__r4_vectors_6_8z00, BgL_vectorz00_1433, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_1433)), 
(int)(BgL_iz00_937)); 
FAILURE(BgL_auxz00_3053,BFALSE,BFALSE);} } } } 
BgL_newtail1038z00_953 = 
MAKE_YOUNG_PAIR(BgL_arg1242z00_955, BNIL); } 
SET_CDR(BgL_tail1037z00_950, BgL_newtail1038z00_953); 
{ 
 obj_t BgL_tail1037z00_3064; obj_t BgL_l1034z00_3062;
BgL_l1034z00_3062 = 
CDR(BgL_l1034z00_949); 
BgL_tail1037z00_3064 = BgL_newtail1038z00_953; 
BgL_tail1037z00_950 = BgL_tail1037z00_3064; 
BgL_l1034z00_949 = BgL_l1034z00_3062; 
goto BgL_zc3z04anonymousza31239ze3z87_951;} }  else 
{ /* Ieee/vector.scm 404 */
if(
NULLP(BgL_l1034z00_949))
{ /* Ieee/vector.scm 404 */
BgL_argsz00_940 = 
CDR(BgL_head1036z00_947); }  else 
{ /* Ieee/vector.scm 404 */
BgL_argsz00_940 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1873z00zz__r4_vectors_6_8z00, BGl_string1874z00zz__r4_vectors_6_8z00, BgL_l1034z00_949, BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(16925L)); } } } } 
{ /* Ieee/vector.scm 404 */
 obj_t BgL_nvalz00_941;
{ /* Ieee/vector.scm 405 */
 obj_t BgL_valz00_1806;
{ /* Ieee/vector.scm 405 */
 obj_t BgL_arg1236z00_943;
{ /* Ieee/vector.scm 161 */
 bool_t BgL_test2260z00_3070;
{ /* Ieee/vector.scm 161 */
 long BgL_tmpz00_3071;
BgL_tmpz00_3071 = 
VECTOR_LENGTH(BgL_vsrcz00_56); 
BgL_test2260z00_3070 = 
BOUND_CHECK(BgL_iz00_937, BgL_tmpz00_3071); } 
if(BgL_test2260z00_3070)
{ /* Ieee/vector.scm 161 */
BgL_arg1236z00_943 = 
VECTOR_REF(BgL_vsrcz00_56,BgL_iz00_937); }  else 
{ 
 obj_t BgL_auxz00_3075;
BgL_auxz00_3075 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7562L), BGl_string1825z00zz__r4_vectors_6_8z00, BgL_vsrcz00_56, 
(int)(
VECTOR_LENGTH(BgL_vsrcz00_56)), 
(int)(BgL_iz00_937)); 
FAILURE(BgL_auxz00_3075,BFALSE,BFALSE);} } 
{ /* Ieee/vector.scm 405 */
 obj_t BgL_list1237z00_944;
BgL_list1237z00_944 = 
MAKE_YOUNG_PAIR(BgL_argsz00_940, BNIL); 
{ /* Ieee/vector.scm 405 */
 obj_t BgL_aux1774z00_1803;
BgL_aux1774z00_1803 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_arg1236z00_943, BgL_list1237z00_944); 
{ /* Ieee/vector.scm 405 */
 bool_t BgL_test2261z00_3084;
if(
PAIRP(BgL_aux1774z00_1803))
{ /* Ieee/vector.scm 405 */
BgL_test2261z00_3084 = ((bool_t)1)
; }  else 
{ /* Ieee/vector.scm 405 */
BgL_test2261z00_3084 = 
NULLP(BgL_aux1774z00_1803)
; } 
if(BgL_test2261z00_3084)
{ /* Ieee/vector.scm 405 */
BgL_valz00_1806 = BgL_aux1774z00_1803; }  else 
{ 
 obj_t BgL_auxz00_3088;
BgL_auxz00_3088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(16980L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1823z00zz__r4_vectors_6_8z00, BgL_aux1774z00_1803); 
FAILURE(BgL_auxz00_3088,BFALSE,BFALSE);} } } } } 
{ /* Ieee/vector.scm 405 */
 long BgL_len1776z00_1807;
BgL_len1776z00_1807 = 
(int)(
bgl_list_length(BgL_valz00_1806)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_54, BgL_len1776z00_1807))
{ /* Ieee/vector.scm 405 */
BgL_nvalz00_941 = 
apply(BgL_procz00_54, BgL_valz00_1806); }  else 
{ /* Ieee/vector.scm 405 */
FAILURE(BGl_symbol1875z00zz__r4_vectors_6_8z00,BGl_string1876z00zz__r4_vectors_6_8z00,BGl_list1877z00zz__r4_vectors_6_8z00);} } } 
{ /* Ieee/vector.scm 405 */

{ /* Ieee/vector.scm 406 */
 obj_t BgL_vectorz00_1440;
if(
VECTORP(BgL_vdestz00_55))
{ /* Ieee/vector.scm 406 */
BgL_vectorz00_1440 = BgL_vdestz00_55; }  else 
{ 
 obj_t BgL_auxz00_3101;
BgL_auxz00_3101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17038L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vdestz00_55); 
FAILURE(BgL_auxz00_3101,BFALSE,BFALSE);} 
VECTOR_SET(BgL_vectorz00_1440,BgL_iz00_937,BgL_nvalz00_941); } 
{ 
 long BgL_iz00_3106;
BgL_iz00_3106 = 
(BgL_iz00_937+1L); 
BgL_iz00_937 = BgL_iz00_3106; 
goto BgL_zc3z04anonymousza31233ze3z87_938;} } } }  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_961;
BgL_nvz00_961 = 
create_vector(
VECTOR_LENGTH(BgL_vz00_59)); 
{ /* Ieee/vector.scm 415 */

if(
NULLP(BgL_restz00_60))
{ /* Ieee/vector.scm 418 */
 obj_t BgL_aux1779z00_1810;
BgL_aux1779z00_1810 = 
BGl_vectorzd2map2z12zc0zz__r4_vectors_6_8z00(BgL_procz00_58, BgL_nvz00_961, BgL_vz00_59); 
if(
VECTORP(BgL_aux1779z00_1810))
{ /* Ieee/vector.scm 418 */
return BgL_aux1779z00_1810;}  else 
{ 
 obj_t BgL_auxz00_3115;
BgL_auxz00_3115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17441L), BGl_string1953z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_aux1779z00_1810); 
FAILURE(BgL_auxz00_3115,BFALSE,BFALSE);} }  else 
{ /* Ieee/vector.scm 419 */
 bool_t BgL_test2267z00_3119;
{ /* Ieee/vector.scm 419 */
 obj_t BgL_zc3z04anonymousza31256ze3z87_1589;
BgL_zc3z04anonymousza31256ze3z87_1589 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31256ze3ze5zz__r4_vectors_6_8z00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31256ze3z87_1589, 
(int)(0L), 
BINT(
VECTOR_LENGTH(BgL_vz00_59))); 
BgL_test2267z00_3119 = 
CBOOL(
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3z04anonymousza31256ze3z87_1589, BNIL)); } 
if(BgL_test2267z00_3119)
{ /* Ieee/vector.scm 420 */
 obj_t BgL_aux1781z00_1812;
BgL_aux1781z00_1812 = 
BGl_vectorzd2mapNz12zc0zz__r4_vectors_6_8z00(BgL_procz00_58, BgL_nvz00_961, BgL_vz00_59, BgL_restz00_60); 
if(
VECTORP(BgL_aux1781z00_1812))
{ /* Ieee/vector.scm 420 */
return BgL_aux1781z00_1812;}  else 
{ 
 obj_t BgL_auxz00_3132;
BgL_auxz00_3132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17540L), BGl_string1953z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_aux1781z00_1812); 
FAILURE(BgL_auxz00_3132,BFALSE,BFALSE);} }  else 
{ /* Ieee/vector.scm 422 */
 obj_t BgL_aux1783z00_1814;
BgL_aux1783z00_1814 = 
BGl_errorz00zz__errorz00(BGl_string1953z00zz__r4_vectors_6_8z00, BGl_string1954z00zz__r4_vectors_6_8z00, BgL_restz00_60); 
if(
VECTORP(BgL_aux1783z00_1814))
{ /* Ieee/vector.scm 422 */
return BgL_aux1783z00_1814;}  else 
{ 
 obj_t BgL_auxz00_3139;
BgL_auxz00_3139 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17582L), BGl_string1953z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_aux1783z00_1814); 
FAILURE(BgL_auxz00_3139,BFALSE,BFALSE);} } } } } } 

}



/* &vector-map */
obj_t BGl_z62vectorzd2mapzb0zz__r4_vectors_6_8z00(obj_t BgL_envz00_1590, obj_t BgL_procz00_1591, obj_t BgL_vz00_1592, obj_t BgL_restz00_1593)
{
{ /* Ieee/vector.scm 413 */
{ /* Ieee/vector.scm 414 */
 obj_t BgL_auxz00_3150; obj_t BgL_auxz00_3143;
if(
VECTORP(BgL_vz00_1592))
{ /* Ieee/vector.scm 414 */
BgL_auxz00_3150 = BgL_vz00_1592
; }  else 
{ 
 obj_t BgL_auxz00_3153;
BgL_auxz00_3153 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17349L), BGl_string1955z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vz00_1592); 
FAILURE(BgL_auxz00_3153,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_procz00_1591))
{ /* Ieee/vector.scm 414 */
BgL_auxz00_3143 = BgL_procz00_1591
; }  else 
{ 
 obj_t BgL_auxz00_3146;
BgL_auxz00_3146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17349L), BGl_string1955z00zz__r4_vectors_6_8z00, BGl_string1859z00zz__r4_vectors_6_8z00, BgL_procz00_1591); 
FAILURE(BgL_auxz00_3146,BFALSE,BFALSE);} 
return 
BGl_vectorzd2mapzd2zz__r4_vectors_6_8z00(BgL_auxz00_3143, BgL_auxz00_3150, BgL_restz00_1593);} } 

}



/* &<@anonymous:1256> */
obj_t BGl_z62zc3z04anonymousza31256ze3ze5zz__r4_vectors_6_8z00(obj_t BgL_envz00_1594, obj_t BgL_vz00_1596)
{
{ /* Ieee/vector.scm 419 */
{ /* Ieee/vector.scm 419 */
 long BgL_lenz00_1595;
{ /* Ieee/vector.scm 419 */
 obj_t BgL_tmpz00_3158;
{ /* Ieee/vector.scm 419 */
 obj_t BgL_aux1789z00_1820;
BgL_aux1789z00_1820 = 
PROCEDURE_REF(BgL_envz00_1594, 
(int)(0L)); 
if(
INTEGERP(BgL_aux1789z00_1820))
{ /* Ieee/vector.scm 419 */
BgL_tmpz00_3158 = BgL_aux1789z00_1820
; }  else 
{ 
 obj_t BgL_auxz00_3163;
BgL_auxz00_3163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17494L), BGl_string1956z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_aux1789z00_1820); 
FAILURE(BgL_auxz00_3163,BFALSE,BFALSE);} } 
BgL_lenz00_1595 = 
(long)CINT(BgL_tmpz00_3158); } 
{ /* Ieee/vector.scm 419 */
 bool_t BgL_tmpz00_3168;
if(
VECTORP(BgL_vz00_1596))
{ /* Ieee/vector.scm 419 */
BgL_tmpz00_3168 = 
(
VECTOR_LENGTH(BgL_vz00_1596)==BgL_lenz00_1595)
; }  else 
{ /* Ieee/vector.scm 419 */
BgL_tmpz00_3168 = ((bool_t)0)
; } 
return 
BBOOL(BgL_tmpz00_3168);} } } 

}



/* 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))
{ /* Ieee/vector.scm 431 */
 obj_t BgL_aux1790z00_1821;
BgL_aux1790z00_1821 = 
BGl_vectorzd2map2z12zc0zz__r4_vectors_6_8z00(BgL_procz00_61, BgL_vz00_62, BgL_vz00_62); 
if(
VECTORP(BgL_aux1790z00_1821))
{ /* Ieee/vector.scm 431 */
return BgL_aux1790z00_1821;}  else 
{ 
 obj_t BgL_auxz00_3179;
BgL_auxz00_3179 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17956L), BGl_string1957z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_aux1790z00_1821); 
FAILURE(BgL_auxz00_3179,BFALSE,BFALSE);} }  else 
{ /* Ieee/vector.scm 432 */
 bool_t BgL_test2276z00_3183;
{ /* Ieee/vector.scm 432 */
 obj_t BgL_zc3z04anonymousza31269ze3z87_1597;
BgL_zc3z04anonymousza31269ze3z87_1597 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31269ze3ze5zz__r4_vectors_6_8z00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31269ze3z87_1597, 
(int)(0L), 
BINT(
VECTOR_LENGTH(BgL_vz00_62))); 
BgL_test2276z00_3183 = 
CBOOL(
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3z04anonymousza31269ze3z87_1597, BNIL)); } 
if(BgL_test2276z00_3183)
{ /* Ieee/vector.scm 433 */
 obj_t BgL_aux1792z00_1823;
BgL_aux1792z00_1823 = 
BGl_vectorzd2mapNz12zc0zz__r4_vectors_6_8z00(BgL_procz00_61, BgL_vz00_62, BgL_vz00_62, BgL_restz00_63); 
if(
VECTORP(BgL_aux1792z00_1823))
{ /* Ieee/vector.scm 433 */
return BgL_aux1792z00_1823;}  else 
{ 
 obj_t BgL_auxz00_3196;
BgL_auxz00_3196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(18054L), BGl_string1957z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_aux1792z00_1823); 
FAILURE(BgL_auxz00_3196,BFALSE,BFALSE);} }  else 
{ /* Ieee/vector.scm 435 */
 obj_t BgL_aux1794z00_1825;
BgL_aux1794z00_1825 = 
BGl_errorz00zz__errorz00(BGl_string1957z00zz__r4_vectors_6_8z00, BGl_string1954z00zz__r4_vectors_6_8z00, BgL_restz00_63); 
if(
VECTORP(BgL_aux1794z00_1825))
{ /* Ieee/vector.scm 435 */
return BgL_aux1794z00_1825;}  else 
{ 
 obj_t BgL_auxz00_3203;
BgL_auxz00_3203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(18095L), BGl_string1957z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_aux1794z00_1825); 
FAILURE(BgL_auxz00_3203,BFALSE,BFALSE);} } } } 

}



/* &vector-map! */
obj_t BGl_z62vectorzd2mapz12za2zz__r4_vectors_6_8z00(obj_t BgL_envz00_1598, obj_t BgL_procz00_1599, obj_t BgL_vz00_1600, obj_t BgL_restz00_1601)
{
{ /* Ieee/vector.scm 427 */
{ /* Ieee/vector.scm 428 */
 obj_t BgL_auxz00_3214; obj_t BgL_auxz00_3207;
if(
VECTORP(BgL_vz00_1600))
{ /* Ieee/vector.scm 428 */
BgL_auxz00_3214 = BgL_vz00_1600
; }  else 
{ 
 obj_t BgL_auxz00_3217;
BgL_auxz00_3217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17894L), BGl_string1958z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vz00_1600); 
FAILURE(BgL_auxz00_3217,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_procz00_1599))
{ /* Ieee/vector.scm 428 */
BgL_auxz00_3207 = BgL_procz00_1599
; }  else 
{ 
 obj_t BgL_auxz00_3210;
BgL_auxz00_3210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(17894L), BGl_string1958z00zz__r4_vectors_6_8z00, BGl_string1859z00zz__r4_vectors_6_8z00, BgL_procz00_1599); 
FAILURE(BgL_auxz00_3210,BFALSE,BFALSE);} 
return 
BGl_vectorzd2mapz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_3207, BgL_auxz00_3214, BgL_restz00_1601);} } 

}



/* &<@anonymous:1269> */
obj_t BGl_z62zc3z04anonymousza31269ze3ze5zz__r4_vectors_6_8z00(obj_t BgL_envz00_1602, obj_t BgL_vz00_1604)
{
{ /* Ieee/vector.scm 432 */
{ /* Ieee/vector.scm 432 */
 long BgL_lenz00_1603;
{ /* Ieee/vector.scm 432 */
 obj_t BgL_tmpz00_3222;
{ /* Ieee/vector.scm 432 */
 obj_t BgL_aux1800z00_1831;
BgL_aux1800z00_1831 = 
PROCEDURE_REF(BgL_envz00_1602, 
(int)(0L)); 
if(
INTEGERP(BgL_aux1800z00_1831))
{ /* Ieee/vector.scm 432 */
BgL_tmpz00_3222 = BgL_aux1800z00_1831
; }  else 
{ 
 obj_t BgL_auxz00_3227;
BgL_auxz00_3227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(18008L), BGl_string1959z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_aux1800z00_1831); 
FAILURE(BgL_auxz00_3227,BFALSE,BFALSE);} } 
BgL_lenz00_1603 = 
(long)CINT(BgL_tmpz00_3222); } 
{ /* Ieee/vector.scm 432 */
 bool_t BgL_tmpz00_3232;
if(
VECTORP(BgL_vz00_1604))
{ /* Ieee/vector.scm 432 */
BgL_tmpz00_3232 = 
(
VECTOR_LENGTH(BgL_vz00_1604)==BgL_lenz00_1603)
; }  else 
{ /* Ieee/vector.scm 432 */
BgL_tmpz00_3232 = ((bool_t)0)
; } 
return 
BBOOL(BgL_tmpz00_3232);} } } 

}



/* 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_1462;
BgL_iz00_1462 = 0L; 
BgL_loopz00_1461:
if(
(BgL_iz00_1462<
VECTOR_LENGTH(BgL_vsrcz00_65)))
{ /* Ieee/vector.scm 443 */
{ /* Ieee/vector.scm 444 */
 obj_t BgL_arg1274z00_1466;
BgL_arg1274z00_1466 = 
VECTOR_REF(BgL_vsrcz00_65,BgL_iz00_1462); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_64, 1))
{ /* Ieee/vector.scm 444 */
BGL_PROCEDURE_CALL1(BgL_procz00_64, BgL_arg1274z00_1466); }  else 
{ /* Ieee/vector.scm 444 */
FAILURE(BGl_string1863z00zz__r4_vectors_6_8z00,BGl_list1960z00zz__r4_vectors_6_8z00,BgL_procz00_64);} } 
{ 
 long BgL_iz00_3249;
BgL_iz00_3249 = 
(BgL_iz00_1462+1L); 
BgL_iz00_1462 = BgL_iz00_3249; 
goto BgL_loopz00_1461;} }  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_1005;
BgL_iz00_1005 = 0L; 
BgL_zc3z04anonymousza31277ze3z87_1006:
if(
(BgL_iz00_1005<
VECTOR_LENGTH(BgL_vsrcz00_67)))
{ /* Ieee/vector.scm 454 */
 obj_t BgL_argsz00_1008;
if(
NULLP(BgL_vrestz00_68))
{ /* Ieee/vector.scm 454 */
BgL_argsz00_1008 = BNIL; }  else 
{ /* Ieee/vector.scm 454 */
 obj_t BgL_head1041z00_1014;
BgL_head1041z00_1014 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1039z00_1016; obj_t BgL_tail1042z00_1017;
BgL_l1039z00_1016 = BgL_vrestz00_68; 
BgL_tail1042z00_1017 = BgL_head1041z00_1014; 
BgL_zc3z04anonymousza31283ze3z87_1018:
if(
PAIRP(BgL_l1039z00_1016))
{ /* Ieee/vector.scm 454 */
 obj_t BgL_newtail1043z00_1020;
{ /* Ieee/vector.scm 454 */
 obj_t BgL_arg1287z00_1022;
{ /* Ieee/vector.scm 454 */
 obj_t BgL_vz00_1023;
BgL_vz00_1023 = 
CAR(BgL_l1039z00_1016); 
{ /* Ieee/vector.scm 454 */
 obj_t BgL_vectorz00_1475;
if(
VECTORP(BgL_vz00_1023))
{ /* Ieee/vector.scm 454 */
BgL_vectorz00_1475 = BgL_vz00_1023; }  else 
{ 
 obj_t BgL_auxz00_3262;
BgL_auxz00_3262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(18941L), BGl_string1963z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vz00_1023); 
FAILURE(BgL_auxz00_3262,BFALSE,BFALSE);} 
{ /* Ieee/vector.scm 161 */
 bool_t BgL_test2289z00_3266;
{ /* Ieee/vector.scm 161 */
 long BgL_tmpz00_3267;
BgL_tmpz00_3267 = 
VECTOR_LENGTH(BgL_vectorz00_1475); 
BgL_test2289z00_3266 = 
BOUND_CHECK(BgL_iz00_1005, BgL_tmpz00_3267); } 
if(BgL_test2289z00_3266)
{ /* Ieee/vector.scm 161 */
BgL_arg1287z00_1022 = 
VECTOR_REF(BgL_vectorz00_1475,BgL_iz00_1005); }  else 
{ 
 obj_t BgL_auxz00_3271;
BgL_auxz00_3271 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7562L), BGl_string1825z00zz__r4_vectors_6_8z00, BgL_vectorz00_1475, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_1475)), 
(int)(BgL_iz00_1005)); 
FAILURE(BgL_auxz00_3271,BFALSE,BFALSE);} } } } 
BgL_newtail1043z00_1020 = 
MAKE_YOUNG_PAIR(BgL_arg1287z00_1022, BNIL); } 
SET_CDR(BgL_tail1042z00_1017, BgL_newtail1043z00_1020); 
{ 
 obj_t BgL_tail1042z00_3282; obj_t BgL_l1039z00_3280;
BgL_l1039z00_3280 = 
CDR(BgL_l1039z00_1016); 
BgL_tail1042z00_3282 = BgL_newtail1043z00_1020; 
BgL_tail1042z00_1017 = BgL_tail1042z00_3282; 
BgL_l1039z00_1016 = BgL_l1039z00_3280; 
goto BgL_zc3z04anonymousza31283ze3z87_1018;} }  else 
{ /* Ieee/vector.scm 454 */
if(
NULLP(BgL_l1039z00_1016))
{ /* Ieee/vector.scm 454 */
BgL_argsz00_1008 = 
CDR(BgL_head1041z00_1014); }  else 
{ /* Ieee/vector.scm 454 */
BgL_argsz00_1008 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1873z00zz__r4_vectors_6_8z00, BGl_string1874z00zz__r4_vectors_6_8z00, BgL_l1039z00_1016, BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(18912L)); } } } } 
{ /* Ieee/vector.scm 455 */
 obj_t BgL_valz00_1839;
{ /* Ieee/vector.scm 455 */
 obj_t BgL_arg1279z00_1009;
{ /* Ieee/vector.scm 161 */
 bool_t BgL_test2291z00_3288;
{ /* Ieee/vector.scm 161 */
 long BgL_tmpz00_3289;
BgL_tmpz00_3289 = 
VECTOR_LENGTH(BgL_vsrcz00_67); 
BgL_test2291z00_3288 = 
BOUND_CHECK(BgL_iz00_1005, BgL_tmpz00_3289); } 
if(BgL_test2291z00_3288)
{ /* Ieee/vector.scm 161 */
BgL_arg1279z00_1009 = 
VECTOR_REF(BgL_vsrcz00_67,BgL_iz00_1005); }  else 
{ 
 obj_t BgL_auxz00_3293;
BgL_auxz00_3293 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(7562L), BGl_string1825z00zz__r4_vectors_6_8z00, BgL_vsrcz00_67, 
(int)(
VECTOR_LENGTH(BgL_vsrcz00_67)), 
(int)(BgL_iz00_1005)); 
FAILURE(BgL_auxz00_3293,BFALSE,BFALSE);} } 
{ /* Ieee/vector.scm 455 */
 obj_t BgL_list1280z00_1010;
BgL_list1280z00_1010 = 
MAKE_YOUNG_PAIR(BgL_argsz00_1008, BNIL); 
{ /* Ieee/vector.scm 455 */
 obj_t BgL_aux1804z00_1836;
BgL_aux1804z00_1836 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_arg1279z00_1009, BgL_list1280z00_1010); 
{ /* Ieee/vector.scm 455 */
 bool_t BgL_test2292z00_3302;
if(
PAIRP(BgL_aux1804z00_1836))
{ /* Ieee/vector.scm 455 */
BgL_test2292z00_3302 = ((bool_t)1)
; }  else 
{ /* Ieee/vector.scm 455 */
BgL_test2292z00_3302 = 
NULLP(BgL_aux1804z00_1836)
; } 
if(BgL_test2292z00_3302)
{ /* Ieee/vector.scm 455 */
BgL_valz00_1839 = BgL_aux1804z00_1836; }  else 
{ 
 obj_t BgL_auxz00_3306;
BgL_auxz00_3306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(18964L), BGl_string1832z00zz__r4_vectors_6_8z00, BGl_string1823z00zz__r4_vectors_6_8z00, BgL_aux1804z00_1836); 
FAILURE(BgL_auxz00_3306,BFALSE,BFALSE);} } } } } 
{ /* Ieee/vector.scm 455 */
 long BgL_len1806z00_1840;
BgL_len1806z00_1840 = 
(int)(
bgl_list_length(BgL_valz00_1839)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_66, BgL_len1806z00_1840))
{ /* Ieee/vector.scm 455 */
apply(BgL_procz00_66, BgL_valz00_1839); }  else 
{ /* Ieee/vector.scm 455 */
FAILURE(BGl_symbol1875z00zz__r4_vectors_6_8z00,BGl_string1876z00zz__r4_vectors_6_8z00,BGl_list1964z00zz__r4_vectors_6_8z00);} } } 
{ 
 long BgL_iz00_3317;
BgL_iz00_3317 = 
(BgL_iz00_1005+1L); 
BgL_iz00_1005 = BgL_iz00_3317; 
goto BgL_zc3z04anonymousza31277ze3z87_1006;} }  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_test2296z00_3323;
{ /* Ieee/vector.scm 466 */
 obj_t BgL_zc3z04anonymousza31300ze3z87_1605;
BgL_zc3z04anonymousza31300ze3z87_1605 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31300ze3ze5zz__r4_vectors_6_8z00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31300ze3z87_1605, 
(int)(0L), 
BINT(
VECTOR_LENGTH(BgL_vz00_70))); 
BgL_test2296z00_3323 = 
CBOOL(
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3z04anonymousza31300ze3z87_1605, BNIL)); } 
if(BgL_test2296z00_3323)
{ /* 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_string2001z00zz__r4_vectors_6_8z00, BGl_string1954z00zz__r4_vectors_6_8z00, BgL_restz00_71);} } } 

}



/* &vector-for-each */
obj_t BGl_z62vectorzd2forzd2eachz62zz__r4_vectors_6_8z00(obj_t BgL_envz00_1606, obj_t BgL_procz00_1607, obj_t BgL_vz00_1608, obj_t BgL_restz00_1609)
{
{ /* Ieee/vector.scm 461 */
{ /* Ieee/vector.scm 462 */
 obj_t BgL_auxz00_3343; obj_t BgL_auxz00_3336;
if(
VECTORP(BgL_vz00_1608))
{ /* Ieee/vector.scm 462 */
BgL_auxz00_3343 = BgL_vz00_1608
; }  else 
{ 
 obj_t BgL_auxz00_3346;
BgL_auxz00_3346 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(19298L), BGl_string2002z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vz00_1608); 
FAILURE(BgL_auxz00_3346,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_procz00_1607))
{ /* Ieee/vector.scm 462 */
BgL_auxz00_3336 = BgL_procz00_1607
; }  else 
{ 
 obj_t BgL_auxz00_3339;
BgL_auxz00_3339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(19298L), BGl_string2002z00zz__r4_vectors_6_8z00, BGl_string1859z00zz__r4_vectors_6_8z00, BgL_procz00_1607); 
FAILURE(BgL_auxz00_3339,BFALSE,BFALSE);} 
return 
BGl_vectorzd2forzd2eachz00zz__r4_vectors_6_8z00(BgL_auxz00_3336, BgL_auxz00_3343, BgL_restz00_1609);} } 

}



/* &<@anonymous:1300> */
obj_t BGl_z62zc3z04anonymousza31300ze3ze5zz__r4_vectors_6_8z00(obj_t BgL_envz00_1610, obj_t BgL_vz00_1612)
{
{ /* Ieee/vector.scm 466 */
{ /* Ieee/vector.scm 466 */
 long BgL_lenz00_1611;
{ /* Ieee/vector.scm 466 */
 obj_t BgL_tmpz00_3351;
{ /* Ieee/vector.scm 466 */
 obj_t BgL_aux1811z00_1845;
BgL_aux1811z00_1845 = 
PROCEDURE_REF(BgL_envz00_1610, 
(int)(0L)); 
if(
INTEGERP(BgL_aux1811z00_1845))
{ /* Ieee/vector.scm 466 */
BgL_tmpz00_3351 = BgL_aux1811z00_1845
; }  else 
{ 
 obj_t BgL_auxz00_3356;
BgL_auxz00_3356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(19414L), BGl_string2003z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_aux1811z00_1845); 
FAILURE(BgL_auxz00_3356,BFALSE,BFALSE);} } 
BgL_lenz00_1611 = 
(long)CINT(BgL_tmpz00_3351); } 
{ /* Ieee/vector.scm 466 */
 bool_t BgL_tmpz00_3361;
if(
VECTORP(BgL_vz00_1612))
{ /* Ieee/vector.scm 466 */
BgL_tmpz00_3361 = 
(
VECTOR_LENGTH(BgL_vz00_1612)==BgL_lenz00_1611)
; }  else 
{ /* Ieee/vector.scm 466 */
BgL_tmpz00_3361 = ((bool_t)0)
; } 
return 
BBOOL(BgL_tmpz00_3361);} } } 

}



/* 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_1613, obj_t BgL_vecz00_1614, obj_t BgL_nlenz00_1615)
{
{ /* Ieee/vector.scm 474 */
{ /* Ieee/vector.scm 475 */
 long BgL_auxz00_3375; obj_t BgL_auxz00_3368;
{ /* Ieee/vector.scm 475 */
 obj_t BgL_tmpz00_3376;
if(
INTEGERP(BgL_nlenz00_1615))
{ /* Ieee/vector.scm 475 */
BgL_tmpz00_3376 = BgL_nlenz00_1615
; }  else 
{ 
 obj_t BgL_auxz00_3379;
BgL_auxz00_3379 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(19825L), BGl_string2004z00zz__r4_vectors_6_8z00, BGl_string1822z00zz__r4_vectors_6_8z00, BgL_nlenz00_1615); 
FAILURE(BgL_auxz00_3379,BFALSE,BFALSE);} 
BgL_auxz00_3375 = 
(long)CINT(BgL_tmpz00_3376); } 
if(
VECTORP(BgL_vecz00_1614))
{ /* Ieee/vector.scm 475 */
BgL_auxz00_3368 = BgL_vecz00_1614
; }  else 
{ 
 obj_t BgL_auxz00_3371;
BgL_auxz00_3371 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1815z00zz__r4_vectors_6_8z00, 
BINT(19825L), BGl_string2004z00zz__r4_vectors_6_8z00, BGl_string1817z00zz__r4_vectors_6_8z00, BgL_vecz00_1614); 
FAILURE(BgL_auxz00_3371,BFALSE,BFALSE);} 
return 
BGl_vectorzd2shrinkz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_3368, BgL_auxz00_3375);} } 

}



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

}

#ifdef __cplusplus
}
#endif
