diff --git a/mes/module/mes/psyntax.pp b/mes/module/mes/psyntax.pp index b81bad59..ee73da86 100644 --- a/mes/module/mes/psyntax.pp +++ b/mes/module/mes/psyntax.pp @@ -1,6 +1,6 @@ ;;; -*-scheme-*- ;;; GNU Mes --- Maxwell Equations of Software -;;; Copyright (C) 2016, 2017, 2018 Free Software Foundation, Inc. +;;; Copyright (C) 2016, 2017, 2018, 2020 Free Software Foundation, Inc. ;;; ;;; This file is part of GNU Mes. ;;; @@ -22,6 +22,7 @@ ;;; This file is generated from psyntax.ss. ;;; Code: + (letrec ((syntmp-lambda-var-list-167 (lambda (syntmp-vars-552) (let syntmp-lvl-553 ((syntmp-vars-554 syntmp-vars-552) @@ -7272,2226 +7273,6 @@ '(any (any . any) any)))) syntmp-x-1667))) -(install-global-transformer - 'let* - (lambda (syntmp-x-1703) - ((lambda (syntmp-tmp-1704) - ((lambda (syntmp-tmp-1705) - (if (if syntmp-tmp-1705 - (apply (lambda (syntmp-let*-1706 - syntmp-x-1707 - syntmp-v-1708 - syntmp-e1-1709 - syntmp-e2-1710) - (andmap identifier? syntmp-x-1707)) - syntmp-tmp-1705) - #f) - (apply (lambda (syntmp-let*-1712 - syntmp-x-1713 - syntmp-v-1714 - syntmp-e1-1715 - syntmp-e2-1716) - (let syntmp-f-1717 ((syntmp-bindings-1718 - (map list - syntmp-x-1713 - syntmp-v-1714))) - (if (null? syntmp-bindings-1718) - (cons '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(f bindings) - #((top) (top)) - #("i" "i")) - #(ribcage - #(let* x v e1 e2) - #((top) (top) (top) (top) (top)) - #("i" "i" "i" "i" "i")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")))) - (cons '() - (cons syntmp-e1-1715 syntmp-e2-1716))) - ((lambda (syntmp-tmp-1722) - ((lambda (syntmp-tmp-1723) - (if syntmp-tmp-1723 - (apply (lambda (syntmp-body-1724 - syntmp-binding-1725) - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(body binding) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage - #(f bindings) - #((top) (top)) - #("i" "i")) - #(ribcage - #(let* x v e1 e2) - #((top) - (top) - (top) - (top) - (top)) - #("i" "i" "i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (list syntmp-binding-1725) - syntmp-body-1724)) - syntmp-tmp-1723) - (syntax-error syntmp-tmp-1722))) - (syntax-dispatch - syntmp-tmp-1722 - '(any any)))) - (list (syntmp-f-1717 (cdr syntmp-bindings-1718)) - (car syntmp-bindings-1718)))))) - syntmp-tmp-1705) - (syntax-error syntmp-tmp-1704))) - (syntax-dispatch - syntmp-tmp-1704 - '(any #(each (any any)) any . each-any)))) - syntmp-x-1703))) - -(install-global-transformer - 'do - (lambda (syntmp-orig-x-1745) - ((lambda (syntmp-tmp-1746) - ((lambda (syntmp-tmp-1747) - (if syntmp-tmp-1747 - (apply (lambda (syntmp-_-1748 - syntmp-var-1749 - syntmp-init-1750 - syntmp-step-1751 - syntmp-e0-1752 - syntmp-e1-1753 - syntmp-c-1754) - ((lambda (syntmp-tmp-1755) - ((lambda (syntmp-tmp-1756) - (if syntmp-tmp-1756 - (apply (lambda (syntmp-step-1757) - ((lambda (syntmp-tmp-1758) - ((lambda (syntmp-tmp-1759) - (if syntmp-tmp-1759 - (apply (lambda () - (list '#(syntax-object - let - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - '#(syntax-object - doloop - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - (map list - syntmp-var-1749 - syntmp-init-1750) - (list '#(syntax-object - if - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - (list '#(syntax-object - not - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - syntmp-e0-1752) - (cons '#(syntax-object - begin - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - (append - syntmp-c-1754 - (list (cons '#(syntax-object - doloop - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - syntmp-step-1757))))))) - syntmp-tmp-1759) - ((lambda (syntmp-tmp-1764) - (if syntmp-tmp-1764 - (apply (lambda (syntmp-e1-1765 - syntmp-e2-1766) - (list '#(syntax-object - let - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - '#(syntax-object - doloop - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - (map list - syntmp-var-1749 - syntmp-init-1750) - (list '#(syntax-object - if - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - syntmp-e0-1752 - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - (cons syntmp-e1-1765 - syntmp-e2-1766)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - (append - syntmp-c-1754 - (list (cons '#(syntax-object - doloop - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i")))) - syntmp-step-1757))))))) - syntmp-tmp-1764) - (syntax-error - syntmp-tmp-1758))) - (syntax-dispatch - syntmp-tmp-1758 - '(any . each-any))))) - (syntax-dispatch - syntmp-tmp-1758 - '()))) - syntmp-e1-1753)) - syntmp-tmp-1756) - (syntax-error syntmp-tmp-1755))) - (syntax-dispatch - syntmp-tmp-1755 - 'each-any))) - (map (lambda (syntmp-v-1773 syntmp-s-1774) - ((lambda (syntmp-tmp-1775) - ((lambda (syntmp-tmp-1776) - (if syntmp-tmp-1776 - (apply (lambda () syntmp-v-1773) - syntmp-tmp-1776) - ((lambda (syntmp-tmp-1777) - (if syntmp-tmp-1777 - (apply (lambda (syntmp-e-1778) - syntmp-e-1778) - syntmp-tmp-1777) - ((lambda (syntmp-_-1779) - (syntax-error syntmp-orig-x-1745)) - syntmp-tmp-1775))) - (syntax-dispatch - syntmp-tmp-1775 - '(any))))) - (syntax-dispatch syntmp-tmp-1775 (quote ())))) - syntmp-s-1774)) - syntmp-var-1749 - syntmp-step-1751))) - syntmp-tmp-1747) - (syntax-error syntmp-tmp-1746))) - (syntax-dispatch - syntmp-tmp-1746 - '(any #(each (any any . any)) - (any . each-any) - . - each-any)))) - syntmp-orig-x-1745))) - -(install-global-transformer - 'quasiquote - (letrec ((syntmp-quasicons-1807 - (lambda (syntmp-x-1811 syntmp-y-1812) - ((lambda (syntmp-tmp-1813) - ((lambda (syntmp-tmp-1814) - (if syntmp-tmp-1814 - (apply (lambda (syntmp-x-1815 syntmp-y-1816) - ((lambda (syntmp-tmp-1817) - ((lambda (syntmp-tmp-1818) - (if syntmp-tmp-1818 - (apply (lambda (syntmp-dy-1819) - ((lambda (syntmp-tmp-1820) - ((lambda (syntmp-tmp-1821) - (if syntmp-tmp-1821 - (apply (lambda (syntmp-dx-1822) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(dx) - #((top)) - #("i")) - #(ribcage - #(dy) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i" - "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")))) - (cons syntmp-dx-1822 - syntmp-dy-1819))) - syntmp-tmp-1821) - ((lambda (syntmp-_-1823) - (if (null? syntmp-dy-1819) - (list '#(syntax-object - list - ((top) - #(ribcage - #(_) - #((top)) - #("i")) - #(ribcage - #(dy) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i" - "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")))) - syntmp-x-1815) - (list '#(syntax-object - cons - ((top) - #(ribcage - #(_) - #((top)) - #("i")) - #(ribcage - #(dy) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i" - "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")))) - syntmp-x-1815 - syntmp-y-1816))) - syntmp-tmp-1820))) - (syntax-dispatch - syntmp-tmp-1820 - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage - #(dy) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i"))))) - any)))) - syntmp-x-1815)) - syntmp-tmp-1818) - ((lambda (syntmp-tmp-1824) - (if syntmp-tmp-1824 - (apply (lambda (syntmp-stuff-1825) - (cons '#(syntax-object - list - ((top) - #(ribcage - #(stuff) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(x y) - #((top) - (top)) - #("i" "i")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x y) - #((top) - (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")))) - (cons syntmp-x-1815 - syntmp-stuff-1825))) - syntmp-tmp-1824) - ((lambda (syntmp-else-1826) - (list '#(syntax-object - cons - ((top) - #(ribcage - #(else) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")))) - syntmp-x-1815 - syntmp-y-1816)) - syntmp-tmp-1817))) - (syntax-dispatch - syntmp-tmp-1817 - '(#(free-id - #(syntax-object - list - ((top) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - . - any))))) - (syntax-dispatch - syntmp-tmp-1817 - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - any)))) - syntmp-y-1816)) - syntmp-tmp-1814) - (syntax-error syntmp-tmp-1813))) - (syntax-dispatch - syntmp-tmp-1813 - '(any any)))) - (list syntmp-x-1811 syntmp-y-1812)))) - (syntmp-quasiappend-1808 - (lambda (syntmp-x-1827 syntmp-y-1828) - ((lambda (syntmp-tmp-1829) - ((lambda (syntmp-tmp-1830) - (if syntmp-tmp-1830 - (apply (lambda (syntmp-x-1831 syntmp-y-1832) - ((lambda (syntmp-tmp-1833) - ((lambda (syntmp-tmp-1834) - (if syntmp-tmp-1834 - (apply (lambda () syntmp-x-1831) - syntmp-tmp-1834) - ((lambda (syntmp-_-1835) - (list '#(syntax-object - append - ((top) - #(ribcage - #(_) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" "i" "i" "i")))) - syntmp-x-1831 - syntmp-y-1832)) - syntmp-tmp-1833))) - (syntax-dispatch - syntmp-tmp-1833 - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - ())))) - syntmp-y-1832)) - syntmp-tmp-1830) - (syntax-error syntmp-tmp-1829))) - (syntax-dispatch - syntmp-tmp-1829 - '(any any)))) - (list syntmp-x-1827 syntmp-y-1828)))) - (syntmp-quasivector-1809 - (lambda (syntmp-x-1836) - ((lambda (syntmp-tmp-1837) - ((lambda (syntmp-x-1838) - ((lambda (syntmp-tmp-1839) - ((lambda (syntmp-tmp-1840) - (if syntmp-tmp-1840 - (apply (lambda (syntmp-x-1841) - (list '#(syntax-object - quote - ((top) - #(ribcage #(x) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")))) - (list->vector syntmp-x-1841))) - syntmp-tmp-1840) - ((lambda (syntmp-tmp-1843) - (if syntmp-tmp-1843 - (apply (lambda (syntmp-x-1844) - (cons '#(syntax-object - vector - ((top) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" "i" "i" "i")))) - syntmp-x-1844)) - syntmp-tmp-1843) - ((lambda (syntmp-_-1846) - (list '#(syntax-object - list->vector - ((top) - #(ribcage #(_) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")))) - syntmp-x-1838)) - syntmp-tmp-1839))) - (syntax-dispatch - syntmp-tmp-1839 - '(#(free-id - #(syntax-object - list - ((top) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - . - each-any))))) - (syntax-dispatch - syntmp-tmp-1839 - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")) - #(ribcage - #(quasicons quasiappend quasivector quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - each-any)))) - syntmp-x-1838)) - syntmp-tmp-1837)) - syntmp-x-1836))) - (syntmp-quasi-1810 - (lambda (syntmp-p-1847 syntmp-lev-1848) - ((lambda (syntmp-tmp-1849) - ((lambda (syntmp-tmp-1850) - (if syntmp-tmp-1850 - (apply (lambda (syntmp-p-1851) - (if (= syntmp-lev-1848 0) - syntmp-p-1851 - (syntmp-quasicons-1807 - '(#(syntax-object - quote - ((top) - #(ribcage #(p) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")))) - #(syntax-object - unquote - ((top) - #(ribcage #(p) #((top)) #("i")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - (syntmp-quasi-1810 - (list syntmp-p-1851) - (- syntmp-lev-1848 1))))) - syntmp-tmp-1850) - ((lambda (syntmp-tmp-1852) - (if syntmp-tmp-1852 - (apply (lambda (syntmp-p-1853 syntmp-q-1854) - (if (= syntmp-lev-1848 0) - (syntmp-quasiappend-1808 - syntmp-p-1853 - (syntmp-quasi-1810 - syntmp-q-1854 - syntmp-lev-1848)) - (syntmp-quasicons-1807 - (syntmp-quasicons-1807 - '(#(syntax-object - quote - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")))) - #(syntax-object - unquote-splicing - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - (syntmp-quasi-1810 - (list syntmp-p-1853) - (- syntmp-lev-1848 1))) - (syntmp-quasi-1810 - syntmp-q-1854 - syntmp-lev-1848)))) - syntmp-tmp-1852) - ((lambda (syntmp-tmp-1855) - (if syntmp-tmp-1855 - (apply (lambda (syntmp-p-1856) - (syntmp-quasicons-1807 - '(#(syntax-object - quote - ((top) - #(ribcage - #(p) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")))) - #(syntax-object - quasiquote - ((top) - #(ribcage - #(p) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - (syntmp-quasi-1810 - (list syntmp-p-1856) - (+ syntmp-lev-1848 1)))) - syntmp-tmp-1855) - ((lambda (syntmp-tmp-1857) - (if syntmp-tmp-1857 - (apply (lambda (syntmp-p-1858 - syntmp-q-1859) - (syntmp-quasicons-1807 - (syntmp-quasi-1810 - syntmp-p-1858 - syntmp-lev-1848) - (syntmp-quasi-1810 - syntmp-q-1859 - syntmp-lev-1848))) - syntmp-tmp-1857) - ((lambda (syntmp-tmp-1860) - (if syntmp-tmp-1860 - (apply (lambda (syntmp-x-1861) - (syntmp-quasivector-1809 - (syntmp-quasi-1810 - syntmp-x-1861 - syntmp-lev-1848))) - syntmp-tmp-1860) - ((lambda (syntmp-p-1863) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(p) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i" "i" "i" "i")))) - syntmp-p-1863)) - syntmp-tmp-1849))) - (syntax-dispatch - syntmp-tmp-1849 - '#(vector each-any))))) - (syntax-dispatch - syntmp-tmp-1849 - '(any . any))))) - (syntax-dispatch - syntmp-tmp-1849 - '(#(free-id - #(syntax-object - quasiquote - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i" "i")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - any))))) - (syntax-dispatch - syntmp-tmp-1849 - '((#(free-id - #(syntax-object - unquote-splicing - ((top) - #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("i" "i")) - #(ribcage - #(quasicons quasiappend quasivector quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - any) - . - any))))) - (syntax-dispatch - syntmp-tmp-1849 - '(#(free-id - #(syntax-object - unquote - ((top) - #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("i" "i")) - #(ribcage - #(quasicons quasiappend quasivector quasi) - #((top) (top) (top) (top)) - #("i" "i" "i" "i"))))) - any)))) - syntmp-p-1847)))) - (lambda (syntmp-x-1864) - ((lambda (syntmp-tmp-1865) - ((lambda (syntmp-tmp-1866) - (if syntmp-tmp-1866 - (apply (lambda (syntmp-_-1867 syntmp-e-1868) - (syntmp-quasi-1810 syntmp-e-1868 0)) - syntmp-tmp-1866) - (syntax-error syntmp-tmp-1865))) - (syntax-dispatch - syntmp-tmp-1865 - '(any any)))) - syntmp-x-1864)))) - -(install-global-transformer - 'include - (lambda (syntmp-x-1928) - (letrec ((syntmp-read-file-1929 - (lambda (syntmp-fn-1930 syntmp-k-1931) - (let ((syntmp-p-1932 (open-input-file syntmp-fn-1930))) - (let syntmp-f-1933 ((syntmp-x-1934 (read syntmp-p-1932))) - (if (eof-object? syntmp-x-1934) - (begin - (close-input-port syntmp-p-1932) - '()) - (cons (datum->syntax-object - syntmp-k-1931 - syntmp-x-1934) - (syntmp-f-1933 (read syntmp-p-1932))))))))) - ((lambda (syntmp-tmp-1935) - ((lambda (syntmp-tmp-1936) - (if syntmp-tmp-1936 - (apply (lambda (syntmp-k-1937 syntmp-filename-1938) - (let ((syntmp-fn-1939 - (syntax-object->datum syntmp-filename-1938))) - ((lambda (syntmp-tmp-1940) - ((lambda (syntmp-tmp-1941) - (if syntmp-tmp-1941 - (apply (lambda (syntmp-exp-1942) - (cons '#(syntax-object - begin - ((top) - #(ribcage () () ()) - #(ribcage - #(exp) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(fn) - #((top)) - #("i")) - #(ribcage - #(k filename) - #((top) (top)) - #("i" "i")) - #(ribcage - (read-file) - ((top)) - ("i")) - #(ribcage - #(x) - #((top)) - #("i")))) - syntmp-exp-1942)) - syntmp-tmp-1941) - (syntax-error syntmp-tmp-1940))) - (syntax-dispatch - syntmp-tmp-1940 - 'each-any))) - (syntmp-read-file-1929 - syntmp-fn-1939 - syntmp-k-1937)))) - syntmp-tmp-1936) - (syntax-error syntmp-tmp-1935))) - (syntax-dispatch - syntmp-tmp-1935 - '(any any)))) - syntmp-x-1928)))) - -(install-global-transformer - 'unquote - (lambda (syntmp-x-1959) - ((lambda (syntmp-tmp-1960) - ((lambda (syntmp-tmp-1961) - (if syntmp-tmp-1961 - (apply (lambda (syntmp-_-1962 syntmp-e-1963) - (error 'unquote - "expression ,~s not valid outside of quasiquote" - (syntax-object->datum syntmp-e-1963))) - syntmp-tmp-1961) - (syntax-error syntmp-tmp-1960))) - (syntax-dispatch - syntmp-tmp-1960 - '(any any)))) - syntmp-x-1959))) - -(install-global-transformer - 'unquote-splicing - (lambda (syntmp-x-1969) - ((lambda (syntmp-tmp-1970) - ((lambda (syntmp-tmp-1971) - (if syntmp-tmp-1971 - (apply (lambda (syntmp-_-1972 syntmp-e-1973) - (error 'unquote-splicing - "expression ,@~s not valid outside of quasiquote" - (syntax-object->datum syntmp-e-1973))) - syntmp-tmp-1971) - (syntax-error syntmp-tmp-1970))) - (syntax-dispatch - syntmp-tmp-1970 - '(any any)))) - syntmp-x-1969))) - -(install-global-transformer - 'case - (lambda (syntmp-x-1979) - ((lambda (syntmp-tmp-1980) - ((lambda (syntmp-tmp-1981) - (if syntmp-tmp-1981 - (apply (lambda (syntmp-_-1982 - syntmp-e-1983 - syntmp-m1-1984 - syntmp-m2-1985) - ((lambda (syntmp-tmp-1986) - ((lambda (syntmp-body-1987) - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i")) - #(ribcage - #(_ e m1 m2) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i")))) - (list (list '#(syntax-object - t - ((top) - #(ribcage () () ()) - #(ribcage - #(body) - #((top)) - #("i")) - #(ribcage - #(_ e m1 m2) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")))) - syntmp-e-1983)) - syntmp-body-1987)) - syntmp-tmp-1986)) - (let syntmp-f-1988 ((syntmp-clause-1989 syntmp-m1-1984) - (syntmp-clauses-1990 syntmp-m2-1985)) - (if (null? syntmp-clauses-1990) - ((lambda (syntmp-tmp-1992) - ((lambda (syntmp-tmp-1993) - (if syntmp-tmp-1993 - (apply (lambda (syntmp-e1-1994 - syntmp-e2-1995) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i" "i")) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" "i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (cons syntmp-e1-1994 - syntmp-e2-1995))) - syntmp-tmp-1993) - ((lambda (syntmp-tmp-1997) - (if syntmp-tmp-1997 - (apply (lambda (syntmp-k-1998 - syntmp-e1-1999 - syntmp-e2-2000) - (list '#(syntax-object - if - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) - (top) - (top)) - #("i" "i" "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" "i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (list '#(syntax-object - memv - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - '#(syntax-object - t - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - syntmp-k-1998)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (cons syntmp-e1-1999 - syntmp-e2-2000)))) - syntmp-tmp-1997) - ((lambda (syntmp-_-2003) - (syntax-error syntmp-x-1979)) - syntmp-tmp-1992))) - (syntax-dispatch - syntmp-tmp-1992 - '(each-any any . each-any))))) - (syntax-dispatch - syntmp-tmp-1992 - '(#(free-id - #(syntax-object - else - ((top) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - #(_ e m1 m2) - #((top) (top) (top) (top)) - #("i" "i" "i" "i")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i"))))) - any - . - each-any)))) - syntmp-clause-1989) - ((lambda (syntmp-tmp-2004) - ((lambda (syntmp-rest-2005) - ((lambda (syntmp-tmp-2006) - ((lambda (syntmp-tmp-2007) - (if syntmp-tmp-2007 - (apply (lambda (syntmp-k-2008 - syntmp-e1-2009 - syntmp-e2-2010) - (list '#(syntax-object - if - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(rest) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" "i" "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (list '#(syntax-object - memv - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - '#(syntax-object - t - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - syntmp-k-2008)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i" - "i" - "i")) - #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i" - "i" - "i" - "i")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i")))) - (cons syntmp-e1-2009 - syntmp-e2-2010)) - syntmp-rest-2005)) - syntmp-tmp-2007) - ((lambda (syntmp-_-2013) - (syntax-error syntmp-x-1979)) - syntmp-tmp-2006))) - (syntax-dispatch - syntmp-tmp-2006 - '(each-any any . each-any)))) - syntmp-clause-1989)) - syntmp-tmp-2004)) - (syntmp-f-1988 - (car syntmp-clauses-1990) - (cdr syntmp-clauses-1990))))))) - syntmp-tmp-1981) - (syntax-error syntmp-tmp-1980))) - (syntax-dispatch - syntmp-tmp-1980 - '(any any any . each-any)))) - syntmp-x-1979))) - (install-global-transformer 'identifier-syntax (lambda (syntmp-x-2043)