(begin (ex:register-library! (ex:make-library '(core primitives) (lambda () '()) '((begin macro begin (0) #f ()) (if macro if (0) #f ()) (lambda macro lambda (0) #f ()) (quote macro quote (0) #f ()) (set! macro set! (0) #f ()) (and macro and (0) #f ()) (or macro or (0) #f ()) (define macro define (0) #f ()) (define-syntax macro define-syntax (0) #f ()) (let-syntax macro let-syntax (0) #f ()) (letrec-syntax macro letrec-syntax (0) #f ()) (_ macro _ (0) #f ()) (... macro ... (0) #f ()) (syntax macro syntax (0) #f ()) (syntax-case macro syntax-case (0) #f ()) (* variable * (0) #f ()) (+ variable + (0) #f ()) (- variable - (0) #f ()) (/ variable / (0) #f ()) (< variable < (0) #f ()) (<= variable <= (0) #f ()) (= variable = (0) #f ()) (> variable > (0) #f ()) (>= variable >= (0) #f ()) (abs variable abs (0) #f ()) (acos variable acos (0) #f ()) (append variable append (0) #f ()) (apply variable apply (0) #f ()) (asin variable asin (0) #f ()) (atan variable atan (0) #f ()) (boolean? variable boolean? (0) #f ()) (call-with-current-continuation variable call-with-current-continuation (0) #f ()) (call-with-values variable call-with-values (0) #f ()) (car variable car (0) #f ()) (cdr variable cdr (0) #f ()) (caar variable caar (0) #f ()) (cadr variable cadr (0) #f ()) (cdar variable cdar (0) #f ()) (cddr variable cddr (0) #f ()) (caaar variable caaar (0) #f ()) (caadr variable caadr (0) #f ()) (cadar variable cadar (0) #f ()) (caddr variable caddr (0) #f ()) (cdaar variable cdaar (0) #f ()) (cdadr variable cdadr (0) #f ()) (cddar variable cddar (0) #f ()) (cdddr variable cdddr (0) #f ()) (caaaar variable caaaar (0) #f ()) (caaadr variable caaadr (0) #f ()) (caadar variable caadar (0) #f ()) (caaddr variable caaddr (0) #f ()) (cadaar variable cadaar (0) #f ()) (cadadr variable cadadr (0) #f ()) (caddar variable caddar (0) #f ()) (cadddr variable cadddr (0) #f ()) (cdaaar variable cdaaar (0) #f ()) (cdaadr variable cdaadr (0) #f ()) (cdadar variable cdadar (0) #f ()) (cdaddr variable cdaddr (0) #f ()) (cddaar variable cddaar (0) #f ()) (cddadr variable cddadr (0) #f ()) (cdddar variable cdddar (0) #f ()) (cddddr variable cddddr (0) #f ()) (ceiling variable ceiling (0) #f ()) (char? variable char? (0) #f ()) (char->integer variable char->integer (0) #f ()) (complex? variable complex? (0) #f ()) (cons variable cons (0) #f ()) (cos variable cos (0) #f ()) (denominator variable denominator (0) #f ()) (dynamic-wind variable dynamic-wind (0) #f ()) (eq? variable eq? (0) #f ()) (equal? variable equal? (0) #f ()) (eqv? variable eqv? (0) #f ()) (even? variable even? (0) #f ()) (exact? variable exact? (0) #f ()) (exp variable exp (0) #f ()) (expt variable expt (0) #f ()) (floor variable floor (0) #f ()) (for-each variable for-each (0) #f ()) (gcd variable gcd (0) #f ()) (imag-part variable imag-part (0) #f ()) (inexact? variable inexact? (0) #f ()) (integer->char variable integer->char (0) #f ()) (integer? variable integer? (0) #f ()) (lcm variable lcm (0) #f ()) (length variable length (0) #f ()) (list variable list (0) #f ()) (list->string variable list->string (0) #f ()) (list->vector variable list->vector (0) #f ()) (list-ref variable list-ref (0) #f ()) (list-tail variable list-tail (0) #f ()) (list? variable list? (0) #f ()) (log variable log (0) #f ()) (magnitude variable magnitude (0) #f ()) (make-polar variable make-polar (0) #f ()) (make-rectangular variable make-rectangular (0) #f ()) (make-string variable make-string (0) #f ()) (make-vector variable make-vector (0) #f ()) (map variable map (0) #f ()) (max variable max (0) #f ()) (min variable min (0) #f ()) (negative? variable negative? (0) #f ()) (not variable not (0) #f ()) (null? variable null? (0) #f ()) (number->string variable number->string (0) #f ()) (number? variable number? (0) #f ()) (numerator variable numerator (0) #f ()) (odd? variable odd? (0) #f ()) (pair? variable pair? (0) #f ()) (positive? variable positive? (0) #f ()) (procedure? variable procedure? (0) #f ()) (rational? variable rational? (0) #f ()) (rationalize variable rationalize (0) #f ()) (real-part variable real-part (0) #f ()) (real? variable real? (0) #f ()) (reverse variable reverse (0) #f ()) (round variable round (0) #f ()) (sin variable sin (0) #f ()) (sqrt variable sqrt (0) #f ()) (string variable string (0) #f ()) (string->list variable string->list (0) #f ()) (string->number variable string->number (0) #f ()) (string->symbol variable string->symbol (0) #f ()) (string-append variable string-append (0) #f ()) (string-copy variable string-copy (0) #f ()) (string-length variable string-length (0) #f ()) (string-ref variable string-ref (0) #f ()) (string<=? variable string<=? (0) #f ()) (string=? variable string>=? (0) #f ()) (string>? variable string>? (0) #f ()) (string? variable string? (0) #f ()) (substring variable substring (0) #f ()) (symbol->string variable symbol->string (0) #f ()) (symbol? variable symbol? (0) #f ()) (tan variable tan (0) #f ()) (truncate variable truncate (0) #f ()) (values variable values (0) #f ()) (vector variable vector (0) #f ()) (vector->list variable vector->list (0) #f ()) (vector-fill! variable vector-fill! (0) #f ()) (vector-length variable vector-length (0) #f ()) (vector-ref variable vector-ref (0) #f ()) (vector-set! variable vector-set! (0) #f ()) (vector? variable vector? (0) #f ()) (zero? variable zero? (0) #f ()) (real-valued? variable real-valued? (0) #f ()) (rational-valued? variable rational-valued? (0) #f ()) (integer-valued? variable integer-valued? (0) #f ()) (exact variable exact (0) #f ()) (inexact variable inexact (0) #f ()) (finite? variable finite? (0) #f ()) (infinite? variable infinite? (0) #f ()) (nan? variable nan? (0) #f ()) (div variable div (0) #f ()) (mod variable mod (0) #f ()) (div-and-mod variable div-and-mod (0) #f ()) (div0 variable div0 (0) #f ()) (mod0 variable mod0 (0) #f ()) (div0-and-mod0 variable div0-and-mod0 (0) #f ()) (exact-integer-sqrt variable exact-integer-sqrt (0) #f ()) (boolean=? variable boolean=? (0) #f ()) (symbol=? variable symbol=? (0) #f ()) (string-for-each variable string-for-each (0) #f ()) (vector-map variable vector-map (0) #f ()) (vector-for-each variable vector-for-each (0) #f ()) (error variable error (0) #f ()) (assertion-violation variable assertion-violation (0) #f ()) (call/cc variable call/cc (0) #f ()) (find variable find (0) #f ()) (for-all variable for-all (0) #f ()) (exists variable exists (0) #f ()) (filter variable filter (0) #f ()) (partition variable partition (0) #f ()) (fold-left variable fold-left (0) #f ()) (fold-right variable fold-right (0) #f ()) (remp variable remp (0) #f ()) (remove variable remove (0) #f ()) (remq variable remq (0) #f ()) (remv variable remv (0) #f ()) (memp variable memp (0) #f ()) (member variable member (0) #f ()) (memv variable memv (0) #f ()) (memq variable memq (0) #f ()) (assp variable assp (0) #f ()) (assoc variable assoc (0) #f ()) (assv variable assv (0) #f ()) (assq variable assq (0) #f ()) (call-with-input-file variable call-with-input-file (0) #f ()) (call-with-output-file variable call-with-output-file (0) #f ()) (close-input-port variable close-input-port (0) #f ()) (close-output-port variable close-output-port (0) #f ()) (current-input-port variable current-input-port (0) #f ()) (current-output-port variable current-output-port (0) #f ()) (display variable display (0) #f ()) (eof-object? variable eof-object? (0) #f ()) (newline variable newline (0) #f ()) (open-input-file variable open-input-file (0) #f ()) (open-output-file variable open-output-file (0) #f ()) (peek-char variable peek-char (0) #f ()) (read variable read (0) #f ()) (read-char variable read-char (0) #f ()) (with-input-from-file variable with-input-from-file (0) #f ()) (with-output-to-file variable with-output-to-file (0) #f ()) (write variable write (0) #f ()) (write-char variable write-char (0) #f ()) (char-upcase variable char-upcase (0) #f ()) (char-downcase variable char-downcase (0) #f ()) (char-ci=? variable char-ci=? (0) #f ()) (char-ci? variable char-ci>? (0) #f ()) (char-ci<=? variable char-ci<=? (0) #f ()) (char-ci>=? variable char-ci>=? (0) #f ()) (char-alphabetic? variable char-alphabetic? (0) #f ()) (char-numeric? variable char-numeric? (0) #f ()) (char-whitespace? variable char-whitespace? (0) #f ()) (char-upper-case? variable char-upper-case? (0) #f ()) (char-lower-case? variable char-lower-case? (0) #f ()) (string-ci=? variable string-ci=? (0) #f ()) (string-ci? variable string-ci>? (0) #f ()) (string-ci<=? variable string-ci<=? (0) #f ()) (string-ci>=? variable string-ci>=? (0) #f ()) (string-fill! variable string-fill! (0) #f ()) (string-set! variable string-set! (0) #f ()) (set-car! variable set-car! (0) #f ()) (set-cdr! variable set-cdr! (0) #f ()) (exact->inexact variable exact->inexact (0) #f ()) (inexact->exact variable inexact->exact (0) #f ()) (quotient variable quotient (0) #f ()) (remainder variable remainder (0) #f ()) (modulo variable modulo (0) #f ()) (make-variable-transformer variable ex:make-variable-transformer (0) #f ()) (identifier? variable ex:identifier? (0) #f ()) (bound-identifier=? variable ex:bound-identifier=? (0) #f ()) (free-identifier=? variable ex:free-identifier=? (0) #f ()) (generate-temporaries variable ex:generate-temporaries (0) #f ()) (datum->syntax variable ex:datum->syntax (0) #f ()) (syntax->datum variable ex:syntax->datum (0) #f ()) (syntax-violation variable ex:syntax-violation (0) #f ()) (environment variable ex:environment (0) #f ()) (environment-bindings variable ex:environment-bindings (0) #f ()) (eval variable ex:eval (0) #f ()) (undefined variable ex:undefined (0) #f ())) '(((core primitive-macros) 0)) '(system) (lambda () (values)) (lambda () (values)) '&build~0~1700)) (values)) (begin (ex:register-library! (ex:make-library '(core with-syntax) (lambda () (ex:uncompress '(((&env~0~1748 0 1 2 3) (&env~0~1732 4 1 2 3) (&env~0~1714 5 1 2 3)) (5 (((out) . #f) ((in) . #f) ((e1) . #f) ((e2) . #f))) (4 (((out) . #f) ((in) . #f) ((e1) . #f) ((e2) . #f))) (3 (((with-syntax) macro &with-syntax~0~1701 (0) #f (core with-syntax)) ((list) variable list (0 1) #f ()) ((syntax-case) macro syntax-case (0 1) #f ()) ((syntax) macro syntax (0 1) #f ()) ((...) macro ... (0 1) #f ()) ((_) macro _ (0 1) #f ()) ((define-syntax) macro define-syntax (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((begin) macro begin (0 1) #f ()))) (2 (((x) variable &x~0~1703 (1) #f (core with-syntax)))) (1 ()) (0 (((e1) . #f) ((e2) . #f)))))) '((with-syntax macro &with-syntax~0~1701 (0) #f (core with-syntax))) '(((core primitives) 0 1)) '(&build~0~1700) (lambda () (ex:register-macro! '&with-syntax~0~1701 (lambda (&x~0~1703) (let ((&input~0~1705 &x~0~1703)) (let ((&fail~0~1706 (lambda () (let ((&fail~0~1707 (lambda () (let ((&fail~0~1708 (lambda () (ex:invalid-form &input~0~1705)))) (if (pair? &input~0~1705) (let ((&temp~0~1726 (car &input~0~1705))) (let ((&temp~0~1715 (cdr &input~0~1705))) (if (pair? &temp~0~1715) (let ((&temp~0~1719 (car &temp~0~1715))) (ex:map-while (lambda (&temp~0~1719) (if (pair? &temp~0~1719) (let ((&temp~0~1725 (car &temp~0~1719))) (let ((&out~0~1709 &temp~0~1725)) (let ((&temp~0~1722 (cdr &temp~0~1719))) (if (pair? &temp~0~1722) (let ((&temp~0~1724 (car &temp~0~1722))) (let ((&in~0~1710 &temp~0~1724)) (let ((&temp~0~1723 (cdr &temp~0~1722))) (if (null? &temp~0~1723) (list &out~0~1709 &in~0~1710) #f)))) #f)))) #f)) &temp~0~1719 (lambda (&cols~0~1720 &rest~0~1721) (if (null? &rest~0~1721) (apply (lambda (&out~0~1709 &in~0~1710) (let ((&temp~0~1716 (cdr &temp~0~1715))) (if (pair? &temp~0~1716) (let ((&temp~0~1718 (car &temp~0~1716))) (let ((&e1~0~1711 &temp~0~1718)) (let ((&temp~0~1717 (cdr &temp~0~1716))) (if (list? &temp~0~1717) (let ((&e2~0~1712 &temp~0~1717)) (cons (ex:syntax-rename 'syntax-case '() '(&env~0~1714) 0 '(core with-syntax)) (cons (cons (ex:syntax-rename 'list '() '(&env~0~1714) 0 '(core with-syntax)) &in~0~1710) (cons '() (cons (cons &out~0~1709 (cons (cons (ex:syntax-rename 'begin '() '(&env~0~1714) 0 '(core with-syntax)) (cons &e1~0~1711 &e2~0~1712)) '())) '()))))) (&fail~0~1708))))) (&fail~0~1708)))) (if (null? &cols~0~1720) '(() ()) (apply map list &cols~0~1720))) (&fail~0~1708))))) (&fail~0~1708)))) (&fail~0~1708)))))) (if (pair? &input~0~1705) (let ((&temp~0~1744 (car &input~0~1705))) (let ((&temp~0~1733 (cdr &input~0~1705))) (if (pair? &temp~0~1733) (let ((&temp~0~1737 (car &temp~0~1733))) (if (pair? &temp~0~1737) (let ((&temp~0~1739 (car &temp~0~1737))) (if (pair? &temp~0~1739) (let ((&temp~0~1743 (car &temp~0~1739))) (let ((&out~0~1727 &temp~0~1743)) (let ((&temp~0~1740 (cdr &temp~0~1739))) (if (pair? &temp~0~1740) (let ((&temp~0~1742 (car &temp~0~1740))) (let ((&in~0~1728 &temp~0~1742)) (let ((&temp~0~1741 (cdr &temp~0~1740))) (if (null? &temp~0~1741) (let ((&temp~0~1738 (cdr &temp~0~1737))) (if (null? &temp~0~1738) (let ((&temp~0~1734 (cdr &temp~0~1733))) (if (pair? &temp~0~1734) (let ((&temp~0~1736 (car &temp~0~1734))) (let ((&e1~0~1729 &temp~0~1736)) (let ((&temp~0~1735 (cdr &temp~0~1734))) (if (list? &temp~0~1735) (let ((&e2~0~1730 &temp~0~1735)) (cons (ex:syntax-rename 'syntax-case '() '(&env~0~1732) 0 '(core with-syntax)) (cons &in~0~1728 (cons '() (cons (cons &out~0~1727 (cons (cons (ex:syntax-rename 'begin '() '(&env~0~1732) 0 '(core with-syntax)) (cons &e1~0~1729 &e2~0~1730)) '())) '()))))) (&fail~0~1707))))) (&fail~0~1707))) (&fail~0~1707))) (&fail~0~1707))))) (&fail~0~1707))))) (&fail~0~1707))) (&fail~0~1707))) (&fail~0~1707)))) (&fail~0~1707)))))) (if (pair? &input~0~1705) (let ((&temp~0~1754 (car &input~0~1705))) (let ((&temp~0~1749 (cdr &input~0~1705))) (if (pair? &temp~0~1749) (let ((&temp~0~1753 (car &temp~0~1749))) (if (null? &temp~0~1753) (let ((&temp~0~1750 (cdr &temp~0~1749))) (if (pair? &temp~0~1750) (let ((&temp~0~1752 (car &temp~0~1750))) (let ((&e1~0~1745 &temp~0~1752)) (let ((&temp~0~1751 (cdr &temp~0~1750))) (if (list? &temp~0~1751) (let ((&e2~0~1746 &temp~0~1751)) (cons (ex:syntax-rename 'begin '() '(&env~0~1748) 0 '(core with-syntax)) (cons &e1~0~1745 &e2~0~1746))) (&fail~0~1706))))) (&fail~0~1706))) (&fail~0~1706))) (&fail~0~1706)))) (&fail~0~1706)))))) (values)) (lambda () (values)) '&build~0~1755)) (values)) (begin (ex:register-library! (ex:make-library '(core syntax-rules) (lambda () (ex:uncompress '(((&env~0~1790 0 1 2 3 4 5) (&env~0~1774 6 7 3 4 5)) (7 (((k) . #f) ((cl) . #f))) (6 (((cl) . #f))) (5 (((syntax-rules) macro &syntax-rules~0~1756 (0) #f (core syntax-rules)) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((map) variable map (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax)))) (4 (((x) variable &x~0~1758 (1) #f (core syntax-rules)))) (3 (((clause) variable &clause~0~1759 (1) #f (core syntax-rules)))) (2 (((y) variable &y~0~1780 (1) #f (core syntax-rules)))) (1 ()) (0 (((keyword) . #f) ((pattern) . #f) ((template) . #f)))))) '((syntax-rules macro &syntax-rules~0~1756 (0) #f (core syntax-rules))) '(((core with-syntax) 1) ((core primitives) 1 0)) '(&build~0~1755 &build~0~1700) (lambda () (ex:register-macro! '&syntax-rules~0~1756 (lambda (&x~0~1758) ((lambda (&clause~0~1759) (set! &clause~0~1759 (lambda (&y~0~1780) (let ((&input~0~1782 &y~0~1780)) (let ((&fail~0~1783 (lambda () (let ((&fail~0~1784 (lambda () (ex:invalid-form &input~0~1782)))) (ex:syntax-violation 'syntax-rules "Invalid expression" &x~0~1758))))) (if (pair? &input~0~1782) (let ((&temp~0~1794 (car &input~0~1782))) (if (pair? &temp~0~1794) (let ((&temp~0~1796 (car &temp~0~1794))) (let ((&keyword~0~1786 &temp~0~1796)) (let ((&temp~0~1795 (cdr &temp~0~1794))) (let ((&pattern~0~1787 &temp~0~1795)) (let ((&temp~0~1791 (cdr &input~0~1782))) (if (pair? &temp~0~1791) (let ((&temp~0~1793 (car &temp~0~1791))) (let ((&template~0~1788 &temp~0~1793)) (let ((&temp~0~1792 (cdr &temp~0~1791))) (if (null? &temp~0~1792) (cons (cons (ex:syntax-rename 'dummy '() '(&env~0~1790) 0 '(core syntax-rules)) &pattern~0~1787) (cons (cons (ex:syntax-rename 'syntax '() '(&env~0~1790) 0 '(core syntax-rules)) (cons &template~0~1788 '())) '())) (&fail~0~1783))))) (&fail~0~1783))))))) (&fail~0~1783))) (&fail~0~1783)))))) (let ((&input~0~1761 &x~0~1758)) (let ((&fail~0~1762 (lambda () (ex:invalid-form &input~0~1761)))) (if (pair? &input~0~1761) (let ((&temp~0~1778 (car &input~0~1761))) (let ((&temp~0~1775 (cdr &input~0~1761))) (if (pair? &temp~0~1775) (let ((&temp~0~1777 (car &temp~0~1775))) (if (list? &temp~0~1777) (let ((&k~0~1763 &temp~0~1777)) (let ((&temp~0~1776 (cdr &temp~0~1775))) (if (list? &temp~0~1776) (let ((&cl~0~1764 &temp~0~1776)) (if (for-all ex:identifier? &k~0~1763) (let ((&input~0~1768 (map &clause~0~1759 &cl~0~1764))) (let ((&fail~0~1770 (lambda () (ex:invalid-form &input~0~1768)))) (if (list? &input~0~1768) (let ((&cl~0~1771 &input~0~1768)) (begin (cons (ex:syntax-rename 'lambda '() '(&env~0~1774) 0 '(core syntax-rules)) (cons (cons (ex:syntax-rename 'x '() '(&env~0~1774) 0 '(core syntax-rules)) '()) (cons (cons (ex:syntax-rename 'syntax-case '() '(&env~0~1774) 0 '(core syntax-rules)) (cons (ex:syntax-rename 'x '() '(&env~0~1774) 0 '(core syntax-rules)) (cons &k~0~1763 &cl~0~1771))) '()))))) (&fail~0~1770)))) (&fail~0~1762))) (&fail~0~1762)))) (&fail~0~1762))) (&fail~0~1762)))) (&fail~0~1762))))) ex:undefined))) (values)) (lambda () (values)) '&build~0~1797)) (values)) (begin (ex:register-library! (ex:make-library '(core let) (lambda () (ex:uncompress '(((&env~0~1888 0 1 2 3) (&env~0~1864 4 5 6 7 3) (&env~0~1833 8 9 10 3) (&env~0~1812 11 9 10 3)) (11 (((f) . #f) ((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (10 (((x) variable &x~0~1800 (1) #f (core let)))) (9 ()) (8 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (7 (((x) variable &x~0~1848 (1) #f (core let)))) (6 ()) (5 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (4 (((t) . #f))) (3 (((letrec*) macro &letrec*~0~1877 (0) #f (core let)) ((letrec) macro &letrec~0~1846 (0) #f (core let)) ((let) macro &let~0~1798 (0) #f (core let)) ((undefined) variable ex:undefined (1 0) #f ()) ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((set!) macro set! (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax)))) (2 (((x) variable &x~0~1879 (1) #f (core let)))) (1 ()) (0 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f)))))) '((let macro &let~0~1798 (0) #f (core let)) (letrec macro &letrec~0~1846 (0) #f (core let)) (letrec* macro &letrec*~0~1877 (0) #f (core let))) '(((core with-syntax) 1) ((core primitives) 1 0)) '(&build~0~1755 &build~0~1700) (lambda () (ex:register-macro! '&let~0~1798 (lambda (&x~0~1800) (let ((&input~0~1802 &x~0~1800)) (let ((&fail~0~1803 (lambda () (let ((&fail~0~1804 (lambda () (ex:invalid-form &input~0~1802)))) (if (pair? &input~0~1802) (let ((&temp~0~1826 (car &input~0~1802))) (let ((&temp~0~1813 (cdr &input~0~1802))) (if (pair? &temp~0~1813) (let ((&temp~0~1825 (car &temp~0~1813))) (let ((&f~0~1805 &temp~0~1825)) (let ((&temp~0~1814 (cdr &temp~0~1813))) (if (pair? &temp~0~1814) (let ((&temp~0~1818 (car &temp~0~1814))) (ex:map-while (lambda (&temp~0~1818) (if (pair? &temp~0~1818) (let ((&temp~0~1824 (car &temp~0~1818))) (let ((&x~0~1806 &temp~0~1824)) (let ((&temp~0~1821 (cdr &temp~0~1818))) (if (pair? &temp~0~1821) (let ((&temp~0~1823 (car &temp~0~1821))) (let ((&v~0~1807 &temp~0~1823)) (let ((&temp~0~1822 (cdr &temp~0~1821))) (if (null? &temp~0~1822) (list &x~0~1806 &v~0~1807) #f)))) #f)))) #f)) &temp~0~1818 (lambda (&cols~0~1819 &rest~0~1820) (if (null? &rest~0~1820) (apply (lambda (&x~0~1806 &v~0~1807) (let ((&temp~0~1815 (cdr &temp~0~1814))) (if (pair? &temp~0~1815) (let ((&temp~0~1817 (car &temp~0~1815))) (let ((&e1~0~1808 &temp~0~1817)) (let ((&temp~0~1816 (cdr &temp~0~1815))) (if (list? &temp~0~1816) (let ((&e2~0~1809 &temp~0~1816)) (if (for-all ex:identifier? (cons &f~0~1805 &x~0~1806)) (cons (cons (ex:syntax-rename 'letrec '() '(&env~0~1812) 0 '(core let)) (cons (cons (cons &f~0~1805 (cons (cons (ex:syntax-rename 'lambda '() '(&env~0~1812) 0 '(core let)) (cons &x~0~1806 (cons &e1~0~1808 &e2~0~1809))) '())) '()) (cons &f~0~1805 '()))) &v~0~1807) (&fail~0~1804))) (&fail~0~1804))))) (&fail~0~1804)))) (if (null? &cols~0~1819) '(() ()) (apply map list &cols~0~1819))) (&fail~0~1804))))) (&fail~0~1804))))) (&fail~0~1804)))) (&fail~0~1804)))))) (if (pair? &input~0~1802) (let ((&temp~0~1845 (car &input~0~1802))) (let ((&temp~0~1834 (cdr &input~0~1802))) (if (pair? &temp~0~1834) (let ((&temp~0~1838 (car &temp~0~1834))) (ex:map-while (lambda (&temp~0~1838) (if (pair? &temp~0~1838) (let ((&temp~0~1844 (car &temp~0~1838))) (let ((&x~0~1827 &temp~0~1844)) (let ((&temp~0~1841 (cdr &temp~0~1838))) (if (pair? &temp~0~1841) (let ((&temp~0~1843 (car &temp~0~1841))) (let ((&v~0~1828 &temp~0~1843)) (let ((&temp~0~1842 (cdr &temp~0~1841))) (if (null? &temp~0~1842) (list &x~0~1827 &v~0~1828) #f)))) #f)))) #f)) &temp~0~1838 (lambda (&cols~0~1839 &rest~0~1840) (if (null? &rest~0~1840) (apply (lambda (&x~0~1827 &v~0~1828) (let ((&temp~0~1835 (cdr &temp~0~1834))) (if (pair? &temp~0~1835) (let ((&temp~0~1837 (car &temp~0~1835))) (let ((&e1~0~1829 &temp~0~1837)) (let ((&temp~0~1836 (cdr &temp~0~1835))) (if (list? &temp~0~1836) (let ((&e2~0~1830 &temp~0~1836)) (if (for-all ex:identifier? &x~0~1827) (cons (cons (ex:syntax-rename 'lambda '() '(&env~0~1833) 0 '(core let)) (cons &x~0~1827 (cons &e1~0~1829 &e2~0~1830))) &v~0~1828) (&fail~0~1803))) (&fail~0~1803))))) (&fail~0~1803)))) (if (null? &cols~0~1839) '(() ()) (apply map list &cols~0~1839))) (&fail~0~1803))))) (&fail~0~1803)))) (&fail~0~1803)))))) (ex:register-macro! '&letrec~0~1846 (lambda (&x~0~1848) (let ((&input~0~1850 &x~0~1848)) (let ((&fail~0~1851 (lambda () (ex:invalid-form &input~0~1850)))) (if (pair? &input~0~1850) (let ((&temp~0~1876 (car &input~0~1850))) (let ((&temp~0~1865 (cdr &input~0~1850))) (if (pair? &temp~0~1865) (let ((&temp~0~1869 (car &temp~0~1865))) (ex:map-while (lambda (&temp~0~1869) (if (pair? &temp~0~1869) (let ((&temp~0~1875 (car &temp~0~1869))) (let ((&i~0~1852 &temp~0~1875)) (let ((&temp~0~1872 (cdr &temp~0~1869))) (if (pair? &temp~0~1872) (let ((&temp~0~1874 (car &temp~0~1872))) (let ((&v~0~1853 &temp~0~1874)) (let ((&temp~0~1873 (cdr &temp~0~1872))) (if (null? &temp~0~1873) (list &i~0~1852 &v~0~1853) #f)))) #f)))) #f)) &temp~0~1869 (lambda (&cols~0~1870 &rest~0~1871) (if (null? &rest~0~1871) (apply (lambda (&i~0~1852 &v~0~1853) (let ((&temp~0~1866 (cdr &temp~0~1865))) (if (pair? &temp~0~1866) (let ((&temp~0~1868 (car &temp~0~1866))) (let ((&e1~0~1854 &temp~0~1868)) (let ((&temp~0~1867 (cdr &temp~0~1866))) (if (list? &temp~0~1867) (let ((&e2~0~1855 &temp~0~1867)) (let ((&input~0~1858 (ex:generate-temporaries &i~0~1852))) (let ((&fail~0~1860 (lambda () (ex:invalid-form &input~0~1858)))) (if (list? &input~0~1858) (let ((&t~0~1861 &input~0~1858)) (begin (cons (ex:syntax-rename 'let '() '(&env~0~1864) 0 '(core let)) (cons (map (lambda (&i~0~1852) (cons &i~0~1852 (cons (ex:syntax-rename 'undefined '() '(&env~0~1864) 0 '(core let)) '()))) &i~0~1852) (cons (cons (ex:syntax-rename 'let '() '(&env~0~1864) 0 '(core let)) (cons (map (lambda (&t~0~1861 &v~0~1853) (cons &t~0~1861 (cons &v~0~1853 '()))) &t~0~1861 &v~0~1853) (append (map (lambda (&i~0~1852 &t~0~1861) (cons (ex:syntax-rename 'set! '() '(&env~0~1864) 0 '(core let)) (cons &i~0~1852 (cons &t~0~1861 '())))) &i~0~1852 &t~0~1861) (cons (cons (ex:syntax-rename 'let '() '(&env~0~1864) 0 '(core let)) (cons '() (cons &e1~0~1854 &e2~0~1855))) '())))) '()))))) (&fail~0~1860))))) (&fail~0~1851))))) (&fail~0~1851)))) (if (null? &cols~0~1870) '(() ()) (apply map list &cols~0~1870))) (&fail~0~1851))))) (&fail~0~1851)))) (&fail~0~1851)))))) (ex:register-macro! '&letrec*~0~1877 (lambda (&x~0~1879) (let ((&input~0~1881 &x~0~1879)) (let ((&fail~0~1882 (lambda () (ex:invalid-form &input~0~1881)))) (if (pair? &input~0~1881) (let ((&temp~0~1900 (car &input~0~1881))) (let ((&temp~0~1889 (cdr &input~0~1881))) (if (pair? &temp~0~1889) (let ((&temp~0~1893 (car &temp~0~1889))) (ex:map-while (lambda (&temp~0~1893) (if (pair? &temp~0~1893) (let ((&temp~0~1899 (car &temp~0~1893))) (let ((&i~0~1883 &temp~0~1899)) (let ((&temp~0~1896 (cdr &temp~0~1893))) (if (pair? &temp~0~1896) (let ((&temp~0~1898 (car &temp~0~1896))) (let ((&v~0~1884 &temp~0~1898)) (let ((&temp~0~1897 (cdr &temp~0~1896))) (if (null? &temp~0~1897) (list &i~0~1883 &v~0~1884) #f)))) #f)))) #f)) &temp~0~1893 (lambda (&cols~0~1894 &rest~0~1895) (if (null? &rest~0~1895) (apply (lambda (&i~0~1883 &v~0~1884) (let ((&temp~0~1890 (cdr &temp~0~1889))) (if (pair? &temp~0~1890) (let ((&temp~0~1892 (car &temp~0~1890))) (let ((&e1~0~1885 &temp~0~1892)) (let ((&temp~0~1891 (cdr &temp~0~1890))) (if (list? &temp~0~1891) (let ((&e2~0~1886 &temp~0~1891)) (cons (ex:syntax-rename 'let '() '(&env~0~1888) 0 '(core let)) (cons '() (append (map (lambda (&i~0~1883 &v~0~1884) (cons (ex:syntax-rename 'define '() '(&env~0~1888) 0 '(core let)) (cons &i~0~1883 (cons &v~0~1884 '())))) &i~0~1883 &v~0~1884) (cons (cons (ex:syntax-rename 'let '() '(&env~0~1888) 0 '(core let)) (cons '() (cons &e1~0~1885 &e2~0~1886))) '()))))) (&fail~0~1882))))) (&fail~0~1882)))) (if (null? &cols~0~1894) '(() ()) (apply map list &cols~0~1894))) (&fail~0~1882))))) (&fail~0~1882)))) (&fail~0~1882)))))) (values)) (lambda () (values)) '&build~0~1901)) (values)) (begin (ex:register-library! (ex:make-library '(core derived) (lambda () (ex:uncompress '(((&env~0~2172 0 1 2 3 4) (&env~0~2161 5 6 7 8 9 10 1 2 3 4) (&env~0~2143 11 7 8 9 10 1 2 3 4) (&env~0~2135 12 7 8 9 10 1 2 3 4) (&env~0~2088 13 14 15 16 17 18 19 20 21 4) (&env~0~2082 22 14 15 16 17 18 19 20 21 4) (&env~0~2073 23 14 15 16 17 18 19 20 21 4) (&env~0~2065 24 14 15 16 17 18 19 20 21 4) (&env~0~2048 25 26 27 15 16 17 18 19 20 21 4) (&env~0~2039 28 26 27 15 16 17 18 19 20 21 4) (&env~0~2031 29 26 27 15 16 17 18 19 20 21 4) (&env~0~1976 30 31 32 4) (&env~0~1953 33 34 35 36 37 38 31 32 4) (&env~0~1943 39 40 34 35 36 37 38 31 32 4)) (40 (((x) . #f) ((v) . #f) ((rest) . #f))) (39 (((body) . #f))) (38 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (37 (((f) variable &f~0~1919 (1) #t (core derived)))) (36 ()) (35 (((bindings) variable &bindings~0~1927 (1) #f (core derived)))) (34 ()) (33 (((x) . #f) ((v) . #f))) (32 (((x) variable &x~0~1904 (1) #f (core derived)))) (31 ()) (30 (((e1) . #f) ((e2) . #f))) (29 (((e0) . #f) ((e1) . #f) ((e2) . #f))) (28 (((e0) . #f) ((e1) . #f))) (27 (((c2) . #f) ((c3) . #f))) (26 (((rest) . #f))) (25 (((e0) . #f))) (24 (((e0) . #f) ((e1) . #f) ((e2) . #f))) (23 (((e0) . #f) ((e1) . #f))) (22 (((e0) . #f))) (21 (((x) variable &x~0~1985 (1) #f (core derived)))) (20 ()) (19 (((c1) . #f) ((c2) . #f))) (18 (((f) variable &f~0~1996 (1) #t (core derived)))) (17 ()) (16 (((c1) variable &c1~0~2004 (1) #f (core derived)) ((c2*) variable &c2*~0~2005 (1) #f (core derived)))) (15 ()) (14 ()) (13 (((e1) . #f) ((e2) . #f))) (12 (((k) . #f) ((e1) . #f) ((e2) . #f))) (11 (((e1) . #f) ((e2) . #f))) (10 (((f) variable &f~0~2116 (1) #t (core derived)))) (9 ()) (8 (((c1) variable &c1~0~2124 (1) #f (core derived)) ((cmore) variable &cmore~0~2125 (1) #f (core derived)))) (7 ()) (6 (((rest) . #f))) (5 (((k) . #f) ((e1) . #f) ((e2) . #f))) (4 (((else) macro &else~0~2183 (0) #f (core derived)) ((=>) macro &=>~0~2179 (0) #f (core derived)) ((case) macro &case~0~2099 (0) #f (core derived)) ((cond) macro &cond~0~1983 (0) #f (core derived)) ((let*) macro &let*~0~1902 (0) #f (core derived)) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((begin) macro begin (1 0) #f ()) ((letrec*) macro &letrec*~0~1877 (1 0) #f (core let)) ((letrec) macro &letrec~0~1846 (1 0) #f (core let)) ((let) macro &let~0~1798 (1 0) #f (core let)) ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax)) ((syntax-rules) macro &syntax-rules~0~1756 (1) #f (core syntax-rules)))) (3 (((x) variable &x~0~2101 (1) #f (core derived)))) (2 ()) (1 (((e) . #f) ((c1) . #f) ((c2) . #f))) (0 (((body) . #f)))))) '((let* macro &let*~0~1902 (0) #f (core derived)) (cond macro &cond~0~1983 (0) #f (core derived)) (case macro &case~0~2099 (0) #f (core derived)) (else macro &else~0~2183 (0) #f (core derived)) (=> macro &=>~0~2179 (0) #f (core derived))) '(((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)) '(&build~0~1797 &build~0~1755 &build~0~1901 &build~0~1700) (lambda () (ex:register-macro! '&let*~0~1902 (lambda (&x~0~1904) (let ((&input~0~1906 &x~0~1904)) (let ((&fail~0~1907 (lambda () (let ((&fail~0~1908 (lambda () (ex:invalid-form &input~0~1906)))) (if (pair? &input~0~1906) (let ((&temp~0~1972 (car &input~0~1906))) (let ((&temp~0~1961 (cdr &input~0~1906))) (if (pair? &temp~0~1961) (let ((&temp~0~1965 (car &temp~0~1961))) (ex:map-while (lambda (&temp~0~1965) (if (pair? &temp~0~1965) (let ((&temp~0~1971 (car &temp~0~1965))) (let ((&x~0~1909 &temp~0~1971)) (let ((&temp~0~1968 (cdr &temp~0~1965))) (if (pair? &temp~0~1968) (let ((&temp~0~1970 (car &temp~0~1968))) (let ((&v~0~1910 &temp~0~1970)) (let ((&temp~0~1969 (cdr &temp~0~1968))) (if (null? &temp~0~1969) (list &x~0~1909 &v~0~1910) #f)))) #f)))) #f)) &temp~0~1965 (lambda (&cols~0~1966 &rest~0~1967) (if (null? &rest~0~1967) (apply (lambda (&x~0~1909 &v~0~1910) (let ((&temp~0~1962 (cdr &temp~0~1961))) (if (pair? &temp~0~1962) (let ((&temp~0~1964 (car &temp~0~1962))) (let ((&e1~0~1911 &temp~0~1964)) (let ((&temp~0~1963 (cdr &temp~0~1962))) (if (list? &temp~0~1963) (let ((&e2~0~1912 &temp~0~1963)) (if (for-all ex:identifier? &x~0~1909) (((lambda (&f~0~1919) ((lambda (&temp~0~1922) (set! &f~0~1919 &temp~0~1922) ((lambda () &f~0~1919))) (lambda (&bindings~0~1927) (let ((&input~0~1929 &bindings~0~1927)) (let ((&fail~0~1930 (lambda () (let ((&fail~0~1931 (lambda () (ex:invalid-form &input~0~1929)))) (if (pair? &input~0~1929) (let ((&temp~0~1945 (car &input~0~1929))) (if (pair? &temp~0~1945) (let ((&temp~0~1949 (car &temp~0~1945))) (let ((&x~0~1932 &temp~0~1949)) (let ((&temp~0~1946 (cdr &temp~0~1945))) (if (pair? &temp~0~1946) (let ((&temp~0~1948 (car &temp~0~1946))) (let ((&v~0~1933 &temp~0~1948)) (let ((&temp~0~1947 (cdr &temp~0~1946))) (if (null? &temp~0~1947) (let ((&temp~0~1944 (cdr &input~0~1929))) (let ((&rest~0~1934 &temp~0~1944)) (let ((&input~0~1937 (&f~0~1919 &rest~0~1934))) (let ((&fail~0~1939 (lambda () (ex:invalid-form &input~0~1937)))) (let ((&body~0~1940 &input~0~1937)) (begin (cons (ex:syntax-rename 'let '() '(&env~0~1943) 0 '(core derived)) (cons (cons (cons &x~0~1932 (cons &v~0~1933 '())) '()) (cons &body~0~1940 '()))))))))) (&fail~0~1931))))) (&fail~0~1931))))) (&fail~0~1931))) (&fail~0~1931)))))) (if (pair? &input~0~1929) (let ((&temp~0~1955 (car &input~0~1929))) (if (pair? &temp~0~1955) (let ((&temp~0~1959 (car &temp~0~1955))) (let ((&x~0~1950 &temp~0~1959)) (let ((&temp~0~1956 (cdr &temp~0~1955))) (if (pair? &temp~0~1956) (let ((&temp~0~1958 (car &temp~0~1956))) (let ((&v~0~1951 &temp~0~1958)) (let ((&temp~0~1957 (cdr &temp~0~1956))) (if (null? &temp~0~1957) (let ((&temp~0~1954 (cdr &input~0~1929))) (if (null? &temp~0~1954) (cons (ex:syntax-rename 'let '() '(&env~0~1953) 0 '(core derived)) (cons (cons (cons &x~0~1950 (cons &v~0~1951 '())) '()) (cons &e1~0~1911 &e2~0~1912))) (&fail~0~1930))) (&fail~0~1930))))) (&fail~0~1930))))) (&fail~0~1930))) (&fail~0~1930))))))) ex:undefined) (map (lambda (&x~0~1909 &v~0~1910) (cons &x~0~1909 (cons &v~0~1910 '()))) &x~0~1909 &v~0~1910)) (&fail~0~1908))) (&fail~0~1908))))) (&fail~0~1908)))) (if (null? &cols~0~1966) '(() ()) (apply map list &cols~0~1966))) (&fail~0~1908))))) (&fail~0~1908)))) (&fail~0~1908)))))) (if (pair? &input~0~1906) (let ((&temp~0~1982 (car &input~0~1906))) (let ((&temp~0~1977 (cdr &input~0~1906))) (if (pair? &temp~0~1977) (let ((&temp~0~1981 (car &temp~0~1977))) (if (null? &temp~0~1981) (let ((&temp~0~1978 (cdr &temp~0~1977))) (if (pair? &temp~0~1978) (let ((&temp~0~1980 (car &temp~0~1978))) (let ((&e1~0~1973 &temp~0~1980)) (let ((&temp~0~1979 (cdr &temp~0~1978))) (if (list? &temp~0~1979) (let ((&e2~0~1974 &temp~0~1979)) (cons (ex:syntax-rename 'let '() '(&env~0~1976) 0 '(core derived)) (cons '() (cons &e1~0~1973 &e2~0~1974)))) (&fail~0~1907))))) (&fail~0~1907))) (&fail~0~1907))) (&fail~0~1907)))) (&fail~0~1907)))))) (ex:register-macro! '&cond~0~1983 (lambda (&x~0~1985) (let ((&input~0~1987 &x~0~1985)) (let ((&fail~0~1988 (lambda () (ex:invalid-form &input~0~1987)))) (if (pair? &input~0~1987) (let ((&temp~0~2098 (car &input~0~1987))) (let ((&temp~0~2095 (cdr &input~0~1987))) (if (pair? &temp~0~2095) (let ((&temp~0~2097 (car &temp~0~2095))) (let ((&c1~0~1989 &temp~0~2097)) (let ((&temp~0~2096 (cdr &temp~0~2095))) (if (list? &temp~0~2096) (let ((&c2~0~1990 &temp~0~2096)) (((lambda (&f~0~1996) ((lambda (&temp~0~1999) (set! &f~0~1996 &temp~0~1999) ((lambda () &f~0~1996))) (lambda (&c1~0~2004 &c2*~0~2005) (let ((&input~0~2007 &c2*~0~2005)) (let ((&fail~0~2008 (lambda () (let ((&fail~0~2009 (lambda () (ex:invalid-form &input~0~2007)))) (if (pair? &input~0~2007) (let ((&temp~0~2052 (car &input~0~2007))) (let ((&c2~0~2010 &temp~0~2052)) (let ((&temp~0~2051 (cdr &input~0~2007))) (if (list? &temp~0~2051) (let ((&c3~0~2011 &temp~0~2051)) (let ((&input~0~2014 (&f~0~1996 &c2~0~2010 &c3~0~2011))) (let ((&fail~0~2017 (lambda () (ex:invalid-form &input~0~2014)))) (let ((&rest~0~2018 &input~0~2014)) (begin (let ((&input~0~2021 &c1~0~2004)) (let ((&fail~0~2022 (lambda () (let ((&fail~0~2023 (lambda () (let ((&fail~0~2024 (lambda () (let ((&fail~0~2025 (lambda () (ex:invalid-form &input~0~2021)))) (ex:syntax-violation 'cond "Invalid expression" &x~0~1985))))) (if (pair? &input~0~2021) (let ((&temp~0~2035 (car &input~0~2021))) (let ((&e0~0~2027 &temp~0~2035)) (let ((&temp~0~2032 (cdr &input~0~2021))) (if (pair? &temp~0~2032) (let ((&temp~0~2034 (car &temp~0~2032))) (let ((&e1~0~2028 &temp~0~2034)) (let ((&temp~0~2033 (cdr &temp~0~2032))) (if (list? &temp~0~2033) (let ((&e2~0~2029 &temp~0~2033)) (cons (ex:syntax-rename 'if '() '(&env~0~2031) 0 '(core derived)) (cons &e0~0~2027 (cons (cons (ex:syntax-rename 'begin '() '(&env~0~2031) 0 '(core derived)) (cons &e1~0~2028 &e2~0~2029)) (cons &rest~0~2018 '()))))) (&fail~0~2024))))) (&fail~0~2024))))) (&fail~0~2024)))))) (if (pair? &input~0~2021) (let ((&temp~0~2045 (car &input~0~2021))) (let ((&e0~0~2036 &temp~0~2045)) (let ((&temp~0~2040 (cdr &input~0~2021))) (if (pair? &temp~0~2040) (let ((&temp~0~2044 (car &temp~0~2040))) (if (and (ex:identifier? &temp~0~2044) (ex:free-identifier=? &temp~0~2044 (ex:syntax-rename '=> '() '(&env~0~2039) 0 '(core derived)))) (let ((&temp~0~2041 (cdr &temp~0~2040))) (if (pair? &temp~0~2041) (let ((&temp~0~2043 (car &temp~0~2041))) (let ((&e1~0~2037 &temp~0~2043)) (let ((&temp~0~2042 (cdr &temp~0~2041))) (if (null? &temp~0~2042) (cons (ex:syntax-rename 'let '() '(&env~0~2039) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~0~2039) 0 '(core derived)) (cons &e0~0~2036 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~0~2039) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~0~2039) 0 '(core derived)) (cons (cons &e1~0~2037 (cons (ex:syntax-rename 't '() '(&env~0~2039) 0 '(core derived)) '())) (cons &rest~0~2018 '())))) '()))) (&fail~0~2023))))) (&fail~0~2023))) (&fail~0~2023))) (&fail~0~2023))))) (&fail~0~2023)))))) (if (pair? &input~0~2021) (let ((&temp~0~2050 (car &input~0~2021))) (let ((&e0~0~2046 &temp~0~2050)) (let ((&temp~0~2049 (cdr &input~0~2021))) (if (null? &temp~0~2049) (cons (ex:syntax-rename 'let '() '(&env~0~2048) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~0~2048) 0 '(core derived)) (cons &e0~0~2046 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~0~2048) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~0~2048) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~0~2048) 0 '(core derived)) (cons &rest~0~2018 '())))) '()))) (&fail~0~2022))))) (&fail~0~2022))))))))) (&fail~0~2009))))) (&fail~0~2009)))))) (if (null? &input~0~2007) (let ((&input~0~2054 &c1~0~2004)) (let ((&fail~0~2055 (lambda () (let ((&fail~0~2056 (lambda () (let ((&fail~0~2057 (lambda () (let ((&fail~0~2058 (lambda () (let ((&fail~0~2059 (lambda () (ex:invalid-form &input~0~2054)))) (ex:syntax-violation 'cond "Invalid expression" &x~0~1985))))) (if (pair? &input~0~2054) (let ((&temp~0~2069 (car &input~0~2054))) (let ((&e0~0~2061 &temp~0~2069)) (let ((&temp~0~2066 (cdr &input~0~2054))) (if (pair? &temp~0~2066) (let ((&temp~0~2068 (car &temp~0~2066))) (let ((&e1~0~2062 &temp~0~2068)) (let ((&temp~0~2067 (cdr &temp~0~2066))) (if (list? &temp~0~2067) (let ((&e2~0~2063 &temp~0~2067)) (cons (ex:syntax-rename 'if '() '(&env~0~2065) 0 '(core derived)) (cons &e0~0~2061 (cons (cons (ex:syntax-rename 'begin '() '(&env~0~2065) 0 '(core derived)) (cons &e1~0~2062 &e2~0~2063)) '())))) (&fail~0~2058))))) (&fail~0~2058))))) (&fail~0~2058)))))) (if (pair? &input~0~2054) (let ((&temp~0~2079 (car &input~0~2054))) (let ((&e0~0~2070 &temp~0~2079)) (let ((&temp~0~2074 (cdr &input~0~2054))) (if (pair? &temp~0~2074) (let ((&temp~0~2078 (car &temp~0~2074))) (if (and (ex:identifier? &temp~0~2078) (ex:free-identifier=? &temp~0~2078 (ex:syntax-rename '=> '() '(&env~0~2073) 0 '(core derived)))) (let ((&temp~0~2075 (cdr &temp~0~2074))) (if (pair? &temp~0~2075) (let ((&temp~0~2077 (car &temp~0~2075))) (let ((&e1~0~2071 &temp~0~2077)) (let ((&temp~0~2076 (cdr &temp~0~2075))) (if (null? &temp~0~2076) (cons (ex:syntax-rename 'let '() '(&env~0~2073) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~0~2073) 0 '(core derived)) (cons &e0~0~2070 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~0~2073) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~0~2073) 0 '(core derived)) (cons (cons &e1~0~2071 (cons (ex:syntax-rename 't '() '(&env~0~2073) 0 '(core derived)) '())) '()))) '()))) (&fail~0~2057))))) (&fail~0~2057))) (&fail~0~2057))) (&fail~0~2057))))) (&fail~0~2057)))))) (if (pair? &input~0~2054) (let ((&temp~0~2084 (car &input~0~2054))) (let ((&e0~0~2080 &temp~0~2084)) (let ((&temp~0~2083 (cdr &input~0~2054))) (if (null? &temp~0~2083) (cons (ex:syntax-rename 'let '() '(&env~0~2082) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~0~2082) 0 '(core derived)) (cons &e0~0~2080 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~0~2082) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~0~2082) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~0~2082) 0 '(core derived)) '()))) '()))) (&fail~0~2056))))) (&fail~0~2056)))))) (if (pair? &input~0~2054) (let ((&temp~0~2092 (car &input~0~2054))) (if (and (ex:identifier? &temp~0~2092) (ex:free-identifier=? &temp~0~2092 (ex:syntax-rename 'else '() '(&env~0~2088) 0 '(core derived)))) (let ((&temp~0~2089 (cdr &input~0~2054))) (if (pair? &temp~0~2089) (let ((&temp~0~2091 (car &temp~0~2089))) (let ((&e1~0~2085 &temp~0~2091)) (let ((&temp~0~2090 (cdr &temp~0~2089))) (if (list? &temp~0~2090) (let ((&e2~0~2086 &temp~0~2090)) (cons (ex:syntax-rename 'begin '() '(&env~0~2088) 0 '(core derived)) (cons &e1~0~2085 &e2~0~2086))) (&fail~0~2055))))) (&fail~0~2055))) (&fail~0~2055))) (&fail~0~2055)))) (&fail~0~2008))))))) ex:undefined) &c1~0~1989 &c2~0~1990)) (&fail~0~1988))))) (&fail~0~1988)))) (&fail~0~1988)))))) (ex:register-macro! '&case~0~2099 (lambda (&x~0~2101) (let ((&input~0~2103 &x~0~2101)) (let ((&fail~0~2104 (lambda () (ex:invalid-form &input~0~2103)))) (if (pair? &input~0~2103) (let ((&temp~0~2178 (car &input~0~2103))) (let ((&temp~0~2173 (cdr &input~0~2103))) (if (pair? &temp~0~2173) (let ((&temp~0~2177 (car &temp~0~2173))) (let ((&e~0~2105 &temp~0~2177)) (let ((&temp~0~2174 (cdr &temp~0~2173))) (if (pair? &temp~0~2174) (let ((&temp~0~2176 (car &temp~0~2174))) (let ((&c1~0~2106 &temp~0~2176)) (let ((&temp~0~2175 (cdr &temp~0~2174))) (if (list? &temp~0~2175) (let ((&c2~0~2107 &temp~0~2175)) (let ((&input~0~2110 (((lambda (&f~0~2116) ((lambda (&temp~0~2119) (set! &f~0~2116 &temp~0~2119) ((lambda () &f~0~2116))) (lambda (&c1~0~2124 &cmore~0~2125) (if (null? &cmore~0~2125) (let ((&input~0~2128 &c1~0~2124)) (let ((&fail~0~2129 (lambda () (let ((&fail~0~2130 (lambda () (ex:invalid-form &input~0~2128)))) (if (pair? &input~0~2128) (let ((&temp~0~2139 (car &input~0~2128))) (if (list? &temp~0~2139) (let ((&k~0~2131 &temp~0~2139)) (let ((&temp~0~2136 (cdr &input~0~2128))) (if (pair? &temp~0~2136) (let ((&temp~0~2138 (car &temp~0~2136))) (let ((&e1~0~2132 &temp~0~2138)) (let ((&temp~0~2137 (cdr &temp~0~2136))) (if (list? &temp~0~2137) (let ((&e2~0~2133 &temp~0~2137)) (cons (ex:syntax-rename 'if '() '(&env~0~2135) 0 '(core derived)) (cons (cons (ex:syntax-rename 'memv '() '(&env~0~2135) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~0~2135) 0 '(core derived)) (cons (cons (ex:syntax-rename 'quote '() '(&env~0~2135) 0 '(core derived)) (cons &k~0~2131 '())) '()))) (cons (cons (ex:syntax-rename 'begin '() '(&env~0~2135) 0 '(core derived)) (cons &e1~0~2132 &e2~0~2133)) '())))) (&fail~0~2130))))) (&fail~0~2130)))) (&fail~0~2130))) (&fail~0~2130)))))) (if (pair? &input~0~2128) (let ((&temp~0~2147 (car &input~0~2128))) (if (and (ex:identifier? &temp~0~2147) (ex:free-identifier=? &temp~0~2147 (ex:syntax-rename 'else '() '(&env~0~2143) 0 '(core derived)))) (let ((&temp~0~2144 (cdr &input~0~2128))) (if (pair? &temp~0~2144) (let ((&temp~0~2146 (car &temp~0~2144))) (let ((&e1~0~2140 &temp~0~2146)) (let ((&temp~0~2145 (cdr &temp~0~2144))) (if (list? &temp~0~2145) (let ((&e2~0~2141 &temp~0~2145)) (cons (ex:syntax-rename 'begin '() '(&env~0~2143) 0 '(core derived)) (cons &e1~0~2140 &e2~0~2141))) (&fail~0~2129))))) (&fail~0~2129))) (&fail~0~2129))) (&fail~0~2129))))