/*===========================================================================*/
/*   (Llib/trace.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 Llib/trace.scm -indent -o objs/obj_s/Llib/trace.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___TRACE_TYPE_DEFINITIONS
#define BGL___TRACE_TYPE_DEFINITIONS
#endif // BGL___TRACE_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_z62tracezd2colorzb0zz__tracez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tracezd2marginzd2setz12z12zz__tracez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_z52withzd2tracez80zz__tracez00(obj_t, obj_t, obj_t);
static obj_t BGl_list1818z00zz__tracez00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__tracez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_tracezd2stringzd2zz__tracez00(obj_t);
static obj_t BGl_tracezd2alistzd2getz00zz__tracez00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31339ze3ze5zz__tracez00(obj_t);
extern obj_t bgl_display_obj(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__tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tracezd2boldzd2zz__tracez00(obj_t);
static obj_t BGl_symbol1780z00zz__tracez00 = BUNSPEC;
static obj_t BGl_symbol1782z00zz__tracez00 = BUNSPEC;
static obj_t BGl_symbol1784z00zz__tracez00 = BUNSPEC;
static obj_t BGl_symbol1787z00zz__tracez00 = BUNSPEC;
static obj_t BGl_symbol1789z00zz__tracez00 = BUNSPEC;
static obj_t BGl_z62tracezd2activezf3z43zz__tracez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tracezd2portzd2zz__tracez00(void);
static obj_t BGl_symbol1795z00zz__tracez00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__tracez00(void);
extern int bgl_debug(void);
static obj_t BGl_tracezd2alistzd2zz__tracez00(void);
static obj_t BGl_z62tracezd2boldzb0zz__tracez00(obj_t, obj_t);
extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__tracez00(void);
static obj_t BGl_genericzd2initzd2zz__tracez00(void);
static obj_t BGl_z62tracezd2portzb0zz__tracez00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__tracez00(void);
extern obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_gczd2rootszd2initz00zz__tracez00(void);
static obj_t BGl_objectzd2initzd2zz__tracez00(void);
static obj_t BGl_z62zc3z04anonymousza31215ze3ze5zz__tracez00(obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
extern obj_t BGl_bigloozd2tracezd2zz__paramz00(void);
BGL_EXPORTED_DECL obj_t BGl_tracezd2colorzd2zz__tracez00(int, obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl_z62z52withzd2traceze2zz__tracez00(obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_bigloozd2tracezd2colorz00zz__paramz00(void);
static obj_t BGl_z62zc3z04anonymousza31297ze3ze5zz__tracez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_tracezd2portzd2setz12z12zz__tracez00(obj_t);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_z62tracezd2portzd2setz12z70zz__tracez00(obj_t, obj_t);
extern obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__tracez00(void);
BGL_EXPORTED_DECL obj_t BGl_tracezd2itemzd2zz__tracez00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31235ze3ze5zz__tracez00(obj_t);
static obj_t BGl_z62tracezd2marginzb0zz__tracez00(obj_t);
static obj_t BGl_za2tracezd2mutexza2zd2zz__tracez00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31341ze3ze5zz__tracez00(obj_t);
static obj_t BGl_z62tracezd2marginzd2setz12z70zz__tracez00(obj_t, obj_t);
static obj_t BGl_z62tracezd2itemzb0zz__tracez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tracezd2marginzd2zz__tracez00(void);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_symbol1819z00zz__tracez00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31254ze3ze5zz__tracez00(obj_t);
static obj_t BGl_symbol1821z00zz__tracez00 = BUNSPEC;
static obj_t BGl_ttyzd2tracezd2colorz00zz__tracez00(int, obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31263ze3ze5zz__tracez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_tracezd2activezf3z21zz__tracez00(obj_t);
static obj_t BGl_z62tracezd2stringzb0zz__tracez00(obj_t, obj_t);
static obj_t *__cnst;


BGL_DEFINE_STRING(BGl_string1790z00zz__tracez00, BgL_bgl_string1790za700za7za7_1829za7, "trace-alist-get", 15 );
BGL_DEFINE_STRING(BGl_string1791z00zz__tracez00, BgL_bgl_string1791za700za7za7_1830za7, "Can't find trace-value", 22 );
BGL_DEFINE_STRING(BGl_string1792z00zz__tracez00, BgL_bgl_string1792za700za7za7_1831za7, "/tmp/bigloo/runtime/Llib/trace.scm", 34 );
BGL_DEFINE_STRING(BGl_string1793z00zz__tracez00, BgL_bgl_string1793za700za7za7_1832za7, "trace-port", 10 );
BGL_DEFINE_STRING(BGl_string1794z00zz__tracez00, BgL_bgl_string1794za700za7za7_1833za7, "output-port", 11 );
BGL_DEFINE_STRING(BGl_string1796z00zz__tracez00, BgL_bgl_string1796za700za7za7_1834za7, "trace-alist-set!", 16 );
BGL_DEFINE_STRING(BGl_string1797z00zz__tracez00, BgL_bgl_string1797za700za7za7_1835za7, "&trace-port-set!", 16 );
BGL_DEFINE_STRING(BGl_string1798z00zz__tracez00, BgL_bgl_string1798za700za7za7_1836za7, "trace-margin", 12 );
BGL_DEFINE_STRING(BGl_string1799z00zz__tracez00, BgL_bgl_string1799za700za7za7_1837za7, "bstring", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2colorzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2color1838z00, va_generic_entry, BGl_z62tracezd2colorzb0zz__tracez00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_z52withzd2tracezd2envz52zz__tracez00, BgL_bgl_za762za752withza7d2tra1839za7, BGl_z62z52withzd2traceze2zz__tracez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2marginzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2margi1840z00, BGl_z62tracezd2marginzb0zz__tracez00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2portzd2setz12zd2envzc0zz__tracez00, BgL_bgl_za762traceza7d2portza71841za7, BGl_z62tracezd2portzd2setz12z70zz__tracez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2boldzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2boldza71842za7, va_generic_entry, BGl_z62tracezd2boldzb0zz__tracez00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2itemzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2itemza71843za7, va_generic_entry, BGl_z62tracezd2itemzb0zz__tracez00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2portzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2portza71844za7, BGl_z62tracezd2portzb0zz__tracez00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string1800z00zz__tracez00, BgL_bgl_string1800za700za7za7_1845za7, "&trace-margin-set!", 18 );
BGL_DEFINE_STRING(BGl_string1801z00zz__tracez00, BgL_bgl_string1801za700za7za7_1846za7, "&trace-color", 12 );
BGL_DEFINE_STRING(BGl_string1802z00zz__tracez00, BgL_bgl_string1802za700za7za7_1847za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string1803z00zz__tracez00, BgL_bgl_string1803za700za7za7_1848za7, "&<@anonymous:1215>", 18 );
BGL_DEFINE_STRING(BGl_string1804z00zz__tracez00, BgL_bgl_string1804za700za7za7_1849za7, "m", 1 );
BGL_DEFINE_STRING(BGl_string1805z00zz__tracez00, BgL_bgl_string1805za700za7za7_1850za7, "\033[0m\033[1;", 8 );
BGL_DEFINE_STRING(BGl_string1806z00zz__tracez00, BgL_bgl_string1806za700za7za7_1851za7, "for-each", 8 );
BGL_DEFINE_STRING(BGl_string1807z00zz__tracez00, BgL_bgl_string1807za700za7za7_1852za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string1808z00zz__tracez00, BgL_bgl_string1808za700za7za7_1853za7, "\033[0m", 4 );
BGL_DEFINE_STRING(BGl_string1809z00zz__tracez00, BgL_bgl_string1809za700za7za7_1854za7, "trace-bold", 10 );
BGL_DEFINE_STRING(BGl_string1810z00zz__tracez00, BgL_bgl_string1810za700za7za7_1855za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string1811z00zz__tracez00, BgL_bgl_string1811za700za7za7_1856za7, "tty-trace-color", 15 );
BGL_DEFINE_STRING(BGl_string1812z00zz__tracez00, BgL_bgl_string1812za700za7za7_1857za7, "trace-item", 10 );
BGL_DEFINE_STRING(BGl_string1813z00zz__tracez00, BgL_bgl_string1813za700za7za7_1858za7, "- ", 2 );
BGL_DEFINE_STRING(BGl_string1814z00zz__tracez00, BgL_bgl_string1814za700za7za7_1859za7, "trace-active?", 13 );
BGL_DEFINE_STRING(BGl_string1815z00zz__tracez00, BgL_bgl_string1815za700za7za7_1860za7, "  |", 3 );
BGL_DEFINE_STRING(BGl_string1816z00zz__tracez00, BgL_bgl_string1816za700za7za7_1861za7, "%with-trace", 11 );
BGL_DEFINE_STRING(BGl_string1817z00zz__tracez00, BgL_bgl_string1817za700za7za7_1862za7, "%with-trace:Wrong number of arguments", 37 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2activezf3zd2envzf3zz__tracez00, BgL_bgl_za762traceza7d2activ1863z00, BGl_z62tracezd2activezf3z43zz__tracez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1820z00zz__tracez00, BgL_bgl_string1820za700za7za7_1864za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string1822z00zz__tracez00, BgL_bgl_string1822za700za7za7_1865za7, "thunk", 5 );
BGL_DEFINE_STRING(BGl_string1823z00zz__tracez00, BgL_bgl_string1823za700za7za7_1866za7, "&%with-trace", 12 );
BGL_DEFINE_STRING(BGl_string1824z00zz__tracez00, BgL_bgl_string1824za700za7za7_1867za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string1825z00zz__tracez00, BgL_bgl_string1825za700za7za7_1868za7, "<@anonymous:1297>", 17 );
BGL_DEFINE_STRING(BGl_string1826z00zz__tracez00, BgL_bgl_string1826za700za7za7_1869za7, "+ ", 2 );
BGL_DEFINE_STRING(BGl_string1827z00zz__tracez00, BgL_bgl_string1827za700za7za7_1870za7, "--+ ", 4 );
BGL_DEFINE_STRING(BGl_string1828z00zz__tracez00, BgL_bgl_string1828za700za7za7_1871za7, "__trace", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2stringzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2strin1872z00, BGl_z62tracezd2stringzb0zz__tracez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1779z00zz__tracez00, BgL_bgl_string1779za700za7za7_1873za7, "trace", 5 );
BGL_DEFINE_STRING(BGl_string1781z00zz__tracez00, BgL_bgl_string1781za700za7za7_1874za7, "port", 4 );
BGL_DEFINE_STRING(BGl_string1783z00zz__tracez00, BgL_bgl_string1783za700za7za7_1875za7, "depth", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tracezd2marginzd2setz12zd2envzc0zz__tracez00, BgL_bgl_za762traceza7d2margi1876z00, BGl_z62tracezd2marginzd2setz12z70zz__tracez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1785z00zz__tracez00, BgL_bgl_string1785za700za7za7_1877za7, "margin", 6 );
BGL_DEFINE_STRING(BGl_string1786z00zz__tracez00, BgL_bgl_string1786za700za7za7_1878za7, "", 0 );
BGL_DEFINE_STRING(BGl_string1788z00zz__tracez00, BgL_bgl_string1788za700za7za7_1879za7, "margin-level", 12 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string1788z00zz__tracez00, BgL_bgl_string1788za700za7za7_1879za7);
BGL_BIND_STRING(BGl_string1786z00zz__tracez00, BgL_bgl_string1786za700za7za7_1878za7);
BGL_BIND_STRING(BGl_string1785z00zz__tracez00, BgL_bgl_string1785za700za7za7_1877za7);
BGL_BIND_PROCEDURE(BGl_tracezd2marginzd2setz12zd2envzc0zz__tracez00, BgL_bgl_za762traceza7d2margi1876z00);
BGL_BIND_STRING(BGl_string1783z00zz__tracez00, BgL_bgl_string1783za700za7za7_1875za7);
BGL_BIND_STRING(BGl_string1781z00zz__tracez00, BgL_bgl_string1781za700za7za7_1874za7);
BGL_BIND_STRING(BGl_string1779z00zz__tracez00, BgL_bgl_string1779za700za7za7_1873za7);
BGL_BIND_PROCEDURE(BGl_tracezd2stringzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2strin1872z00);
BGL_BIND_STRING(BGl_string1828z00zz__tracez00, BgL_bgl_string1828za700za7za7_1871za7);
BGL_BIND_STRING(BGl_string1827z00zz__tracez00, BgL_bgl_string1827za700za7za7_1870za7);
BGL_BIND_STRING(BGl_string1826z00zz__tracez00, BgL_bgl_string1826za700za7za7_1869za7);
BGL_BIND_STRING(BGl_string1825z00zz__tracez00, BgL_bgl_string1825za700za7za7_1868za7);
BGL_BIND_STRING(BGl_string1824z00zz__tracez00, BgL_bgl_string1824za700za7za7_1867za7);
BGL_BIND_STRING(BGl_string1823z00zz__tracez00, BgL_bgl_string1823za700za7za7_1866za7);
BGL_BIND_STRING(BGl_string1822z00zz__tracez00, BgL_bgl_string1822za700za7za7_1865za7);
BGL_BIND_STRING(BGl_string1820z00zz__tracez00, BgL_bgl_string1820za700za7za7_1864za7);
BGL_BIND_PROCEDURE(BGl_tracezd2activezf3zd2envzf3zz__tracez00, BgL_bgl_za762traceza7d2activ1863z00);
BGL_BIND_STRING(BGl_string1817z00zz__tracez00, BgL_bgl_string1817za700za7za7_1862za7);
BGL_BIND_STRING(BGl_string1816z00zz__tracez00, BgL_bgl_string1816za700za7za7_1861za7);
BGL_BIND_STRING(BGl_string1815z00zz__tracez00, BgL_bgl_string1815za700za7za7_1860za7);
BGL_BIND_STRING(BGl_string1814z00zz__tracez00, BgL_bgl_string1814za700za7za7_1859za7);
BGL_BIND_STRING(BGl_string1813z00zz__tracez00, BgL_bgl_string1813za700za7za7_1858za7);
BGL_BIND_STRING(BGl_string1812z00zz__tracez00, BgL_bgl_string1812za700za7za7_1857za7);
BGL_BIND_STRING(BGl_string1811z00zz__tracez00, BgL_bgl_string1811za700za7za7_1856za7);
BGL_BIND_STRING(BGl_string1810z00zz__tracez00, BgL_bgl_string1810za700za7za7_1855za7);
BGL_BIND_STRING(BGl_string1809z00zz__tracez00, BgL_bgl_string1809za700za7za7_1854za7);
BGL_BIND_STRING(BGl_string1808z00zz__tracez00, BgL_bgl_string1808za700za7za7_1853za7);
BGL_BIND_STRING(BGl_string1807z00zz__tracez00, BgL_bgl_string1807za700za7za7_1852za7);
BGL_BIND_STRING(BGl_string1806z00zz__tracez00, BgL_bgl_string1806za700za7za7_1851za7);
BGL_BIND_STRING(BGl_string1805z00zz__tracez00, BgL_bgl_string1805za700za7za7_1850za7);
BGL_BIND_STRING(BGl_string1804z00zz__tracez00, BgL_bgl_string1804za700za7za7_1849za7);
BGL_BIND_STRING(BGl_string1803z00zz__tracez00, BgL_bgl_string1803za700za7za7_1848za7);
BGL_BIND_STRING(BGl_string1802z00zz__tracez00, BgL_bgl_string1802za700za7za7_1847za7);
BGL_BIND_STRING(BGl_string1801z00zz__tracez00, BgL_bgl_string1801za700za7za7_1846za7);
BGL_BIND_STRING(BGl_string1800z00zz__tracez00, BgL_bgl_string1800za700za7za7_1845za7);
BGL_BIND_PROCEDURE(BGl_tracezd2portzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2portza71844za7);
BGL_BIND_PROCEDURE(BGl_tracezd2itemzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2itemza71843za7);
BGL_BIND_PROCEDURE(BGl_tracezd2boldzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2boldza71842za7);
BGL_BIND_PROCEDURE(BGl_tracezd2portzd2setz12zd2envzc0zz__tracez00, BgL_bgl_za762traceza7d2portza71841za7);
BGL_BIND_PROCEDURE(BGl_tracezd2marginzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2margi1840z00);
BGL_BIND_PROCEDURE(BGl_z52withzd2tracezd2envz52zz__tracez00, BgL_bgl_za762za752withza7d2tra1839za7);
BGL_BIND_PROCEDURE(BGl_tracezd2colorzd2envz00zz__tracez00, BgL_bgl_za762traceza7d2color1838z00);
BGL_BIND_STRING(BGl_string1799z00zz__tracez00, BgL_bgl_string1799za700za7za7_1837za7);
BGL_BIND_STRING(BGl_string1798z00zz__tracez00, BgL_bgl_string1798za700za7za7_1836za7);
BGL_BIND_STRING(BGl_string1797z00zz__tracez00, BgL_bgl_string1797za700za7za7_1835za7);
BGL_BIND_STRING(BGl_string1796z00zz__tracez00, BgL_bgl_string1796za700za7za7_1834za7);
BGL_BIND_STRING(BGl_string1794z00zz__tracez00, BgL_bgl_string1794za700za7za7_1833za7);
BGL_BIND_STRING(BGl_string1793z00zz__tracez00, BgL_bgl_string1793za700za7za7_1832za7);
BGL_BIND_STRING(BGl_string1792z00zz__tracez00, BgL_bgl_string1792za700za7za7_1831za7);
BGL_BIND_STRING(BGl_string1791z00zz__tracez00, BgL_bgl_string1791za700za7za7_1830za7);
BGL_BIND_STRING(BGl_string1790z00zz__tracez00, BgL_bgl_string1790za700za7za7_1829za7);
}

/* 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_list1818z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1780z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1782z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1784z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1787z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1789z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1795z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_za2tracezd2mutexza2zd2zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1819z00zz__tracez00) );
ADD_ROOT( (void *)(&BGl_symbol1821z00zz__tracez00) );
#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__tracez00(long BgL_checksumz00_2159, char * BgL_fromz00_2160)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__tracez00))
{ 
BGl_requirezd2initializa7ationz75zz__tracez00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__tracez00(); 
BGl_cnstzd2initzd2zz__tracez00(); 
BGl_importedzd2moduleszd2initz00zz__tracez00(); 
return 
BGl_toplevelzd2initzd2zz__tracez00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 15 */
BGl_symbol1780z00zz__tracez00 = 
bstring_to_symbol(BGl_string1781z00zz__tracez00); 
BGl_symbol1782z00zz__tracez00 = 
bstring_to_symbol(BGl_string1783z00zz__tracez00); 
BGl_symbol1784z00zz__tracez00 = 
bstring_to_symbol(BGl_string1785z00zz__tracez00); 
BGl_symbol1787z00zz__tracez00 = 
bstring_to_symbol(BGl_string1788z00zz__tracez00); 
BGl_symbol1789z00zz__tracez00 = 
bstring_to_symbol(BGl_string1790z00zz__tracez00); 
BGl_symbol1795z00zz__tracez00 = 
bstring_to_symbol(BGl_string1796z00zz__tracez00); 
BGl_symbol1819z00zz__tracez00 = 
bstring_to_symbol(BGl_string1820z00zz__tracez00); 
BGl_symbol1821z00zz__tracez00 = 
bstring_to_symbol(BGl_string1822z00zz__tracez00); 
return ( 
BGl_list1818z00zz__tracez00 = 
MAKE_YOUNG_PAIR(BGl_symbol1819z00zz__tracez00, 
MAKE_YOUNG_PAIR(BGl_symbol1821z00zz__tracez00, 
MAKE_YOUNG_PAIR(BGl_symbol1821z00zz__tracez00, BNIL))), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__tracez00(void)
{
{ /* Llib/trace.scm 15 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 15 */
return ( 
BGl_za2tracezd2mutexza2zd2zz__tracez00 = 
bgl_make_mutex(BGl_string1779z00zz__tracez00), BUNSPEC) ;} 

}



/* trace-alist */
obj_t BGl_tracezd2alistzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 82 */
{ /* Llib/trace.scm 83 */
 obj_t BgL_alz00_1118;
BgL_alz00_1118 = 
BGL_DEBUG_ALIST_GET(); 
if(
NULLP(BgL_alz00_1118))
{ /* Llib/trace.scm 86 */
 obj_t BgL_newzd2alzd2_1120;
{ /* Llib/trace.scm 86 */
 obj_t BgL_arg1187z00_1121; obj_t BgL_arg1189z00_1122; obj_t BgL_arg1192z00_1123; obj_t BgL_arg1193z00_1124;
{ /* Llib/trace.scm 86 */
 obj_t BgL_arg1201z00_1129;
{ /* Llib/trace.scm 86 */
 obj_t BgL_tmpz00_2185;
BgL_tmpz00_2185 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1201z00_1129 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_2185); } 
BgL_arg1187z00_1121 = 
MAKE_YOUNG_PAIR(BGl_symbol1780z00zz__tracez00, BgL_arg1201z00_1129); } 
BgL_arg1189z00_1122 = 
MAKE_YOUNG_PAIR(BGl_symbol1782z00zz__tracez00, 
BINT(0L)); 
BgL_arg1192z00_1123 = 
MAKE_YOUNG_PAIR(BGl_symbol1784z00zz__tracez00, BGl_string1786z00zz__tracez00); 
BgL_arg1193z00_1124 = 
MAKE_YOUNG_PAIR(BGl_symbol1787z00zz__tracez00, 
BINT(0L)); 
{ /* Llib/trace.scm 86 */
 obj_t BgL_list1194z00_1125;
{ /* Llib/trace.scm 86 */
 obj_t BgL_arg1195z00_1126;
{ /* Llib/trace.scm 86 */
 obj_t BgL_arg1196z00_1127;
{ /* Llib/trace.scm 86 */
 obj_t BgL_arg1197z00_1128;
BgL_arg1197z00_1128 = 
MAKE_YOUNG_PAIR(BgL_arg1193z00_1124, BNIL); 
BgL_arg1196z00_1127 = 
MAKE_YOUNG_PAIR(BgL_arg1192z00_1123, BgL_arg1197z00_1128); } 
BgL_arg1195z00_1126 = 
MAKE_YOUNG_PAIR(BgL_arg1189z00_1122, BgL_arg1196z00_1127); } 
BgL_list1194z00_1125 = 
MAKE_YOUNG_PAIR(BgL_arg1187z00_1121, BgL_arg1195z00_1126); } 
BgL_newzd2alzd2_1120 = BgL_list1194z00_1125; } } 
BGL_DEBUG_ALIST_SET(BgL_newzd2alzd2_1120); BUNSPEC; 
return BgL_newzd2alzd2_1120;}  else 
{ /* Llib/trace.scm 84 */
return BgL_alz00_1118;} } } 

}



/* trace-alist-get */
obj_t BGl_tracezd2alistzd2getz00zz__tracez00(obj_t BgL_alistz00_3, obj_t BgL_keyz00_4)
{
{ /* Llib/trace.scm 96 */
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1676;
BgL_cz00_1676 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_4, BgL_alistz00_3); 
if(
PAIRP(BgL_cz00_1676))
{ /* Llib/trace.scm 98 */
return 
CDR(BgL_cz00_1676);}  else 
{ /* Llib/trace.scm 98 */
return 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_4);} } } 

}



/* trace-port */
BGL_EXPORTED_DEF obj_t BGl_tracezd2portzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 114 */
{ /* Llib/trace.scm 115 */
 obj_t BgL_arg1206z00_1682;
BgL_arg1206z00_1682 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 115 */
 obj_t BgL_keyz00_1683;
BgL_keyz00_1683 = BGl_symbol1780z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1684;
BgL_cz00_1684 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1683, BgL_arg1206z00_1682); 
if(
PAIRP(BgL_cz00_1684))
{ /* Llib/trace.scm 99 */
 obj_t BgL_aux1732z00_2064;
BgL_aux1732z00_2064 = 
CDR(BgL_cz00_1684); 
if(
OUTPUT_PORTP(BgL_aux1732z00_2064))
{ /* Llib/trace.scm 99 */
return BgL_aux1732z00_2064;}  else 
{ 
 obj_t BgL_auxz00_2211;
BgL_auxz00_2211 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(3521L), BGl_string1793z00zz__tracez00, BGl_string1794z00zz__tracez00, BgL_aux1732z00_2064); 
FAILURE(BgL_auxz00_2211,BFALSE,BFALSE);} }  else 
{ /* Llib/trace.scm 100 */
 obj_t BgL_aux1734z00_2066;
BgL_aux1734z00_2066 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1683); 
if(
OUTPUT_PORTP(BgL_aux1734z00_2066))
{ /* Llib/trace.scm 100 */
return BgL_aux1734z00_2066;}  else 
{ 
 obj_t BgL_auxz00_2218;
BgL_auxz00_2218 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(3532L), BGl_string1793z00zz__tracez00, BGl_string1794z00zz__tracez00, BgL_aux1734z00_2066); 
FAILURE(BgL_auxz00_2218,BFALSE,BFALSE);} } } } } } 

}



/* &trace-port */
obj_t BGl_z62tracezd2portzb0zz__tracez00(obj_t BgL_envz00_2015)
{
{ /* Llib/trace.scm 114 */
return 
BGl_tracezd2portzd2zz__tracez00();} 

}



/* trace-port-set! */
BGL_EXPORTED_DEF obj_t BGl_tracezd2portzd2setz12z12zz__tracez00(obj_t BgL_pz00_8)
{
{ /* Llib/trace.scm 120 */
{ /* Llib/trace.scm 121 */
 obj_t BgL_arg1207z00_1687;
BgL_arg1207z00_1687 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 121 */
 obj_t BgL_keyz00_1688;
BgL_keyz00_1688 = BGl_symbol1780z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_1689;
BgL_cz00_1689 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1688, BgL_arg1207z00_1687); 
if(
PAIRP(BgL_cz00_1689))
{ /* Llib/trace.scm 107 */
return 
SET_CDR(BgL_cz00_1689, BgL_pz00_8);}  else 
{ /* Llib/trace.scm 107 */
return 
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1688);} } } } } 

}



/* &trace-port-set! */
obj_t BGl_z62tracezd2portzd2setz12z70zz__tracez00(obj_t BgL_envz00_2016, obj_t BgL_pz00_2017)
{
{ /* Llib/trace.scm 120 */
{ /* Llib/trace.scm 121 */
 obj_t BgL_auxz00_2229;
if(
OUTPUT_PORTP(BgL_pz00_2017))
{ /* Llib/trace.scm 121 */
BgL_auxz00_2229 = BgL_pz00_2017
; }  else 
{ 
 obj_t BgL_auxz00_2232;
BgL_auxz00_2232 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(4543L), BGl_string1797z00zz__tracez00, BGl_string1794z00zz__tracez00, BgL_pz00_2017); 
FAILURE(BgL_auxz00_2232,BFALSE,BFALSE);} 
return 
BGl_tracezd2portzd2setz12z12zz__tracez00(BgL_auxz00_2229);} } 

}



/* trace-margin */
BGL_EXPORTED_DEF obj_t BGl_tracezd2marginzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 126 */
{ /* Llib/trace.scm 127 */
 obj_t BgL_arg1208z00_1692;
BgL_arg1208z00_1692 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 127 */
 obj_t BgL_keyz00_1693;
BgL_keyz00_1693 = BGl_symbol1784z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1694;
BgL_cz00_1694 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1693, BgL_arg1208z00_1692); 
if(
PAIRP(BgL_cz00_1694))
{ /* Llib/trace.scm 99 */
 obj_t BgL_aux1738z00_2070;
BgL_aux1738z00_2070 = 
CDR(BgL_cz00_1694); 
if(
STRINGP(BgL_aux1738z00_2070))
{ /* Llib/trace.scm 99 */
return BgL_aux1738z00_2070;}  else 
{ 
 obj_t BgL_auxz00_2244;
BgL_auxz00_2244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(3521L), BGl_string1798z00zz__tracez00, BGl_string1799z00zz__tracez00, BgL_aux1738z00_2070); 
FAILURE(BgL_auxz00_2244,BFALSE,BFALSE);} }  else 
{ /* Llib/trace.scm 100 */
 obj_t BgL_aux1740z00_2072;
BgL_aux1740z00_2072 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1693); 
if(
STRINGP(BgL_aux1740z00_2072))
{ /* Llib/trace.scm 100 */
return BgL_aux1740z00_2072;}  else 
{ 
 obj_t BgL_auxz00_2251;
BgL_auxz00_2251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(3532L), BGl_string1798z00zz__tracez00, BGl_string1799z00zz__tracez00, BgL_aux1740z00_2072); 
FAILURE(BgL_auxz00_2251,BFALSE,BFALSE);} } } } } } 

}



/* &trace-margin */
obj_t BGl_z62tracezd2marginzb0zz__tracez00(obj_t BgL_envz00_2018)
{
{ /* Llib/trace.scm 126 */
return 
BGl_tracezd2marginzd2zz__tracez00();} 

}



/* trace-margin-set! */
BGL_EXPORTED_DEF obj_t BGl_tracezd2marginzd2setz12z12zz__tracez00(obj_t BgL_mz00_9)
{
{ /* Llib/trace.scm 132 */
{ /* Llib/trace.scm 133 */
 obj_t BgL_arg1211z00_1697;
BgL_arg1211z00_1697 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 133 */
 obj_t BgL_keyz00_1698;
BgL_keyz00_1698 = BGl_symbol1784z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_1699;
BgL_cz00_1699 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1698, BgL_arg1211z00_1697); 
if(
PAIRP(BgL_cz00_1699))
{ /* Llib/trace.scm 107 */
return 
SET_CDR(BgL_cz00_1699, BgL_mz00_9);}  else 
{ /* Llib/trace.scm 107 */
return 
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1698);} } } } } 

}



/* &trace-margin-set! */
obj_t BGl_z62tracezd2marginzd2setz12z70zz__tracez00(obj_t BgL_envz00_2019, obj_t BgL_mz00_2020)
{
{ /* Llib/trace.scm 132 */
{ /* Llib/trace.scm 133 */
 obj_t BgL_auxz00_2262;
if(
STRINGP(BgL_mz00_2020))
{ /* Llib/trace.scm 133 */
BgL_auxz00_2262 = BgL_mz00_2020
; }  else 
{ 
 obj_t BgL_auxz00_2265;
BgL_auxz00_2265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(5131L), BGl_string1800z00zz__tracez00, BGl_string1799z00zz__tracez00, BgL_mz00_2020); 
FAILURE(BgL_auxz00_2265,BFALSE,BFALSE);} 
return 
BGl_tracezd2marginzd2setz12z12zz__tracez00(BgL_auxz00_2262);} } 

}



/* trace-color */
BGL_EXPORTED_DEF obj_t BGl_tracezd2colorzd2zz__tracez00(int BgL_colz00_10, obj_t BgL_oz00_11)
{
{ /* Llib/trace.scm 138 */
{ /* Llib/trace.scm 140 */
 obj_t BgL_arg1213z00_1138;
if(
BGl_bigloozd2tracezd2colorz00zz__paramz00())
{ /* Llib/trace.scm 141 */
 obj_t BgL_zc3z04anonymousza31215ze3z87_2021;
BgL_zc3z04anonymousza31215ze3z87_2021 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31215ze3ze5zz__tracez00, 
(int)(0L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31215ze3z87_2021, 
(int)(0L), 
BINT(BgL_colz00_10)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31215ze3z87_2021, 
(int)(1L), BgL_oz00_11); 
BgL_arg1213z00_1138 = BgL_zc3z04anonymousza31215ze3z87_2021; }  else 
{ /* Llib/trace.scm 145 */
 obj_t BgL_zc3z04anonymousza31235ze3z87_2022;
BgL_zc3z04anonymousza31235ze3z87_2022 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31235ze3ze5zz__tracez00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31235ze3z87_2022, 
(int)(0L), BgL_oz00_11); 
BgL_arg1213z00_1138 = BgL_zc3z04anonymousza31235ze3z87_2022; } 
return 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_arg1213z00_1138);} } 

}



/* &trace-color */
obj_t BGl_z62tracezd2colorzb0zz__tracez00(obj_t BgL_envz00_2023, obj_t BgL_colz00_2024, obj_t BgL_oz00_2025)
{
{ /* Llib/trace.scm 138 */
{ /* Llib/trace.scm 140 */
 int BgL_auxz00_2286;
{ /* Llib/trace.scm 140 */
 obj_t BgL_tmpz00_2287;
if(
INTEGERP(BgL_colz00_2024))
{ /* Llib/trace.scm 140 */
BgL_tmpz00_2287 = BgL_colz00_2024
; }  else 
{ 
 obj_t BgL_auxz00_2290;
BgL_auxz00_2290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(5447L), BGl_string1801z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_colz00_2024); 
FAILURE(BgL_auxz00_2290,BFALSE,BFALSE);} 
BgL_auxz00_2286 = 
CINT(BgL_tmpz00_2287); } 
return 
BGl_tracezd2colorzd2zz__tracez00(BgL_auxz00_2286, BgL_oz00_2025);} } 

}



/* &<@anonymous:1215> */
obj_t BGl_z62zc3z04anonymousza31215ze3ze5zz__tracez00(obj_t BgL_envz00_2026)
{
{ /* Llib/trace.scm 141 */
{ /* Llib/trace.scm 142 */
 int BgL_colz00_2027; obj_t BgL_oz00_2028;
{ /* Llib/trace.scm 142 */
 obj_t BgL_tmpz00_2296;
{ /* Llib/trace.scm 142 */
 obj_t BgL_aux1745z00_2077;
BgL_aux1745z00_2077 = 
PROCEDURE_REF(BgL_envz00_2026, 
(int)(0L)); 
if(
INTEGERP(BgL_aux1745z00_2077))
{ /* Llib/trace.scm 142 */
BgL_tmpz00_2296 = BgL_aux1745z00_2077
; }  else 
{ 
 obj_t BgL_auxz00_2301;
BgL_auxz00_2301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(5492L), BGl_string1803z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_aux1745z00_2077); 
FAILURE(BgL_auxz00_2301,BFALSE,BFALSE);} } 
BgL_colz00_2027 = 
CINT(BgL_tmpz00_2296); } 
BgL_oz00_2028 = 
PROCEDURE_REF(BgL_envz00_2026, 
(int)(1L)); 
{ /* Llib/trace.scm 142 */
 long BgL_arg1216z00_2121;
BgL_arg1216z00_2121 = 
(31L+
(long)(BgL_colz00_2027)); 
{ /* Llib/trace.scm 142 */
 obj_t BgL_list1217z00_2122;
{ /* Llib/trace.scm 142 */
 obj_t BgL_arg1219z00_2123;
{ /* Llib/trace.scm 142 */
 obj_t BgL_arg1224z00_2124;
BgL_arg1224z00_2124 = 
MAKE_YOUNG_PAIR(BGl_string1804z00zz__tracez00, BNIL); 
BgL_arg1219z00_2123 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1216z00_2121), BgL_arg1224z00_2124); } 
BgL_list1217z00_2122 = 
MAKE_YOUNG_PAIR(BGl_string1805z00zz__tracez00, BgL_arg1219z00_2123); } 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list1217z00_2122); } } 
{ 
 obj_t BgL_l1077z00_2126;
BgL_l1077z00_2126 = BgL_oz00_2028; 
BgL_zc3z04anonymousza31225ze3z87_2125:
if(
PAIRP(BgL_l1077z00_2126))
{ /* Llib/trace.scm 143 */
{ /* Llib/trace.scm 143 */
 obj_t BgL_arg1230z00_2127;
BgL_arg1230z00_2127 = 
CAR(BgL_l1077z00_2126); 
{ /* Llib/trace.scm 143 */
 obj_t BgL_portz00_2128;
{ /* Llib/trace.scm 143 */
 obj_t BgL_tmpz00_2318;
BgL_tmpz00_2318 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2128 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2318); } 
{ /* Llib/trace.scm 143 */

BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1230z00_2127, BgL_portz00_2128); } } } 
{ 
 obj_t BgL_l1077z00_2322;
BgL_l1077z00_2322 = 
CDR(BgL_l1077z00_2126); 
BgL_l1077z00_2126 = BgL_l1077z00_2322; 
goto BgL_zc3z04anonymousza31225ze3z87_2125;} }  else 
{ /* Llib/trace.scm 143 */
if(
NULLP(BgL_l1077z00_2126))
{ /* Llib/trace.scm 143 */BTRUE; }  else 
{ /* Llib/trace.scm 143 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1806z00zz__tracez00, BGl_string1807z00zz__tracez00, BgL_l1077z00_2126, BGl_string1792z00zz__tracez00, 
BINT(5537L)); } } } 
{ /* Llib/trace.scm 144 */
 obj_t BgL_arg1234z00_2129;
{ /* Llib/trace.scm 144 */
 obj_t BgL_tmpz00_2328;
BgL_tmpz00_2328 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1234z00_2129 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2328); } 
return 
bgl_display_string(BGl_string1808z00zz__tracez00, BgL_arg1234z00_2129);} } } 

}



/* &<@anonymous:1235> */
obj_t BGl_z62zc3z04anonymousza31235ze3ze5zz__tracez00(obj_t BgL_envz00_2029)
{
{ /* Llib/trace.scm 145 */
{ /* Llib/trace.scm 146 */
 obj_t BgL_oz00_2030;
BgL_oz00_2030 = 
PROCEDURE_REF(BgL_envz00_2029, 
(int)(0L)); 
{ 
 obj_t BgL_l1079z00_2131;
BgL_l1079z00_2131 = BgL_oz00_2030; 
BgL_zc3z04anonymousza31236ze3z87_2130:
if(
PAIRP(BgL_l1079z00_2131))
{ /* Llib/trace.scm 146 */
{ /* Llib/trace.scm 146 */
 obj_t BgL_arg1239z00_2132;
BgL_arg1239z00_2132 = 
CAR(BgL_l1079z00_2131); 
{ /* Llib/trace.scm 146 */
 obj_t BgL_portz00_2133;
{ /* Llib/trace.scm 146 */
 obj_t BgL_tmpz00_2337;
BgL_tmpz00_2337 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2133 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2337); } 
{ /* Llib/trace.scm 146 */

BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1239z00_2132, BgL_portz00_2133); } } } 
{ 
 obj_t BgL_l1079z00_2341;
BgL_l1079z00_2341 = 
CDR(BgL_l1079z00_2131); 
BgL_l1079z00_2131 = BgL_l1079z00_2341; 
goto BgL_zc3z04anonymousza31236ze3z87_2130;} }  else 
{ /* Llib/trace.scm 146 */
if(
NULLP(BgL_l1079z00_2131))
{ /* Llib/trace.scm 146 */
return BTRUE;}  else 
{ /* Llib/trace.scm 146 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1806z00zz__tracez00, BGl_string1807z00zz__tracez00, BgL_l1079z00_2131, BGl_string1792z00zz__tracez00, 
BINT(5609L));} } } } } 

}



/* trace-bold */
BGL_EXPORTED_DEF obj_t BGl_tracezd2boldzd2zz__tracez00(obj_t BgL_oz00_12)
{
{ /* Llib/trace.scm 151 */
{ /* Llib/trace.scm 152 */
 obj_t BgL_runner1245z00_1169;
{ /* Llib/trace.scm 152 */
 obj_t BgL_list1243z00_1167;
BgL_list1243z00_1167 = 
MAKE_YOUNG_PAIR(BgL_oz00_12, BNIL); 
BgL_runner1245z00_1169 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
BINT((-30L)), BgL_list1243z00_1167); } 
{ /* Llib/trace.scm 152 */
 int BgL_aux1244z00_1168;
{ /* Llib/trace.scm 152 */
 obj_t BgL_pairz00_1712;
{ /* Llib/trace.scm 152 */
 obj_t BgL_aux1746z00_2078;
BgL_aux1746z00_2078 = BgL_runner1245z00_1169; 
if(
PAIRP(BgL_aux1746z00_2078))
{ /* Llib/trace.scm 152 */
BgL_pairz00_1712 = BgL_aux1746z00_2078; }  else 
{ 
 obj_t BgL_auxz00_2352;
BgL_auxz00_2352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(5892L), BGl_string1809z00zz__tracez00, BGl_string1810z00zz__tracez00, BgL_aux1746z00_2078); 
FAILURE(BgL_auxz00_2352,BFALSE,BFALSE);} } 
{ /* Llib/trace.scm 152 */
 obj_t BgL_tmpz00_2356;
{ /* Llib/trace.scm 152 */
 obj_t BgL_aux1748z00_2080;
BgL_aux1748z00_2080 = 
CAR(BgL_pairz00_1712); 
if(
INTEGERP(BgL_aux1748z00_2080))
{ /* Llib/trace.scm 152 */
BgL_tmpz00_2356 = BgL_aux1748z00_2080
; }  else 
{ 
 obj_t BgL_auxz00_2360;
BgL_auxz00_2360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(5892L), BGl_string1809z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_aux1748z00_2080); 
FAILURE(BgL_auxz00_2360,BFALSE,BFALSE);} } 
BgL_aux1244z00_1168 = 
CINT(BgL_tmpz00_2356); } } 
{ /* Llib/trace.scm 152 */
 obj_t BgL_pairz00_1713;
{ /* Llib/trace.scm 152 */
 obj_t BgL_aux1749z00_2081;
BgL_aux1749z00_2081 = BgL_runner1245z00_1169; 
if(
PAIRP(BgL_aux1749z00_2081))
{ /* Llib/trace.scm 152 */
BgL_pairz00_1713 = BgL_aux1749z00_2081; }  else 
{ 
 obj_t BgL_auxz00_2367;
BgL_auxz00_2367 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(5892L), BGl_string1809z00zz__tracez00, BGl_string1810z00zz__tracez00, BgL_aux1749z00_2081); 
FAILURE(BgL_auxz00_2367,BFALSE,BFALSE);} } 
BgL_runner1245z00_1169 = 
CDR(BgL_pairz00_1713); } 
return 
BGl_tracezd2colorzd2zz__tracez00(BgL_aux1244z00_1168, BgL_runner1245z00_1169);} } } 

}



/* &trace-bold */
obj_t BGl_z62tracezd2boldzb0zz__tracez00(obj_t BgL_envz00_2031, obj_t BgL_oz00_2032)
{
{ /* Llib/trace.scm 151 */
return 
BGl_tracezd2boldzd2zz__tracez00(BgL_oz00_2032);} 

}



/* tty-trace-color */
obj_t BGl_ttyzd2tracezd2colorz00zz__tracez00(int BgL_colz00_13, obj_t BgL_oz00_14)
{
{ /* Llib/trace.scm 157 */
{ /* Llib/trace.scm 158 */
 bool_t BgL_test1903z00_2374;
{ /* Llib/trace.scm 158 */
 obj_t BgL_arg1261z00_1188;
{ /* Llib/trace.scm 158 */
 obj_t BgL_res1729z00_1715;
{ /* Llib/trace.scm 115 */
 obj_t BgL_arg1206z00_1714;
BgL_arg1206z00_1714 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 115 */
 obj_t BgL_aux1751z00_2083;
BgL_aux1751z00_2083 = 
BGl_tracezd2alistzd2getz00zz__tracez00(BgL_arg1206z00_1714, BGl_symbol1780z00zz__tracez00); 
if(
OUTPUT_PORTP(BgL_aux1751z00_2083))
{ /* Llib/trace.scm 115 */
BgL_res1729z00_1715 = BgL_aux1751z00_2083; }  else 
{ 
 obj_t BgL_auxz00_2379;
BgL_auxz00_2379 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(4232L), BGl_string1811z00zz__tracez00, BGl_string1794z00zz__tracez00, BgL_aux1751z00_2083); 
FAILURE(BgL_auxz00_2379,BFALSE,BFALSE);} } } 
BgL_arg1261z00_1188 = BgL_res1729z00_1715; } 
BgL_test1903z00_2374 = 
bgl_port_isatty(BgL_arg1261z00_1188); } 
if(BgL_test1903z00_2374)
{ /* Llib/trace.scm 159 */
 obj_t BgL_runner1252z00_1174;
{ /* Llib/trace.scm 159 */
 obj_t BgL_list1250z00_1172;
BgL_list1250z00_1172 = 
MAKE_YOUNG_PAIR(BgL_oz00_14, BNIL); 
BgL_runner1252z00_1174 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
BINT(BgL_colz00_13), BgL_list1250z00_1172); } 
{ /* Llib/trace.scm 159 */
 int BgL_aux1251z00_1173;
{ /* Llib/trace.scm 159 */
 obj_t BgL_pairz00_1717;
{ /* Llib/trace.scm 159 */
 obj_t BgL_aux1753z00_2085;
BgL_aux1753z00_2085 = BgL_runner1252z00_1174; 
if(
PAIRP(BgL_aux1753z00_2085))
{ /* Llib/trace.scm 159 */
BgL_pairz00_1717 = BgL_aux1753z00_2085; }  else 
{ 
 obj_t BgL_auxz00_2389;
BgL_auxz00_2389 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(6230L), BGl_string1811z00zz__tracez00, BGl_string1810z00zz__tracez00, BgL_aux1753z00_2085); 
FAILURE(BgL_auxz00_2389,BFALSE,BFALSE);} } 
{ /* Llib/trace.scm 159 */
 obj_t BgL_tmpz00_2393;
{ /* Llib/trace.scm 159 */
 obj_t BgL_aux1755z00_2087;
BgL_aux1755z00_2087 = 
CAR(BgL_pairz00_1717); 
if(
INTEGERP(BgL_aux1755z00_2087))
{ /* Llib/trace.scm 159 */
BgL_tmpz00_2393 = BgL_aux1755z00_2087
; }  else 
{ 
 obj_t BgL_auxz00_2397;
BgL_auxz00_2397 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(6230L), BGl_string1811z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_aux1755z00_2087); 
FAILURE(BgL_auxz00_2397,BFALSE,BFALSE);} } 
BgL_aux1251z00_1173 = 
CINT(BgL_tmpz00_2393); } } 
{ /* Llib/trace.scm 159 */
 obj_t BgL_pairz00_1718;
{ /* Llib/trace.scm 159 */
 obj_t BgL_aux1756z00_2088;
BgL_aux1756z00_2088 = BgL_runner1252z00_1174; 
if(
PAIRP(BgL_aux1756z00_2088))
{ /* Llib/trace.scm 159 */
BgL_pairz00_1718 = BgL_aux1756z00_2088; }  else 
{ 
 obj_t BgL_auxz00_2404;
BgL_auxz00_2404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(6230L), BGl_string1811z00zz__tracez00, BGl_string1810z00zz__tracez00, BgL_aux1756z00_2088); 
FAILURE(BgL_auxz00_2404,BFALSE,BFALSE);} } 
BgL_runner1252z00_1174 = 
CDR(BgL_pairz00_1718); } 
BGL_TAIL return 
BGl_tracezd2colorzd2zz__tracez00(BgL_aux1251z00_1173, BgL_runner1252z00_1174);} }  else 
{ /* Llib/trace.scm 162 */
 obj_t BgL_zc3z04anonymousza31254ze3z87_2033;
BgL_zc3z04anonymousza31254ze3z87_2033 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31254ze3ze5zz__tracez00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31254ze3z87_2033, 
(int)(0L), BgL_oz00_14); 
return 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31254ze3z87_2033);} } } 

}



/* &<@anonymous:1254> */
obj_t BGl_z62zc3z04anonymousza31254ze3ze5zz__tracez00(obj_t BgL_envz00_2034)
{
{ /* Llib/trace.scm 161 */
{ /* Llib/trace.scm 162 */
 obj_t BgL_oz00_2035;
BgL_oz00_2035 = 
PROCEDURE_REF(BgL_envz00_2034, 
(int)(0L)); 
{ 
 obj_t BgL_l1081z00_2135;
BgL_l1081z00_2135 = BgL_oz00_2035; 
BgL_zc3z04anonymousza31255ze3z87_2134:
if(
PAIRP(BgL_l1081z00_2135))
{ /* Llib/trace.scm 162 */
{ /* Llib/trace.scm 162 */
 obj_t BgL_arg1258z00_2136;
BgL_arg1258z00_2136 = 
CAR(BgL_l1081z00_2135); 
{ /* Llib/trace.scm 162 */
 obj_t BgL_portz00_2137;
{ /* Llib/trace.scm 162 */
 obj_t BgL_tmpz00_2421;
BgL_tmpz00_2421 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2137 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2421); } 
{ /* Llib/trace.scm 162 */

BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1258z00_2136, BgL_portz00_2137); } } } 
{ 
 obj_t BgL_l1081z00_2425;
BgL_l1081z00_2425 = 
CDR(BgL_l1081z00_2135); 
BgL_l1081z00_2135 = BgL_l1081z00_2425; 
goto BgL_zc3z04anonymousza31255ze3z87_2134;} }  else 
{ /* Llib/trace.scm 162 */
if(
NULLP(BgL_l1081z00_2135))
{ /* Llib/trace.scm 162 */
return BTRUE;}  else 
{ /* Llib/trace.scm 162 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1806z00zz__tracez00, BGl_string1807z00zz__tracez00, BgL_l1081z00_2135, BGl_string1792z00zz__tracez00, 
BINT(6306L));} } } } } 

}



/* trace-string */
BGL_EXPORTED_DEF obj_t BGl_tracezd2stringzd2zz__tracez00(obj_t BgL_oz00_15)
{
{ /* Llib/trace.scm 167 */
{ /* Llib/trace.scm 170 */
 obj_t BgL_zc3z04anonymousza31263ze3z87_2036;
BgL_zc3z04anonymousza31263ze3z87_2036 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31263ze3ze5zz__tracez00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31263ze3z87_2036, 
(int)(0L), BgL_oz00_15); 
return 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31263ze3z87_2036);} } 

}



/* &trace-string */
obj_t BGl_z62tracezd2stringzb0zz__tracez00(obj_t BgL_envz00_2037, obj_t BgL_oz00_2038)
{
{ /* Llib/trace.scm 167 */
return 
BGl_tracezd2stringzd2zz__tracez00(BgL_oz00_2038);} 

}



/* &<@anonymous:1263> */
obj_t BGl_z62zc3z04anonymousza31263ze3ze5zz__tracez00(obj_t BgL_envz00_2039)
{
{ /* Llib/trace.scm 169 */
return 
BGl_writez00zz__r4_output_6_10_3z00(
PROCEDURE_REF(BgL_envz00_2039, 
(int)(0L)), BNIL);} 

}



/* trace-item */
BGL_EXPORTED_DEF obj_t BGl_tracezd2itemzd2zz__tracez00(obj_t BgL_argsz00_16)
{
{ /* Llib/trace.scm 175 */
{ /* Llib/trace.scm 176 */
 bool_t BgL_test1910z00_2441;
{ /* Llib/trace.scm 176 */
 int BgL_arg1285z00_1214;
BgL_arg1285z00_1214 = 
bgl_debug(); 
BgL_test1910z00_2441 = 
(
(long)(BgL_arg1285z00_1214)>0L); } 
if(BgL_test1910z00_2441)
{ /* Llib/trace.scm 177 */
 obj_t BgL_alz00_1195;
BgL_alz00_1195 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 178 */
 bool_t BgL_test1911z00_2446;
{ /* Llib/trace.scm 178 */
 obj_t BgL_arg1283z00_1213;
{ /* Llib/trace.scm 178 */
 obj_t BgL_keyz00_1726;
BgL_keyz00_1726 = BGl_symbol1787z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1727;
BgL_cz00_1727 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1726, BgL_alz00_1195); 
if(
PAIRP(BgL_cz00_1727))
{ /* Llib/trace.scm 98 */
BgL_arg1283z00_1213 = 
CDR(BgL_cz00_1727); }  else 
{ /* Llib/trace.scm 98 */
BgL_arg1283z00_1213 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1726); } } } 
BgL_test1911z00_2446 = 
CBOOL(
BGl_tracezd2activezf3z21zz__tracez00(BgL_arg1283z00_1213)); } 
if(BgL_test1911z00_2446)
{ /* Llib/trace.scm 179 */
 obj_t BgL_pz00_1198;
{ /* Llib/trace.scm 179 */
 obj_t BgL_res1730z00_1731;
{ /* Llib/trace.scm 115 */
 obj_t BgL_arg1206z00_1730;
BgL_arg1206z00_1730 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 115 */
 obj_t BgL_aux1758z00_2090;
BgL_aux1758z00_2090 = 
BGl_tracezd2alistzd2getz00zz__tracez00(BgL_arg1206z00_1730, BGl_symbol1780z00zz__tracez00); 
if(
OUTPUT_PORTP(BgL_aux1758z00_2090))
{ /* Llib/trace.scm 115 */
BgL_res1730z00_1731 = BgL_aux1758z00_2090; }  else 
{ 
 obj_t BgL_auxz00_2458;
BgL_auxz00_2458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(4232L), BGl_string1812z00zz__tracez00, BGl_string1794z00zz__tracez00, BgL_aux1758z00_2090); 
FAILURE(BgL_auxz00_2458,BFALSE,BFALSE);} } } 
BgL_pz00_1198 = BgL_res1730z00_1731; } 
{ /* Llib/trace.scm 180 */
 obj_t BgL_mutex1269z00_1199;
BgL_mutex1269z00_1199 = BGl_za2tracezd2mutexza2zd2zz__tracez00; 
{ /* Llib/trace.scm 180 */
 obj_t BgL_top1915z00_2463;
BgL_top1915z00_2463 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BgL_mutex1269z00_1199); 
BGL_EXITD_PUSH_PROTECT(BgL_top1915z00_2463, BgL_mutex1269z00_1199); BUNSPEC; 
{ /* Llib/trace.scm 180 */
 obj_t BgL_tmp1914z00_2462;
{ /* Llib/trace.scm 181 */
 obj_t BgL_arg1271z00_1200;
{ /* Llib/trace.scm 181 */
 obj_t BgL_keyz00_1732;
BgL_keyz00_1732 = BGl_symbol1784z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1733;
BgL_cz00_1733 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1732, BgL_alz00_1195); 
if(
PAIRP(BgL_cz00_1733))
{ /* Llib/trace.scm 98 */
BgL_arg1271z00_1200 = 
CDR(BgL_cz00_1733); }  else 
{ /* Llib/trace.scm 98 */
BgL_arg1271z00_1200 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1732); } } } 
bgl_display_obj(BgL_arg1271z00_1200, BgL_pz00_1198); } 
{ /* Llib/trace.scm 182 */
 obj_t BgL_arg1274z00_1201;
{ /* Llib/trace.scm 182 */
 long BgL_arg1276z00_1202;
{ /* Llib/trace.scm 182 */
 obj_t BgL_arg1278z00_1204;
{ /* Llib/trace.scm 182 */
 obj_t BgL_keyz00_1736;
BgL_keyz00_1736 = BGl_symbol1782z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1737;
BgL_cz00_1737 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1736, BgL_alz00_1195); 
if(
PAIRP(BgL_cz00_1737))
{ /* Llib/trace.scm 98 */
BgL_arg1278z00_1204 = 
CDR(BgL_cz00_1737); }  else 
{ /* Llib/trace.scm 98 */
BgL_arg1278z00_1204 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1736); } } } 
{ /* Llib/trace.scm 182 */
 long BgL_za71za7_1740;
{ /* Llib/trace.scm 182 */
 obj_t BgL_tmpz00_2478;
if(
INTEGERP(BgL_arg1278z00_1204))
{ /* Llib/trace.scm 182 */
BgL_tmpz00_2478 = BgL_arg1278z00_1204
; }  else 
{ 
 obj_t BgL_auxz00_2481;
BgL_auxz00_2481 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(7188L), BGl_string1812z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_arg1278z00_1204); 
FAILURE(BgL_auxz00_2481,BFALSE,BFALSE);} 
BgL_za71za7_1740 = 
(long)CINT(BgL_tmpz00_2478); } 
BgL_arg1276z00_1202 = 
(BgL_za71za7_1740-1L); } } 
{ /* Llib/trace.scm 182 */
 obj_t BgL_list1277z00_1203;
BgL_list1277z00_1203 = 
MAKE_YOUNG_PAIR(BGl_string1813z00zz__tracez00, BNIL); 
BgL_arg1274z00_1201 = 
BGl_ttyzd2tracezd2colorz00zz__tracez00(
(int)(BgL_arg1276z00_1202), BgL_list1277z00_1203); } } 
bgl_display_obj(BgL_arg1274z00_1201, BgL_pz00_1198); } 
{ 
 obj_t BgL_l1084z00_1206;
BgL_l1084z00_1206 = BgL_argsz00_16; 
BgL_zc3z04anonymousza31279ze3z87_1207:
if(
PAIRP(BgL_l1084z00_1206))
{ /* Llib/trace.scm 183 */
BGl_displayzd2circlezd2zz__pp_circlez00(
CAR(BgL_l1084z00_1206), BgL_pz00_1198); 
{ 
 obj_t BgL_l1084z00_2495;
BgL_l1084z00_2495 = 
CDR(BgL_l1084z00_1206); 
BgL_l1084z00_1206 = BgL_l1084z00_2495; 
goto BgL_zc3z04anonymousza31279ze3z87_1207;} }  else 
{ /* Llib/trace.scm 183 */
if(
NULLP(BgL_l1084z00_1206))
{ /* Llib/trace.scm 183 */BTRUE; }  else 
{ /* Llib/trace.scm 183 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1806z00zz__tracez00, BGl_string1807z00zz__tracez00, BgL_l1084z00_1206, BGl_string1792z00zz__tracez00, 
BINT(7206L)); } } } 
bgl_display_char(((unsigned char)10), BgL_pz00_1198); 
BgL_tmp1914z00_2462 = 
bgl_flush_output_port(BgL_pz00_1198); 
BGL_EXITD_POP_PROTECT(BgL_top1915z00_2463); BUNSPEC; 
BGL_MUTEX_UNLOCK(BgL_mutex1269z00_1199); 
return BgL_tmp1914z00_2462;} } } }  else 
{ /* Llib/trace.scm 178 */
return BFALSE;} } }  else 
{ /* Llib/trace.scm 176 */
return BFALSE;} } } 

}



/* &trace-item */
obj_t BGl_z62tracezd2itemzb0zz__tracez00(obj_t BgL_envz00_2041, obj_t BgL_argsz00_2042)
{
{ /* Llib/trace.scm 175 */
return 
BGl_tracezd2itemzd2zz__tracez00(BgL_argsz00_2042);} 

}



/* trace-active? */
BGL_EXPORTED_DEF obj_t BGl_tracezd2activezf3z21zz__tracez00(obj_t BgL_lvlz00_17)
{
{ /* Llib/trace.scm 190 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_lvlz00_17))
{ /* Llib/trace.scm 192 */
 int BgL_arg1287z00_1216;
BgL_arg1287z00_1216 = 
bgl_debug(); 
{ /* Llib/trace.scm 192 */
 long BgL_n1z00_1745; long BgL_n2z00_1746;
BgL_n1z00_1745 = 
(long)(BgL_arg1287z00_1216); 
{ /* Llib/trace.scm 192 */
 obj_t BgL_tmpz00_2510;
if(
INTEGERP(BgL_lvlz00_17))
{ /* Llib/trace.scm 192 */
BgL_tmpz00_2510 = BgL_lvlz00_17
; }  else 
{ 
 obj_t BgL_auxz00_2513;
BgL_auxz00_2513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(7607L), BGl_string1814z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_lvlz00_17); 
FAILURE(BgL_auxz00_2513,BFALSE,BFALSE);} 
BgL_n2z00_1746 = 
(long)CINT(BgL_tmpz00_2510); } 
return 
BBOOL(
(BgL_n1z00_1745>=BgL_n2z00_1746));} }  else 
{ /* Llib/trace.scm 192 */
if(
SYMBOLP(BgL_lvlz00_17))
{ /* Llib/trace.scm 193 */
return 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_lvlz00_17, 
BGl_bigloozd2tracezd2zz__paramz00());}  else 
{ /* Llib/trace.scm 193 */
return BFALSE;} } } 

}



/* &trace-active? */
obj_t BGl_z62tracezd2activezf3z43zz__tracez00(obj_t BgL_envz00_2043, obj_t BgL_lvlz00_2044)
{
{ /* Llib/trace.scm 190 */
return 
BGl_tracezd2activezf3z21zz__tracez00(BgL_lvlz00_2044);} 

}



/* %with-trace */
BGL_EXPORTED_DEF obj_t BGl_z52withzd2tracez80zz__tracez00(obj_t BgL_lvlz00_18, obj_t BgL_lblz00_19, obj_t BgL_thunkz00_20)
{
{ /* Llib/trace.scm 198 */
{ /* Llib/trace.scm 199 */
 obj_t BgL_alz00_1219;
BgL_alz00_1219 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 199 */
 obj_t BgL_olz00_1220;
{ /* Llib/trace.scm 200 */
 obj_t BgL_keyz00_1747;
BgL_keyz00_1747 = BGl_symbol1787z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1748;
BgL_cz00_1748 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1747, BgL_alz00_1219); 
if(
PAIRP(BgL_cz00_1748))
{ /* Llib/trace.scm 98 */
BgL_olz00_1220 = 
CDR(BgL_cz00_1748); }  else 
{ /* Llib/trace.scm 98 */
BgL_olz00_1220 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1747); } } } 
{ /* Llib/trace.scm 200 */

{ /* Llib/trace.scm 201 */
 obj_t BgL_keyz00_1751;
BgL_keyz00_1751 = BGl_symbol1787z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_1752;
BgL_cz00_1752 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1751, BgL_alz00_1219); 
if(
PAIRP(BgL_cz00_1752))
{ /* Llib/trace.scm 107 */
SET_CDR(BgL_cz00_1752, BgL_lvlz00_18); }  else 
{ /* Llib/trace.scm 107 */
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1751); } } } 
if(
CBOOL(
BGl_tracezd2activezf3z21zz__tracez00(BgL_lvlz00_18)))
{ /* Llib/trace.scm 203 */
 obj_t BgL_dz00_1222;
{ /* Llib/trace.scm 203 */
 obj_t BgL_keyz00_1755;
BgL_keyz00_1755 = BGl_symbol1782z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1756;
BgL_cz00_1756 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1755, BgL_alz00_1219); 
if(
PAIRP(BgL_cz00_1756))
{ /* Llib/trace.scm 98 */
BgL_dz00_1222 = 
CDR(BgL_cz00_1756); }  else 
{ /* Llib/trace.scm 98 */
BgL_dz00_1222 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1755); } } } 
{ /* Llib/trace.scm 203 */
 obj_t BgL_omz00_1223;
{ /* Llib/trace.scm 204 */
 obj_t BgL_keyz00_1759;
BgL_keyz00_1759 = BGl_symbol1784z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_1760;
BgL_cz00_1760 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1759, BgL_alz00_1219); 
if(
PAIRP(BgL_cz00_1760))
{ /* Llib/trace.scm 98 */
BgL_omz00_1223 = 
CDR(BgL_cz00_1760); }  else 
{ /* Llib/trace.scm 98 */
BgL_omz00_1223 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1759); } } } 
{ /* Llib/trace.scm 204 */
 obj_t BgL_maz00_1224;
{ /* Llib/trace.scm 205 */
 obj_t BgL_list1340z00_1248;
BgL_list1340z00_1248 = 
MAKE_YOUNG_PAIR(BGl_string1815z00zz__tracez00, BNIL); 
{ /* Llib/trace.scm 205 */
 int BgL_auxz00_2550;
{ /* Llib/trace.scm 205 */
 obj_t BgL_tmpz00_2551;
if(
INTEGERP(BgL_dz00_1222))
{ /* Llib/trace.scm 205 */
BgL_tmpz00_2551 = BgL_dz00_1222
; }  else 
{ 
 obj_t BgL_auxz00_2554;
BgL_auxz00_2554 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8157L), BGl_string1816z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_dz00_1222); 
FAILURE(BgL_auxz00_2554,BFALSE,BFALSE);} 
BgL_auxz00_2550 = 
CINT(BgL_tmpz00_2551); } 
BgL_maz00_1224 = 
BGl_ttyzd2tracezd2colorz00zz__tracez00(BgL_auxz00_2550, BgL_list1340z00_1248); } } 
{ /* Llib/trace.scm 205 */

{ /* Llib/trace.scm 206 */
 obj_t BgL_mutex1293z00_1225;
BgL_mutex1293z00_1225 = BGl_za2tracezd2mutexza2zd2zz__tracez00; 
{ /* Llib/trace.scm 206 */
 obj_t BgL_top1931z00_2561;
BgL_top1931z00_2561 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BgL_mutex1293z00_1225); 
BGL_EXITD_PUSH_PROTECT(BgL_top1931z00_2561, BgL_mutex1293z00_1225); BUNSPEC; 
{ /* Llib/trace.scm 206 */
 obj_t BgL_tmp1930z00_2560;
{ /* Llib/trace.scm 207 */
 obj_t BgL_arg1295z00_1226;
{ /* Llib/trace.scm 207 */
 obj_t BgL_res1731z00_1764;
{ /* Llib/trace.scm 115 */
 obj_t BgL_arg1206z00_1763;
BgL_arg1206z00_1763 = 
BGl_tracezd2alistzd2zz__tracez00(); 
{ /* Llib/trace.scm 115 */
 obj_t BgL_aux1763z00_2095;
BgL_aux1763z00_2095 = 
BGl_tracezd2alistzd2getz00zz__tracez00(BgL_arg1206z00_1763, BGl_symbol1780z00zz__tracez00); 
if(
OUTPUT_PORTP(BgL_aux1763z00_2095))
{ /* Llib/trace.scm 115 */
BgL_res1731z00_1764 = BgL_aux1763z00_2095; }  else 
{ 
 obj_t BgL_auxz00_2569;
BgL_auxz00_2569 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(4232L), BGl_string1816z00zz__tracez00, BGl_string1794z00zz__tracez00, BgL_aux1763z00_2095); 
FAILURE(BgL_auxz00_2569,BFALSE,BFALSE);} } } 
BgL_arg1295z00_1226 = BgL_res1731z00_1764; } 
{ /* Llib/trace.scm 209 */
 obj_t BgL_zc3z04anonymousza31297ze3z87_2046;
BgL_zc3z04anonymousza31297ze3z87_2046 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31297ze3ze5zz__tracez00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31297ze3z87_2046, 
(int)(0L), BgL_alz00_1219); 
PROCEDURE_SET(BgL_zc3z04anonymousza31297ze3z87_2046, 
(int)(1L), BgL_lblz00_19); 
PROCEDURE_SET(BgL_zc3z04anonymousza31297ze3z87_2046, 
(int)(2L), BgL_dz00_1222); 
BgL_tmp1930z00_2560 = 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_arg1295z00_1226, BgL_zc3z04anonymousza31297ze3z87_2046); } } 
BGL_EXITD_POP_PROTECT(BgL_top1931z00_2561); BUNSPEC; 
BGL_MUTEX_UNLOCK(BgL_mutex1293z00_1225); BgL_tmp1930z00_2560; } } } 
{ /* Llib/trace.scm 215 */
 long BgL_arg1337z00_1241;
{ /* Llib/trace.scm 215 */
 long BgL_za71za7_1776;
{ /* Llib/trace.scm 215 */
 obj_t BgL_tmpz00_2585;
if(
INTEGERP(BgL_dz00_1222))
{ /* Llib/trace.scm 215 */
BgL_tmpz00_2585 = BgL_dz00_1222
; }  else 
{ 
 obj_t BgL_auxz00_2588;
BgL_auxz00_2588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8534L), BGl_string1816z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_dz00_1222); 
FAILURE(BgL_auxz00_2588,BFALSE,BFALSE);} 
BgL_za71za7_1776 = 
(long)CINT(BgL_tmpz00_2585); } 
BgL_arg1337z00_1241 = 
(BgL_za71za7_1776+1L); } 
{ /* Llib/trace.scm 215 */
 obj_t BgL_keyz00_1777;
BgL_keyz00_1777 = BGl_symbol1782z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_1778;
BgL_cz00_1778 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1777, BgL_alz00_1219); 
if(
PAIRP(BgL_cz00_1778))
{ /* Llib/trace.scm 108 */
 obj_t BgL_tmpz00_2597;
BgL_tmpz00_2597 = 
BINT(BgL_arg1337z00_1241); 
SET_CDR(BgL_cz00_1778, BgL_tmpz00_2597); }  else 
{ /* Llib/trace.scm 107 */
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1777); } } } } 
{ /* Llib/trace.scm 216 */
 obj_t BgL_arg1338z00_1242;
{ /* Llib/trace.scm 216 */
 obj_t BgL_tmpz00_2601;
if(
STRINGP(BgL_omz00_1223))
{ /* Llib/trace.scm 216 */
BgL_tmpz00_2601 = BgL_omz00_1223
; }  else 
{ 
 obj_t BgL_auxz00_2604;
BgL_auxz00_2604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8575L), BGl_string1816z00zz__tracez00, BGl_string1799z00zz__tracez00, BgL_omz00_1223); 
FAILURE(BgL_auxz00_2604,BFALSE,BFALSE);} 
BgL_arg1338z00_1242 = 
string_append(BgL_tmpz00_2601, BgL_maz00_1224); } 
{ /* Llib/trace.scm 216 */
 obj_t BgL_keyz00_1781;
BgL_keyz00_1781 = BGl_symbol1784z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_1782;
BgL_cz00_1782 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1781, BgL_alz00_1219); 
if(
PAIRP(BgL_cz00_1782))
{ /* Llib/trace.scm 107 */
SET_CDR(BgL_cz00_1782, BgL_arg1338z00_1242); }  else 
{ /* Llib/trace.scm 107 */
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1781); } } } } 
{ /* Llib/trace.scm 217 */
 obj_t BgL_exitd1039z00_1243;
BgL_exitd1039z00_1243 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/trace.scm 220 */
 obj_t BgL_zc3z04anonymousza31339ze3z87_2045;
BgL_zc3z04anonymousza31339ze3z87_2045 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31339ze3ze5zz__tracez00, 
(int)(0L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31339ze3z87_2045, 
(int)(0L), BgL_alz00_1219); 
PROCEDURE_SET(BgL_zc3z04anonymousza31339ze3z87_2045, 
(int)(1L), BgL_dz00_1222); 
PROCEDURE_SET(BgL_zc3z04anonymousza31339ze3z87_2045, 
(int)(2L), BgL_omz00_1223); 
PROCEDURE_SET(BgL_zc3z04anonymousza31339ze3z87_2045, 
(int)(3L), BgL_olz00_1220); 
{ /* Llib/trace.scm 217 */
 obj_t BgL_arg1726z00_1797;
{ /* Llib/trace.scm 217 */
 obj_t BgL_arg1727z00_1798;
BgL_arg1727z00_1798 = 
BGL_EXITD_PROTECT(BgL_exitd1039z00_1243); 
BgL_arg1726z00_1797 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31339ze3z87_2045, BgL_arg1727z00_1798); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1039z00_1243, BgL_arg1726z00_1797); BUNSPEC; } 
{ /* Llib/trace.scm 218 */
 obj_t BgL_tmp1041z00_1245;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_20, 0))
{ /* Llib/trace.scm 218 */
BgL_tmp1041z00_1245 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_20); }  else 
{ /* Llib/trace.scm 218 */
FAILURE(BGl_string1817z00zz__tracez00,BGl_list1818z00zz__tracez00,BgL_thunkz00_20);} 
{ /* Llib/trace.scm 217 */
 bool_t BgL_test1938z00_2635;
{ /* Llib/trace.scm 217 */
 obj_t BgL_arg1725z00_1800;
BgL_arg1725z00_1800 = 
BGL_EXITD_PROTECT(BgL_exitd1039z00_1243); 
BgL_test1938z00_2635 = 
PAIRP(BgL_arg1725z00_1800); } 
if(BgL_test1938z00_2635)
{ /* Llib/trace.scm 217 */
 obj_t BgL_arg1723z00_1801;
{ /* Llib/trace.scm 217 */
 obj_t BgL_arg1724z00_1802;
BgL_arg1724z00_1802 = 
BGL_EXITD_PROTECT(BgL_exitd1039z00_1243); 
{ /* Llib/trace.scm 217 */
 obj_t BgL_pairz00_1803;
if(
PAIRP(BgL_arg1724z00_1802))
{ /* Llib/trace.scm 217 */
BgL_pairz00_1803 = BgL_arg1724z00_1802; }  else 
{ 
 obj_t BgL_auxz00_2641;
BgL_auxz00_2641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8604L), BGl_string1816z00zz__tracez00, BGl_string1810z00zz__tracez00, BgL_arg1724z00_1802); 
FAILURE(BgL_auxz00_2641,BFALSE,BFALSE);} 
BgL_arg1723z00_1801 = 
CDR(BgL_pairz00_1803); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1039z00_1243, BgL_arg1723z00_1801); BUNSPEC; }  else 
{ /* Llib/trace.scm 217 */BFALSE; } } 
BGl_z62zc3z04anonymousza31339ze3ze5zz__tracez00(BgL_zc3z04anonymousza31339ze3z87_2045); 
return BgL_tmp1041z00_1245;} } } } } } }  else 
{ /* Llib/trace.scm 223 */
 obj_t BgL_exitd1043z00_1249;
BgL_exitd1043z00_1249 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/trace.scm 225 */
 obj_t BgL_zc3z04anonymousza31341ze3z87_2047;
BgL_zc3z04anonymousza31341ze3z87_2047 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31341ze3ze5zz__tracez00, 
(int)(0L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31341ze3z87_2047, 
(int)(0L), BgL_alz00_1219); 
PROCEDURE_SET(BgL_zc3z04anonymousza31341ze3z87_2047, 
(int)(1L), BgL_olz00_1220); 
{ /* Llib/trace.scm 223 */
 obj_t BgL_arg1726z00_1808;
{ /* Llib/trace.scm 223 */
 obj_t BgL_arg1727z00_1809;
BgL_arg1727z00_1809 = 
BGL_EXITD_PROTECT(BgL_exitd1043z00_1249); 
BgL_arg1726z00_1808 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31341ze3z87_2047, BgL_arg1727z00_1809); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1043z00_1249, BgL_arg1726z00_1808); BUNSPEC; } 
{ /* Llib/trace.scm 224 */
 obj_t BgL_tmp1045z00_1251;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_20, 0))
{ /* Llib/trace.scm 224 */
BgL_tmp1045z00_1251 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_20); }  else 
{ /* Llib/trace.scm 224 */
FAILURE(BGl_string1817z00zz__tracez00,BGl_list1818z00zz__tracez00,BgL_thunkz00_20);} 
{ /* Llib/trace.scm 223 */
 bool_t BgL_test1941z00_2665;
{ /* Llib/trace.scm 223 */
 obj_t BgL_arg1725z00_1811;
BgL_arg1725z00_1811 = 
BGL_EXITD_PROTECT(BgL_exitd1043z00_1249); 
BgL_test1941z00_2665 = 
PAIRP(BgL_arg1725z00_1811); } 
if(BgL_test1941z00_2665)
{ /* Llib/trace.scm 223 */
 obj_t BgL_arg1723z00_1812;
{ /* Llib/trace.scm 223 */
 obj_t BgL_arg1724z00_1813;
BgL_arg1724z00_1813 = 
BGL_EXITD_PROTECT(BgL_exitd1043z00_1249); 
{ /* Llib/trace.scm 223 */
 obj_t BgL_pairz00_1814;
if(
PAIRP(BgL_arg1724z00_1813))
{ /* Llib/trace.scm 223 */
BgL_pairz00_1814 = BgL_arg1724z00_1813; }  else 
{ 
 obj_t BgL_auxz00_2671;
BgL_auxz00_2671 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8763L), BGl_string1816z00zz__tracez00, BGl_string1810z00zz__tracez00, BgL_arg1724z00_1813); 
FAILURE(BgL_auxz00_2671,BFALSE,BFALSE);} 
BgL_arg1723z00_1812 = 
CDR(BgL_pairz00_1814); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1043z00_1249, BgL_arg1723z00_1812); BUNSPEC; }  else 
{ /* Llib/trace.scm 223 */BFALSE; } } 
{ /* Llib/trace.scm 225 */
 obj_t BgL_keyz00_1815;
BgL_keyz00_1815 = BGl_symbol1787z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_1816;
BgL_cz00_1816 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_1815, BgL_alz00_1219); 
if(
PAIRP(BgL_cz00_1816))
{ /* Llib/trace.scm 107 */
SET_CDR(BgL_cz00_1816, BgL_olz00_1220); }  else 
{ /* Llib/trace.scm 107 */
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_1815); } } } 
return BgL_tmp1045z00_1251;} } } } } } } 

}



/* &%with-trace */
obj_t BGl_z62z52withzd2traceze2zz__tracez00(obj_t BgL_envz00_2048, obj_t BgL_lvlz00_2049, obj_t BgL_lblz00_2050, obj_t BgL_thunkz00_2051)
{
{ /* Llib/trace.scm 198 */
{ /* Llib/trace.scm 199 */
 obj_t BgL_auxz00_2682;
if(
PROCEDUREP(BgL_thunkz00_2051))
{ /* Llib/trace.scm 199 */
BgL_auxz00_2682 = BgL_thunkz00_2051
; }  else 
{ 
 obj_t BgL_auxz00_2685;
BgL_auxz00_2685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(7925L), BGl_string1823z00zz__tracez00, BGl_string1824z00zz__tracez00, BgL_thunkz00_2051); 
FAILURE(BgL_auxz00_2685,BFALSE,BFALSE);} 
return 
BGl_z52withzd2tracez80zz__tracez00(BgL_lvlz00_2049, BgL_lblz00_2050, BgL_auxz00_2682);} } 

}



/* &<@anonymous:1339> */
obj_t BGl_z62zc3z04anonymousza31339ze3ze5zz__tracez00(obj_t BgL_envz00_2052)
{
{ /* Llib/trace.scm 217 */
{ /* Llib/trace.scm 220 */
 obj_t BgL_alz00_2053; obj_t BgL_dz00_2054; obj_t BgL_omz00_2055; obj_t BgL_olz00_2056;
BgL_alz00_2053 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2052, 
(int)(0L))); 
BgL_dz00_2054 = 
PROCEDURE_REF(BgL_envz00_2052, 
(int)(1L)); 
BgL_omz00_2055 = 
PROCEDURE_REF(BgL_envz00_2052, 
(int)(2L)); 
BgL_olz00_2056 = 
PROCEDURE_REF(BgL_envz00_2052, 
(int)(3L)); 
{ /* Llib/trace.scm 220 */
 obj_t BgL_keyz00_2138;
BgL_keyz00_2138 = BGl_symbol1782z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_2139;
BgL_cz00_2139 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_2138, BgL_alz00_2053); 
if(
PAIRP(BgL_cz00_2139))
{ /* Llib/trace.scm 107 */
SET_CDR(BgL_cz00_2139, BgL_dz00_2054); }  else 
{ /* Llib/trace.scm 107 */
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_2138); } } } 
{ /* Llib/trace.scm 221 */
 obj_t BgL_keyz00_2140;
BgL_keyz00_2140 = BGl_symbol1784z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_2141;
BgL_cz00_2141 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_2140, BgL_alz00_2053); 
if(
PAIRP(BgL_cz00_2141))
{ /* Llib/trace.scm 107 */
SET_CDR(BgL_cz00_2141, BgL_omz00_2055); }  else 
{ /* Llib/trace.scm 107 */
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_2140); } } } 
{ /* Llib/trace.scm 222 */
 obj_t BgL_keyz00_2142;
BgL_keyz00_2142 = BGl_symbol1787z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_2143;
BgL_cz00_2143 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_2142, BgL_alz00_2053); 
if(
PAIRP(BgL_cz00_2143))
{ /* Llib/trace.scm 107 */
return 
SET_CDR(BgL_cz00_2143, BgL_olz00_2056);}  else 
{ /* Llib/trace.scm 107 */
return 
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_2142);} } } } } 

}



/* &<@anonymous:1297> */
obj_t BGl_z62zc3z04anonymousza31297ze3ze5zz__tracez00(obj_t BgL_envz00_2057)
{
{ /* Llib/trace.scm 208 */
{ /* Llib/trace.scm 209 */
 obj_t BgL_alz00_2058; obj_t BgL_lblz00_2059; obj_t BgL_dz00_2060;
BgL_alz00_2058 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2057, 
(int)(0L))); 
BgL_lblz00_2059 = 
PROCEDURE_REF(BgL_envz00_2057, 
(int)(1L)); 
BgL_dz00_2060 = 
PROCEDURE_REF(BgL_envz00_2057, 
(int)(2L)); 
{ /* Llib/trace.scm 209 */
 obj_t BgL_arg1298z00_2144; obj_t BgL_arg1301z00_2145;
{ /* Llib/trace.scm 209 */
 obj_t BgL_keyz00_2146;
BgL_keyz00_2146 = BGl_symbol1784z00zz__tracez00; 
{ /* Llib/trace.scm 97 */
 obj_t BgL_cz00_2147;
BgL_cz00_2147 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_2146, BgL_alz00_2058); 
if(
PAIRP(BgL_cz00_2147))
{ /* Llib/trace.scm 98 */
BgL_arg1298z00_2144 = 
CDR(BgL_cz00_2147); }  else 
{ /* Llib/trace.scm 98 */
BgL_arg1298z00_2144 = 
BGl_errorz00zz__errorz00(BGl_symbol1789z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_2146); } } } 
{ /* Llib/trace.scm 209 */
 obj_t BgL_tmpz00_2726;
BgL_tmpz00_2726 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1301z00_2145 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2726); } 
bgl_display_obj(BgL_arg1298z00_2144, BgL_arg1301z00_2145); } 
{ /* Llib/trace.scm 210 */
 obj_t BgL_arg1322z00_2148; obj_t BgL_arg1329z00_2149;
{ /* Llib/trace.scm 210 */
 bool_t BgL_test1949z00_2730;
{ /* Llib/trace.scm 210 */
 long BgL_n1z00_2150;
{ /* Llib/trace.scm 210 */
 obj_t BgL_tmpz00_2731;
if(
INTEGERP(BgL_dz00_2060))
{ /* Llib/trace.scm 210 */
BgL_tmpz00_2731 = BgL_dz00_2060
; }  else 
{ 
 obj_t BgL_auxz00_2734;
BgL_auxz00_2734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8343L), BGl_string1825z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_dz00_2060); 
FAILURE(BgL_auxz00_2734,BFALSE,BFALSE);} 
BgL_n1z00_2150 = 
(long)CINT(BgL_tmpz00_2731); } 
BgL_test1949z00_2730 = 
(BgL_n1z00_2150==0L); } 
if(BgL_test1949z00_2730)
{ /* Llib/trace.scm 211 */
 obj_t BgL_list1331z00_2151;
{ /* Llib/trace.scm 211 */
 obj_t BgL_arg1332z00_2152;
BgL_arg1332z00_2152 = 
MAKE_YOUNG_PAIR(BgL_lblz00_2059, BNIL); 
BgL_list1331z00_2151 = 
MAKE_YOUNG_PAIR(BGl_string1826z00zz__tracez00, BgL_arg1332z00_2152); } 
{ /* Llib/trace.scm 211 */
 int BgL_auxz00_2742;
{ /* Llib/trace.scm 211 */
 obj_t BgL_tmpz00_2743;
if(
INTEGERP(BgL_dz00_2060))
{ /* Llib/trace.scm 211 */
BgL_tmpz00_2743 = BgL_dz00_2060
; }  else 
{ 
 obj_t BgL_auxz00_2746;
BgL_auxz00_2746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8355L), BGl_string1825z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_dz00_2060); 
FAILURE(BgL_auxz00_2746,BFALSE,BFALSE);} 
BgL_auxz00_2742 = 
CINT(BgL_tmpz00_2743); } 
BgL_arg1322z00_2148 = 
BGl_ttyzd2tracezd2colorz00zz__tracez00(BgL_auxz00_2742, BgL_list1331z00_2151); } }  else 
{ /* Llib/trace.scm 212 */
 obj_t BgL_list1333z00_2153;
{ /* Llib/trace.scm 212 */
 obj_t BgL_arg1334z00_2154;
BgL_arg1334z00_2154 = 
MAKE_YOUNG_PAIR(BgL_lblz00_2059, BNIL); 
BgL_list1333z00_2153 = 
MAKE_YOUNG_PAIR(BGl_string1827z00zz__tracez00, BgL_arg1334z00_2154); } 
{ /* Llib/trace.scm 212 */
 int BgL_auxz00_2754;
{ /* Llib/trace.scm 212 */
 obj_t BgL_tmpz00_2755;
if(
INTEGERP(BgL_dz00_2060))
{ /* Llib/trace.scm 212 */
BgL_tmpz00_2755 = BgL_dz00_2060
; }  else 
{ 
 obj_t BgL_auxz00_2758;
BgL_auxz00_2758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1792z00zz__tracez00, 
BINT(8391L), BGl_string1825z00zz__tracez00, BGl_string1802z00zz__tracez00, BgL_dz00_2060); 
FAILURE(BgL_auxz00_2758,BFALSE,BFALSE);} 
BgL_auxz00_2754 = 
CINT(BgL_tmpz00_2755); } 
BgL_arg1322z00_2148 = 
BGl_ttyzd2tracezd2colorz00zz__tracez00(BgL_auxz00_2754, BgL_list1333z00_2153); } } } 
{ /* Llib/trace.scm 210 */
 obj_t BgL_tmpz00_2764;
BgL_tmpz00_2764 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1329z00_2149 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2764); } 
bgl_display_obj(BgL_arg1322z00_2148, BgL_arg1329z00_2149); } 
{ /* Llib/trace.scm 213 */
 obj_t BgL_arg1335z00_2155;
{ /* Llib/trace.scm 213 */
 obj_t BgL_tmpz00_2768;
BgL_tmpz00_2768 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1335z00_2155 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2768); } 
bgl_display_char(((unsigned char)10), BgL_arg1335z00_2155); } 
{ /* Llib/trace.scm 214 */
 obj_t BgL_arg1336z00_2156;
{ /* Llib/trace.scm 214 */
 obj_t BgL_tmpz00_2772;
BgL_tmpz00_2772 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1336z00_2156 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_2772); } 
return 
bgl_flush_output_port(BgL_arg1336z00_2156);} } } 

}



/* &<@anonymous:1341> */
obj_t BGl_z62zc3z04anonymousza31341ze3ze5zz__tracez00(obj_t BgL_envz00_2061)
{
{ /* Llib/trace.scm 223 */
{ /* Llib/trace.scm 225 */
 obj_t BgL_alz00_2062; obj_t BgL_olz00_2063;
BgL_alz00_2062 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2061, 
(int)(0L))); 
BgL_olz00_2063 = 
PROCEDURE_REF(BgL_envz00_2061, 
(int)(1L)); 
{ /* Llib/trace.scm 225 */
 obj_t BgL_keyz00_2157;
BgL_keyz00_2157 = BGl_symbol1787z00zz__tracez00; 
{ /* Llib/trace.scm 106 */
 obj_t BgL_cz00_2158;
BgL_cz00_2158 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_keyz00_2157, BgL_alz00_2062); 
if(
PAIRP(BgL_cz00_2158))
{ /* Llib/trace.scm 107 */
return 
SET_CDR(BgL_cz00_2158, BgL_olz00_2063);}  else 
{ /* Llib/trace.scm 107 */
return 
BGl_errorz00zz__errorz00(BGl_symbol1795z00zz__tracez00, BGl_string1791z00zz__tracez00, BgL_keyz00_2157);} } } } } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 15 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 15 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__tracez00(void)
{
{ /* Llib/trace.scm 15 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__tracez00(void)
{
{ /* Llib/trace.scm 15 */
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1828z00zz__tracez00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string1828z00zz__tracez00)); 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string1828z00zz__tracez00)); 
return 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L, 
BSTRING_TO_STRING(BGl_string1828z00zz__tracez00));} 

}

#ifdef __cplusplus
}
#endif
