;;; psyntax.pp ;;; automatically generated from psyntax.ss ;;; Wed Aug 30 12:24:52 EST 2000 ;;; see copyright notice in psyntax.ss ((lambda () (letrec ((g452 (lambda (g1823) ((letrec ((g1824 (lambda (g1827 g1825 g1826) (if (pair? g1827) (g1824 (cdr g1827) (cons (g393 (car g1827) g1826) g1825) g1826) (if (g256 g1827) (cons (g393 g1827 g1826) g1825) (if (null? g1827) g1825 (if (g204 g1827) (g1824 (g205 g1827) g1825 (g371 g1826 (g206 g1827))) (if (g90 g1827) (g1824 (annotation-expression g1827) g1825 g1826) (cons g1827 g1825))))))))) g1824) g1823 '() '(())))) (g451 (lambda (g833) ((lambda (g834) (if (g90 g834) (gensym) (gensym))) (if (g204 g833) (g205 g833) g833)))) (g450 (lambda (g1820 g1819) (g449 g1820 g1819 (lambda (g1821) (if ((lambda (g1822) (if g1822 g1822 (if (pair? g1821) (g90 (car g1821)) '#f))) (g90 g1821)) (g448 g1821 '#f) g1821))))) (g449 (lambda (g837 g835 g836) (if (memq 'top (g264 g835)) (g836 g837) ((letrec ((g838 (lambda (g839) (if (g204 g839) (g449 (g205 g839) (g206 g839) g836) (if (pair? g839) ((lambda (g841 g840) (if (if (eq? g841 (car g839)) (eq? g840 (cdr g839)) '#f) g839 (cons g841 g840))) (g838 (car g839)) (g838 (cdr g839))) (if (vector? g839) ((lambda (g842) ((lambda (g843) (if (andmap eq? g842 g843) g839 (list->vector g843))) (map g838 g842))) (vector->list g839)) g839)))))) g838) g837)))) (g448 (lambda (g1813 g1812) (if (pair? g1813) ((lambda (g1814) (begin (if g1812 (set-annotation-stripped! g1812 g1814) (void)) (set-car! g1814 (g448 (car g1813) '#f)) (set-cdr! g1814 (g448 (cdr g1813) '#f)) g1814)) (cons '#f '#f)) (if (g90 g1813) ((lambda (g1815) (if g1815 g1815 (g448 (annotation-expression g1813) g1813))) (annotation-stripped g1813)) (if (vector? g1813) ((lambda (g1816) (begin (if g1812 (set-annotation-stripped! g1812 g1816) (void)) ((letrec ((g1817 (lambda (g1818) (if (not (< g1818 '0)) (begin (vector-set! g1816 g1818 (g448 (vector-ref g1813 g1818) '#f)) (g1817 (- g1818 '1))) (void))))) g1817) (- (vector-length g1813) '1)) g1816)) (make-vector (vector-length g1813))) g1813))))) (g447 (lambda (g844) (if (g255 g844) (g378 g844 '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ())))) '#f))) (g446 (lambda () (list 'void))) (g445 (lambda (g850 g845 g849 g846 g848 g847) ((lambda (g851) ((lambda (g852) (if g852 (apply (lambda (g857 g853 g856 g854 g855) ((lambda (g858) (if (not (g389 g858)) (g391 (map (lambda (g859) (g393 g859 g846)) g858) (g394 g845 g846 g848) '"keyword") ((lambda (g860) ((lambda (g861) (g847 (cons g854 g855) (g247 g860 ((lambda (g863 g862) (map (lambda (g865) (g231 'deferred (g432 g865 g862 g863))) g856)) (if g850 g861 g846) (g249 g849)) g849) g861 g848)) (g368 g858 g860 g846))) (g299 g858)))) g853)) g852) ((lambda (g868) (syntax-error (g394 g845 g846 g848))) g851))) ($syntax-dispatch g851 '(any #(each (any any)) any . each-any)))) g845))) (g444 (lambda (g1789 g1785 g1788 g1786 g1787) ((lambda (g1790) ((lambda (g1791) (if g1791 (apply (lambda (g1794 g1792 g1793) ((lambda (g1795) (if (not (g389 g1795)) (syntax-error g1789 '"invalid parameter list in") ((lambda (g1797 g1796) (g1787 g1796 (g437 (cons g1792 g1793) g1789 (g248 g1797 g1796 g1788) (g368 g1795 g1797 g1786)))) (g299 g1795) (map g451 g1795)))) g1794)) g1791) ((lambda (g1800) (if g1800 (apply (lambda (g1803 g1801 g1802) ((lambda (g1804) (if (not (g389 g1804)) (syntax-error g1789 '"invalid parameter list in") ((lambda (g1806 g1805) (g1787 ((letrec ((g1808 (lambda (g1810 g1809) (if (null? g1810) g1809 (g1808 (cdr g1810) (cons (car g1810) g1809)))))) g1808) (cdr g1805) (car g1805)) (g437 (cons g1801 g1802) g1789 (g248 g1806 g1805 g1788) (g368 g1804 g1806 g1786)))) (g299 g1804) (map g451 g1804)))) (g452 g1803))) g1800) ((lambda (g1811) (syntax-error g1789)) g1790))) ($syntax-dispatch g1790 '(any any . each-any))))) ($syntax-dispatch g1790 '(each-any any . each-any)))) g1785))) (g443 (lambda (g872 g869 g871 g870) ((lambda (g873) ((lambda (g874) (if (if g874 (apply (lambda (g877 g875 g876) (g256 g875)) g874) '#f) (apply (lambda (g880 g878 g879) (g870 g878 g879 g869)) g874) ((lambda (g881) (syntax-error (g394 g872 g869 g871))) g873))) ($syntax-dispatch g873 '(any any any)))) g872))) (g442 (lambda (g1758 g1755 g1757 g1756) ((lambda (g1759) ((lambda (g1760) (if (if g1760 (apply (lambda (g1763 g1761 g1762) (g256 g1761)) g1760) '#f) (apply (lambda (g1766 g1764 g1765) (g1756 g1764 g1765 g1755)) g1760) ((lambda (g1767) (if (if g1767 (apply (lambda (g1772 g1768 g1771 g1769 g1770) (if (g256 g1768) (g389 (g452 g1771)) '#f)) g1767) '#f) (apply (lambda (g1777 g1773 g1776 g1774 g1775) (g1756 (g393 g1773 g1755) (cons '#(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w s k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))) (g393 (cons g1776 (cons g1774 g1775)) g1755)) '(()))) g1767) ((lambda (g1779) (if (if g1779 (apply (lambda (g1781 g1780) (g256 g1780)) g1779) '#f) (apply (lambda (g1783 g1782) (g1756 (g393 g1782 g1755) '(#(syntax-object void ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(e w s k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ())))) '(()))) g1779) ((lambda (g1784) (syntax-error (g394 g1758 g1755 g1757))) g1759))) ($syntax-dispatch g1759 '(any any))))) ($syntax-dispatch g1759 '(any (any . any) any . each-any))))) ($syntax-dispatch g1759 '(any any any)))) g1758))) (g441 (lambda (g885 g882 g884 g883) ((lambda (g886) ((lambda (g887) (if (if g887 (apply (lambda (g889 g888) (g256 g888)) g887) '#f) (apply (lambda (g891 g890) (g883 (g393 g890 g882))) g887) ((lambda (g892) (syntax-error (g394 g885 g882 g884))) g886))) ($syntax-dispatch g886 '(any any)))) g885))) (g440 (lambda (g1723 g1719 g1722 g1720 g1721) (letrec ((g1725 (lambda (g1753 g1751 g1752) (g1721 g1753 (g1724 g1751) (map (lambda (g1754) (g393 g1754 g1720)) g1752)))) (g1724 (lambda (g1745) (if (null? g1745) '() (cons ((lambda (g1746) ((lambda (g1747) (if g1747 (apply (lambda (g1748) (g1724 g1748)) g1747) ((lambda (g1750) (if (g256 g1750) (g393 g1750 g1720) (syntax-error (g394 g1723 g1719 g1722) '"invalid exports list in"))) g1746))) ($syntax-dispatch g1746 'each-any))) (car g1745)) (g1724 (cdr g1745))))))) ((lambda (g1726) ((lambda (g1727) (if g1727 (apply (lambda (g1730 g1728 g1729) (g1725 '#f g1728 g1729)) g1727) ((lambda (g1733) (if (if g1733 (apply (lambda (g1737 g1734 g1736 g1735) (g256 g1734)) g1733) '#f) (apply (lambda (g1741 g1738 g1740 g1739) (g1725 (g393 g1738 g1719) g1740 g1739)) g1733) ((lambda (g1744) (syntax-error (g394 g1723 g1719 g1722))) g1726))) ($syntax-dispatch g1726 '(any any each-any . each-any))))) ($syntax-dispatch g1726 '(any each-any . each-any)))) g1723)))) (g439 (lambda (g894 g893) ((lambda (g895) (if g895 (g366 g893 g895) (g429 (lambda (g896) ((lambda (g897) (begin (if (not g897) (syntax-error g896 '"exported identifier not visible") (void)) (g363 g893 g896 g897))) (g376 g896 '(())))) (g404 g894)))) (g405 g894)))) (g438 (lambda (g1652 g1648 g1651 g1649 g1650) (letrec ((g1653 (lambda (g1718 g1714 g1717 g1715 g1716) (begin (g426 g1648 g1714) (g1650 g1718 g1714 g1717 g1715 g1716))))) ((letrec ((g1654 (lambda (g1659 g1655 g1658 g1656 g1657) (if (null? g1659) (g1653 g1659 g1655 g1658 g1656 g1657) ((lambda (g1661 g1660) (call-with-values (lambda () (g398 g1661 g1660 '(()) '#f g1652)) (lambda (g1666 g1662 g1665 g1663 g1664) ((lambda (g1667) (if (memv g1667 '(define-form)) (g442 g1665 g1663 g1664 (lambda (g1670 g1668 g1669) ((lambda (g1672 g1671) ((lambda (g1673) (begin (g363 g1652 g1672 g1671) (g424 g1649 g1671 (g231 'lexical g1673)) (g1654 (cdr g1659) (cons g1672 g1655) (cons g1673 g1658) (cons (cons g1660 (g393 g1668 g1669)) g1656) g1657))) (g451 g1672))) (g393 g1670 g1669) (g297)))) (if (memv g1667 '(define-syntax-form)) (g443 g1665 g1663 g1664 (lambda (g1676 g1674 g1675) ((lambda (g1679 g1677 g1678) (begin (g363 g1652 g1679 g1677) (g424 g1649 g1677 (g231 'deferred g1678)) (g1654 (cdr g1659) (cons g1679 g1655) g1658 g1656 g1657))) (g393 g1676 g1675) (g297) (g432 g1674 (g249 g1660) g1675)))) (if (memv g1667 '(module-form)) ((lambda (g1680) ((lambda (g1681) ((lambda () (g440 g1665 g1663 g1664 g1681 (lambda (g1684 g1682 g1683) (g438 g1680 (g394 g1665 g1663 g1664) (map (lambda (g1695) (cons g1660 g1695)) g1683) g1649 (lambda (g1689 g1685 g1688 g1686 g1687) (begin (g425 g1648 (g401 g1682) g1685) ((lambda (g1693 g1690 g1692 g1691) (if g1684 ((lambda (g1694) (begin (g363 g1652 g1684 g1694) (g424 g1649 g1694 (g231 'module g1693)) (g1654 (cdr g1659) (cons g1684 g1655) g1690 g1692 g1691))) (g297)) ((lambda () (begin (g439 g1693 g1652) (g1654 (cdr g1659) (cons g1693 g1655) g1690 g1692 g1691)))))) (g408 g1682) (append g1688 g1658) (append g1686 g1656) (append g1657 g1687 g1689)))))))))) (g263 (g264 g1663) (cons g1680 (g265 g1663))))) (g304 '() '() '())) (if (memv g1667 '(import-form)) (g441 g1665 g1663 g1664 (lambda (g1696) ((lambda (g1697) ((lambda (g1698) ((lambda (g1699) (if (memv g1699 '(module)) ((lambda (g1700) (begin (if g1662 (g364 g1652 g1662) (void)) (g439 g1700 g1652) (g1654 (cdr g1659) (cons g1700 g1655) g1658 g1656 g1657))) (cdr g1698)) (if (memv g1699 '(displaced-lexical)) (g250 g1696) (syntax-error g1696