;;; psyntax.pp ;;; automatically generated from psyntax.ss ;;; Thu Feb 14 19:36:03 EST 2002 ;;; see copyright notice in psyntax.ss ((lambda () (letrec ((lambda-var-list484 (lambda (vars1900) ((letrec ((lvl1901 (lambda (vars1904 ls1902 w1903) (if (pair? vars1904) (lvl1901 (cdr vars1904) (cons (wrap422 (car vars1904) w1903) ls1902) w1903) (if (id?293 vars1904) (cons (wrap422 vars1904 w1903) ls1902) (if (null? vars1904) ls1902 (if (syntax-object?241 vars1904) (lvl1901 (syntax-object-expression242 vars1904) ls1902 (join-wraps408 w1903 (syntax-object-wrap243 vars1904))) (if (annotation?117 vars1904) (lvl1901 (annotation-expression vars1904) ls1902 w1903) (cons vars1904 ls1902))))))))) lvl1901) vars1900 '() '(())))) (gen-var483 (lambda (id877) ((lambda (id878) (if (annotation?117 id878) (gensym) (gensym))) (if (syntax-object?241 id877) (syntax-object-expression242 id877) id877)))) (strip482 (lambda (x1897 w1896) (strip*481 x1897 w1896 (lambda (x1898) (if ((lambda (t1899) (if t1899 t1899 (if (pair? x1898) (annotation?117 (car x1898)) '#f))) (annotation?117 x1898)) (strip-annotation480 x1898 '#f) x1898))))) (strip*481 (lambda (x881 w879 fn880) (if (memq 'top (wrap-marks301 w879)) (fn880 x881) ((letrec ((f882 (lambda (x883) (if (syntax-object?241 x883) (strip*481 (syntax-object-expression242 x883) (syntax-object-wrap243 x883) fn880) (if (pair? x883) ((lambda (a885 d884) (if (if (eq? a885 (car x883)) (eq? d884 (cdr x883)) '#f) x883 (cons a885 d884))) (f882 (car x883)) (f882 (cdr x883))) (if (vector? x883) ((lambda (old886) ((lambda (new887) (if (andmap eq? old886 new887) x883 (list->vector new887))) (map f882 old886))) (vector->list x883)) x883)))))) f882) x881)))) (strip-annotation480 (lambda (x1890 parent1889) (if (pair? x1890) ((lambda (new1891) (begin (if parent1889 (set-annotation-stripped! parent1889 new1891) (void)) (set-car! new1891 (strip-annotation480 (car x1890) '#f)) (set-cdr! new1891 (strip-annotation480 (cdr x1890) '#f)) new1891)) (cons '#f '#f)) (if (annotation?117 x1890) ((lambda (t1892) (if t1892 t1892 (strip-annotation480 (annotation-expression x1890) x1890))) (annotation-stripped x1890)) (if (vector? x1890) ((lambda (new1893) (begin (if parent1889 (set-annotation-stripped! parent1889 new1893) (void)) ((letrec ((loop1894 (lambda (i1895) (if (not (< i1895 '0)) (begin (vector-set! new1893 i1895 (strip-annotation480 (vector-ref x1890 i1895) '#f)) (loop1894 (- i1895 '1))) (void))))) loop1894) (- (vector-length x1890) '1)) new1893)) (make-vector (vector-length x1890))) x1890))))) (ellipsis?479 (lambda (x888) (if (nonsymbol-id?292 x888) (literal-id=?416 x888 '#(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 rt-eval/residualize initial-mode-set update-mode-set 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-revisit-only build-visit-only 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< 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) (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" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ())))) '#f))) (chi-void478 (lambda () (list 'void))) (chi-local-syntax477 (lambda (rec?894 e889 r893 w890 s892 k891) ((lambda (tmp895) ((lambda (tmp896) (if tmp896 (apply (lambda (_901 id897 val900 e1898 e2899) ((lambda (ids902) (if (not (valid-bound-ids?418 ids902)) (invalid-ids-error420 (map (lambda (x903) (wrap422 x903 w890)) ids902) (source-wrap423 e889 w890 s892) '"keyword") ((lambda (labels904) ((lambda (new-w905) (k891 (cons e1898 e2899) (extend-env*284 labels904 ((lambda (w907 trans-r906) (map (lambda (x909) (make-binding268 'deferred (chi464 x909 trans-r906 w907))) val900)) (if rec?894 new-w905 w890) (transformer-env286 r893)) r893) new-w905 s892)) (make-binding-wrap405 ids902 labels904 w890))) (gen-labels336 ids902)))) id897)) tmp896) ((lambda (_912) (syntax-error (source-wrap423 e889 w890 s892))) tmp895))) ($syntax-dispatch tmp895 '(any #(each (any any)) any . each-any)))) e889))) (chi-lambda-clause476 (lambda (e1866 c1862 r1865 w1863 k1864) ((lambda (tmp1867) ((lambda (tmp1868) (if tmp1868 (apply (lambda (id1871 e11869 e21870) ((lambda (ids1872) (if (not (valid-bound-ids?418 ids1872)) (syntax-error e1866 '"invalid parameter list in") ((lambda (labels1874 new-vars1873) (k1864 new-vars1873 (chi-body469 (cons e11869 e21870) e1866 (extend-var-env*285 labels1874 new-vars1873 r1865) (make-binding-wrap405 ids1872 labels1874 w1863)))) (gen-labels336 ids1872) (map gen-var483 ids1872)))) id1871)) tmp1868) ((lambda (tmp1877) (if tmp1877 (apply (lambda (ids1880 e11878 e21879) ((lambda (old-ids1881) (if (not (valid-bound-ids?418 old-ids1881)) (syntax-error e1866 '"invalid parameter list in") ((lambda (labels1883 new-vars1882) (k1864 ((letrec ((f1885 (lambda (ls11887 ls21886) (if (null? ls11887) ls21886 (f1885 (cdr ls11887) (cons (car ls11887) ls21886)))))) f1885) (cdr new-vars1882) (car new-vars1882)) (chi-body469 (cons e11878 e21879) e1866 (extend-var-env*285 labels1883 new-vars1882 r1865) (make-binding-wrap405 old-ids1881 labels1883 w1863)))) (gen-labels336 old-ids1881) (map gen-var483 old-ids1881)))) (lambda-var-list484 ids1880))) tmp1877) ((lambda (_1888) (syntax-error e1866)) tmp1867))) ($syntax-dispatch tmp1867 '(any any . each-any))))) ($syntax-dispatch tmp1867 '(each-any any . each-any)))) c1862))) (parse-define-syntax475 (lambda (e916 w913 s915 k914) ((lambda (tmp917) ((lambda (tmp918) (if (if tmp918 (apply (lambda (_921 name919 val920) (id?293 name919)) tmp918) '#f) (apply (lambda (_924 name922 val923) (k914 name922 val923 w913)) tmp918) ((lambda (_925) (syntax-error (source-wrap423 e916 w913 s915))) tmp917))) ($syntax-dispatch tmp917 '(any any any)))) e916))) (parse-define474 (lambda (e1835 w1832 s1834 k1833) ((lambda (tmp1836) ((lambda (tmp1837) (if (if tmp1837 (apply (lambda (_1840 name1838 val1839) (id?293 name1838)) tmp1837) '#f) (apply (lambda (_1843 name1841 val1842) (k1833 name1841 val1842 w1832)) tmp1837) ((lambda (tmp1844) (if (if tmp1844 (apply (lambda (_1849 name1845 args1848 e11846 e21847) (if (id?293 name1845) (valid-bound-ids?418 (lambda-var-list484 args1848)) '#f)) tmp1844) '#f) (apply (lambda (_1854 name1850 args1853 e11851 e21852) (k1833 (wrap422 name1850 w1832) (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 rt-eval/residualize initial-mode-set update-mode-set 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-revisit-only build-visit-only 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< 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) (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" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))) (wrap422 (cons args1853 (cons e11851 e21852)) w1832)) '(()))) tmp1844) ((lambda (tmp1856) (if (if tmp1856 (apply (lambda (_1858 name1857) (id?293 name1857)) tmp1856) '#f) (apply (lambda (_1860 name1859) (k1833 (wrap422 name1859 w1832) '#(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 rt-eval/residualize initial-mode-set update-mode-set 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-revisit-only build-visit-only 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< 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) (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" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))) '(()))) tmp1856) ((lambda (_1861) (syntax-error (source-wrap423 e1835 w1832 s1834))) tmp1836))) ($syntax-dispatch tmp1836 '(any any))))) ($syntax-dispatch tmp1836 '(any (any . any) any . each-any))))) ($syntax-dispatch tmp1836 '(any any any)))) e1835))) (parse-import473 (lambda (e929 w926 s928 k927) ((lambda (tmp930) ((lambda (tmp931) (if (if tmp931 (apply (lambda (_933 mid932) (id?293 mid932)) tmp931) '#f) (apply (lambda (_935 mid934) (k927 (wrap422 mid934 w926))) tmp931) ((lambda (_936) (syntax-error (source-wrap423 e929 w926 s928))) tmp930))) ($syntax-dispatch tmp930 '(any any)))) e929))) (parse-module472 (lambda (e1800 w1796 s1799 *w1797 k1798) (letrec ((return1802 (lambda (id1830 exports1828 forms1829) (k1798 id1830 (listify1801 exports1828) (map (lambda (x1831) (wrap422 x1831 *w1797)) forms1829)))) (listify1801 (lambda (exports1822) (if (null? exports1822) '() (cons ((lambda (tmp1823) ((lambda (tmp1824) (if tmp1824 (apply (lambda (ex1825) (listify1801 ex1825)) tmp1824) ((lambda (x1827) (if (id?293 x1827) (wrap422 x1827 *w1797) (syntax-error (source-wrap423 e1800 w1796 s1799) '"invalid exports list in"))) tmp1823))) ($syntax-dispatch tmp1823 'each-any))) (car exports1822)) (listify1801 (cdr exports1822))))))) ((lambda (tmp1803) ((lambda (tmp1804) (if tmp1804 (apply (lambda (_1807 ex1805 form1806) (return1802 '#f ex1805 form1806)) tmp1804) ((lambda (tmp1810) (if (if tmp1810 (apply (lambda (_1814 mid1811 ex1813 form1812) (id?293 mid1811)) tmp1810) '#f) (apply (lambda (_1818 mid1815 ex1817 form1816) (return1802 (wrap422 mid1815 w1796) ex1817 form1816)) tmp1810) ((lambda (_1821) (syntax-error (source-wrap423 e1800 w1796 s1799))) tmp1803))) ($syntax-dispatch tmp1803 '(any any each-any . each-any))))) ($syntax-dispatch tmp1803 '(any each-any . each-any)))) e1800)))) (do-import!471 (lambda (interface938 ribcage937) ((lambda (token939) (if token939 (extend-ribcage-subst!403 ribcage937 token939) (vfor-each458 (lambda (id940) ((lambda (label1941) (begin (if (not label1941) (syntax-error id940 '"exported identifier not visible") (void)) (extend-ribcage!400 ribcage937 id940 label1941))) (id-var-name-loc413 id940 '(())))) (interface-exports433 interface938)))) (interface-token434 interface938)))) (chi-internal470 (lambda (ribcage1720 source-exp1716 body1719 r1717 k1718) (letrec ((return1721 (lambda (exprs1795 ids1791 vars1794 vals1792 inits1793) (begin (check-defined-ids455 source-exp1716 ids1791) (k1718 exprs1795 ids1791 vars1794 vals1792 inits1793))))) ((letrec ((parse1722 (lambda (body1727 ids1723 vars1726 vals1724 inits1725) (if (null? body1727) (return1721 body1727 ids1723 vars1726 vals1724 inits1725) ((lambda (e1729 er1728) (call-with-values (lambda () (syntax-type427 e1729 er1728 '(()) '#f ribcage1720)) (lambda (type1734 value1730 e1733 w1731 s1732) ((lambda (t1735) (if (memv t1735 '(define-form)) (parse-define474 e1733 w1731 s1732 (lambda (id1738 rhs1736 w1737) ((lambda (id1740 label1739) ((lambda (var1741) (begin (extend-ribcage!400 ribcage1720 id1740 label1739) (extend-store!453 r1717 label1739 (make-binding268 'lexical var1741)) (parse1722 (cdr body1727) (cons id1740 ids1723) (cons var1741 vars1726) (cons (cons er1728 (wrap422 rhs1736 w1737)) vals1724) inits1725))) (gen-var483 id1740))) (wrap422 id1738 w1737) (gen-label334)))) (if (memv t1735 '(define-syntax-form)) (parse-define-syntax475 e1733 w1731 s1732 (lambda (id1744 rhs1742 w1743) ((lambda (id1747 label1745 exp1746) (begin (extend-ribcage!400 ribcage1720 id1747 label1745) (extend-store!453 r1717 label1745 (make-binding268 'deferred exp1746)) (parse1722 (cdr body1727) (cons id1747 ids1723) vars1726 vals1724 inits1725))) (wrap422 id1744 w1743) (gen-label334) (chi464 rhs1742 (transformer-env286 er1728) w1743)))) (if (memv t1735 '(module-form)) ((lambda (*ribcage1748) ((lambda (*w1749) ((lambda () (parse-module472 e1733 w1731 s1732 *w1749 (lambda (id1752 exports1750 forms1751) (chi-internal470 *ribcage1748 (source-wrap423 e1733 w1731 s1732) (map (lambda (d1763) (cons er1728 d1763)) forms1751) r1717 (lambda (*body1757 *ids1753 *vars1756 *vals1754 *inits1755) (begin (check-module-exports454 source-exp1716 (flatten-exports430 exports1750) *ids1753) ((lambda (iface1761 vars1758 vals1760 inits1759) (if id1752