;;; psyntax.pp ;;; automatically generated from psyntax.ss ;;; Fri Jul 12 14:30:13 EST 2002 ;;; see copyright notice in psyntax.ss ((lambda () (letrec ((noexpand62 '"noexpand") (annotation?126 (lambda (x901) '#f)) (top-level-eval-hook127 (lambda (x1941) (eval (list noexpand62 x1941)))) (local-eval-hook128 (lambda (x902) (eval (list noexpand62 x902)))) (error-hook129 (lambda (who1940 why1938 what1939) (error who1940 '"~a ~s" why1938 what1939))) (put-global-definition-hook134 (lambda (symbol904 val903) ($sc-put-cte symbol904 val903))) (get-global-definition-hook135 (lambda (symbol1937) (getprop symbol1937 '*sc-expander*))) (get-import-binding136 (lambda (symbol906 token905) (getprop symbol906 token905))) (generate-id137 ((lambda (digits1923) ((lambda (base1925 session-key1924) (letrec ((make-digit1926 (lambda (x1936) (string-ref digits1923 x1936))) (fmt1927 (lambda (n1930) ((letrec ((fmt1931 (lambda (n1933 a1932) (if (< n1933 base1925) (list->string (cons (make-digit1926 n1933) a1932)) ((lambda (r1935 rest1934) (fmt1931 rest1934 (cons (make-digit1926 r1935) a1932))) (modulo n1933 base1925) (quotient n1933 base1925)))))) fmt1931) n1930 '())))) ((lambda (n1928) (lambda (name1929) (begin (set! n1928 (+ n1928 '1)) (string->symbol (string-append session-key1924 (fmt1927 n1928)))))) '-1))) (string-length digits1923) '"_")) '"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-")) (build-sequence236 (lambda (src908 exps907) (if (null? (cdr exps907)) (car exps907) (cons 'begin exps907)))) (build-letrec237 (lambda (src1922 vars1919 val-exps1921 body-exp1920) (if (null? vars1919) body-exp1920 (list 'letrec (map list vars1919 val-exps1921) body-exp1920)))) (build-body238 (lambda (src912 vars909 val-exps911 body-exp910) (build-letrec237 src912 vars909 val-exps911 body-exp910))) (make-syntax-object250 (lambda (expression1918 wrap1917) (vector 'syntax-object expression1918 wrap1917))) (syntax-object?251 (lambda (x913) (if (vector? x913) (if (= (vector-length x913) '3) (eq? (vector-ref x913 '0) 'syntax-object) '#f) '#f))) (syntax-object-expression252 (lambda (x1916) (vector-ref x1916 '1))) (syntax-object-wrap253 (lambda (x914) (vector-ref x914 '2))) (set-syntax-object-expression!254 (lambda (x1915 update1914) (vector-set! x1915 '1 update1914))) (set-syntax-object-wrap!255 (lambda (x916 update915) (vector-set! x916 '2 update915))) (source-annotation270 (lambda (x1913) (if (annotation?126 x1913) (annotation-source x1913) (if (syntax-object?251 x1913) (source-annotation270 (syntax-object-expression252 x1913)) '#f)))) (make-binding278 (lambda (x918 y917) (cons x918 y917))) (binding-type279 car) (binding-value280 cdr) (set-binding-type!281 set-car!) (set-binding-value!282 set-cdr!) (binding?283 (lambda (x1912) (if (pair? x1912) (symbol? (car x1912)) '#f))) (extend-env293 (lambda (label921 binding919 r920) (cons (cons label921 binding919) r920))) (extend-env*294 (lambda (labels1911 bindings1909 r1910) (if (null? labels1911) r1910 (extend-env*294 (cdr labels1911) (cdr bindings1909) (extend-env293 (car labels1911) (car bindings1909) r1910))))) (extend-var-env*295 (lambda (labels924 vars922 r923) (if (null? labels924) r923 (extend-var-env*295 (cdr labels924) (cdr vars922) (extend-env293 (car labels924) (make-binding278 'lexical (car vars922)) r923))))) (transformer-env296 (lambda (r1907) (if (null? r1907) '() ((lambda (a1908) (if (eq? (cadr a1908) 'lexical) (transformer-env296 (cdr r1907)) (cons a1908 (transformer-env296 (cdr r1907))))) (car r1907))))) (displaced-lexical-error297 (lambda (id925) (syntax-error id925 (if (id-var-name396 id925 '(())) '"identifier out of context" '"identifier not visible")))) (lookup*298 (lambda (x1904 r1903) ((lambda (t1905) (if t1905 (cdr t1905) (if (symbol? x1904) ((lambda (t1906) (if t1906 t1906 (make-binding278 'global x1904))) (get-global-definition-hook135 x1904)) (make-binding278 'displaced-lexical '#f)))) (assq x1904 r1903)))) (sanitize-binding299 (lambda (b926) (if (procedure? b926) (make-binding278 'macro b926) (if (binding?283 b926) ((lambda (t927) (if (memv t927 '(core macro macro!)) (if (procedure? (binding-value280 b926)) b926 '#f) (if (memv t927 '(module)) (if (interface?414 (binding-value280 b926)) b926 '#f) b926))) (binding-type279 b926)) '#f)))) (lookup300 (lambda (x1894 r1893) (letrec ((whack-binding!1895 (lambda (b1902 *b1901) (begin (set-binding-type!281 b1902 (binding-type279 *b1901)) (set-binding-value!282 b1902 (binding-value280 *b1901)))))) ((lambda (b1896) ((lambda (t1897) (if (memv t1897 '(deferred)) (begin (whack-binding!1895 b1896 ((lambda (*b1898) ((lambda (t1899) (if t1899 t1899 (syntax-error *b1898 '"invalid transformer"))) (sanitize-binding299 *b1898))) (local-eval-hook128 (binding-value280 b1896)))) ((lambda (t1900) b1896) (binding-type279 b1896))) b1896)) (binding-type279 b1896))) (lookup*298 x1894 r1893))))) (global-extend301 (lambda (type930 sym928 val929) (put-global-definition-hook134 sym928 (make-binding278 type930 val929)))) (nonsymbol-id?302 (lambda (x1891) (if (syntax-object?251 x1891) (symbol? ((lambda (e1892) (if (annotation?126 e1892) (annotation-expression e1892) e1892)) (syntax-object-expression252 x1891))) '#f))) (id?303 (lambda (x931) (if (symbol? x931) '#t (if (syntax-object?251 x931) (symbol? ((lambda (e932) (if (annotation?126 e932) (annotation-expression e932) e932)) (syntax-object-expression252 x931))) (if (annotation?126 x931) (symbol? (annotation-expression x931)) '#f))))) (id-sym-name&marks309 (lambda (x1888 w1887) (if (syntax-object?251 x1888) (values ((lambda (e1889) (if (annotation?126 e1889) (annotation-expression e1889) e1889)) (syntax-object-expression252 x1888)) (join-marks391 (wrap-marks311 w1887) (wrap-marks311 (syntax-object-wrap253 x1888)))) (values ((lambda (e1890) (if (annotation?126 e1890) (annotation-expression e1890) e1890)) x1888) (wrap-marks311 w1887))))) (make-wrap310 cons) (wrap-marks311 car) (wrap-subst312 cdr) (set-indirect-label!347 (lambda (x1886 v1885) (set-indirect-label-label!344 x1886 v1885))) (get-indirect-label346 (lambda (x933) (indirect-label-label343 x933))) (gen-indirect-label345 (lambda () (make-indirect-label341 (gen-label348)))) (set-indirect-label-label!344 (lambda (x935 update934) (vector-set! x935 '1 update934))) (indirect-label-label343 (lambda (x1884) (vector-ref x1884 '1))) (indirect-label?342 (lambda (x936) (if (vector? x936) (if (= (vector-length x936) '2) (eq? (vector-ref x936 '0) 'indirect-label) '#f) '#f))) (make-indirect-label341 (lambda (label1883) (vector 'indirect-label label1883))) (gen-label348 (lambda () (string '#\i))) (label?349 (lambda (x1880) ((lambda (t1881) (if t1881 t1881 ((lambda (t1882) (if t1882 t1882 (indirect-label?342 x1880))) (symbol? x1880)))) (string? x1880)))) (gen-labels350 (lambda (ls937) (if (null? ls937) '() (cons (gen-label348) (gen-labels350 (cdr ls937)))))) (make-ribcage351 (lambda (symnames1879 marks1877 labels1878) (vector 'ribcage symnames1879 marks1877 labels1878))) (ribcage?352 (lambda (x938) (if (vector? x938) (if (= (vector-length x938) '4) (eq? (vector-ref x938 '0) 'ribcage) '#f) '#f))) (ribcage-symnames353 (lambda (x1876) (vector-ref x1876 '1))) (ribcage-marks354 (lambda (x939) (vector-ref x939 '2))) (ribcage-labels355 (lambda (x1875) (vector-ref x1875 '3))) (set-ribcage-symnames!356 (lambda (x941 update940) (vector-set! x941 '1 update940))) (set-ribcage-marks!357 (lambda (x1874 update1873) (vector-set! x1874 '2 update1873))) (set-ribcage-labels!358 (lambda (x943 update942) (vector-set! x943 '3 update942))) (anti-mark368 (lambda (w1872) (make-wrap310 (cons '#f (wrap-marks311 w1872)) (cons 'shift (wrap-subst312 w1872))))) (barrier-marker373 '#f) (make-import-token374 (lambda (key1871) (vector 'import-token key1871))) (import-token?375 (lambda (x944) (if (vector? x944) (if (= (vector-length x944) '2) (eq? (vector-ref x944 '0) 'import-token) '#f) '#f))) (import-token-key376 (lambda (x1870) (vector-ref x1870 '1))) (set-import-token-key!377 (lambda (x946 update945) (vector-set! x946 '1 update945))) (extend-ribcage!382 (lambda (ribcage1868 id1866 label1867) (begin (set-ribcage-symnames!356 ribcage1868 (cons ((lambda (e1869) (if (annotation?126 e1869) (annotation-expression e1869) e1869)) (syntax-object-expression252 id1866)) (ribcage-symnames353 ribcage1868))) (set-ribcage-marks!357 ribcage1868 (cons (wrap-marks311 (syntax-object-wrap253 id1866)) (ribcage-marks354 ribcage1868))) (set-ribcage-labels!358 ribcage1868 (cons label1867 (ribcage-labels355 ribcage1868)))))) (extend-ribcage-barrier!383 (lambda (ribcage948 killer-id947) (extend-ribcage-barrier-help!384 ribcage948 (syntax-object-wrap253 killer-id947)))) (extend-ribcage-barrier-help!384 (lambda (ribcage1865 wrap1864) (begin (set-ribcage-symnames!356 ribcage1865 (cons barrier-marker373 (ribcage-symnames353 ribcage1865))) (set-ribcage-marks!357 ribcage1865 (cons (wrap-marks311 wrap1864) (ribcage-marks354 ribcage1865)))))) (extend-ribcage-subst!385 (lambda (ribcage950 token949) (set-ribcage-symnames!356 ribcage950 (cons (make-import-token374 token949) (ribcage-symnames353 ribcage950))))) (lookup-import-binding-name386 (lambda (sym1859 key1857 marks1858) ((lambda (new1860) (if new1860 ((letrec ((f1861 (lambda (new1862) (if (pair? new1862) ((lambda (t1863) (if t1863 t1863 (f1861 (cdr new1862)))) (f1861 (car new1862))) (if (symbol? new1862) (if (same-marks?392 marks1858 (wrap-marks311 '((top)))) new1862 '#f) (if (same-marks?392 marks1858 (wrap-marks311 (syntax-object-wrap253 new1862))) new1862 '#f)))))) f1861) new1860) '#f)) (get-import-binding136 sym1859 key1857)))) (make-binding-wrap387 (lambda (ids953 labels951 w952) (if (null? ids953) w952 (make-wrap310 (wrap-marks311 w952) (cons ((lambda (labelvec954) ((lambda (n955) ((lambda (symnamevec957 marksvec956) (begin ((letrec ((f958 (lambda (ids960 i959) (if (not (null? ids960)) (call-with-values (lambda () (id-sym-name&marks309 (car ids960) w952)) (lambda (symname962 marks961) (begin (vector-set! symnamevec957 i959 symname962) (vector-set! marksvec956 i959 marks961) (f958 (cdr ids960) (+ i959 '1))))) (void))))) f958) ids953 '0) (make-ribcage351 symnamevec957 marksvec956 labelvec954))) (make-vector n955) (make-vector n955))) (vector-length labelvec954))) (list->vector labels951)) (wrap-subst312 w952)))))) (make-trimmed-syntax-object388 (lambda (id1851) (call-with-values (lambda () (id-var-name&marks394 id1851 '(()))) (lambda (tosym1853 marks1852) (begin (if (not tosym1853) (syntax-error id1851 '"identifier not visible for export") (void)) ((lambda (fromsym1854) (make-syntax-object250 fromsym1854 (make-wrap310 marks1852 (list (make-ribcage351 (vector fromsym1854) (vector marks1852) (vector tosym1853)))))) ((lambda (x1855) ((lambda (e1856) (if (annotation?126 e1856) (annotation-expression e1856) e1856)) (if (syntax-object?251 x1855) (syntax-object-expression252 x1855) x1855))) id1851))))))) (smart-append389 (lambda (m1964 m2963) (if (null? m2963) m1964 (append m1964 m2963)))) (join-wraps390 (lambda (w11848 w21847) ((lambda (m11850 s11849) (if (null? m11850) (if (null? s11849) w21847 (make-wrap310 (wrap-marks311 w21847) (smart-append389 s11849 (wrap-subst312 w21847)))) (make-wrap310 (smart-append389 m11850 (wrap-marks311 w21847)) (smart-append389 s11849 (wrap-subst312 w21847))))) (wrap-marks311 w11848) (wrap-subst312 w11848)))) (join-marks391 (lambda (m1966 m2965) (smart-append389 m1966 m2965))) (same-marks?392 (lambda (x1845 y1844) ((lambda (t1846) (if t1846 t1846 (if (not (null? x1845)) (if (not (null? y1844)) (if (eq? (car x1845) (car y1844)) (same-marks?392 (cdr x1845) (cdr y1844)) '#f) '#f) '#f))) (eq? x1845 y1844)))) (id-var-name-loc&marks393 (lambda (id968 w967) (letrec ((search969 (lambda (sym999 subst997 marks998) (if (null? subst997) (values sym999 marks998) ((lambda (fst1000) (if (eq? fst1000 'shift) (search969 sym999 (cdr subst997) (cdr marks998)) ((lambda (symnames1001) (if (vector? symnames1001) (search-vector-rib971 sym999 subst997 marks998 symnames1001 fst1000) (search-list-rib970 sym999 subst997 marks998 symnames1001 fst1000))) (ribcage-symnames353 fst1000)))) (car subst997))))) (search-list-rib970 (lambda (sym983 subst979 marks982 symnames980 ribcage981) ((letrec ((f984 (lambda (symnames986 i985) (if (null? symnames986) (search969 sym983 (cdr subst979) marks982) (if (if (eq? (car symnames986) sym983) (same-marks?392 marks982 (list-ref (ribcage-marks354 ribcage981) i985)) '#f) (values (list-ref (ribcage-labels355 ribcage981) i985) marks982) (if (import-token?375 (car symnames986)) ((lambda (t987) (if t987 ((lambda (id988) (if (symbol? id988) (values id988 marks982) (id-var-name&marks394 id988 '(())))) t987) (f984 (cdr symnames986) i985))) (lookup-import-binding-name386 sym983 (import-token-key376 (car symnames986)) marks982)) (if (if (eq? (car symnames986) barrier-marker373) (same-marks?392 marks982 (list-ref (ribcage-marks354 ribcage981) i985)) '#f) (values '#f marks982) (f984 (cdr symnames986) (+ i985 '1))))))))) f984) symnames980 '0))) (search-vector-rib971 (lambda (sym993 subst989 marks992 symnames990 ribcage991) ((lambda (n994) ((letrec ((f995 (lambda (i996) (if (= i996 n994) (search969 sym993 (cdr subst989) marks992) (if (if (eq? (vector-ref symnames990 i996) sym993) (same-marks?392 marks992 (vector-ref (ribcage-marks354 ribcage991) i996)) '#f) (values (vector-ref (ribcage-labels355 ribcage991) i996) marks992) (f995 (+ i996 '1))))))) f995) '0)) (vector-length symnames990))))) (if (symbol? id968) (search969 id968 (wrap-subst312 w967) (wrap-marks311 w967)) (if (syntax-object?251 id968) ((lambda (sym973 w1972) ((lambda (marks974) (call-with-values (lambda () (search969 sym973 (wrap-subst312 w967) marks974)) (lambda (new-id976 marks975) (if (eq? new-id976 sym973) (search969 sym973 (wrap-subst312 w1972) marks975) (values new-id976 marks975))))) (join-marks391 (wrap-marks311 w967) (wrap-marks311 w1972)))) ((lambda (e977) (if (annotation?126 e977) (annotation-expression e977) e977)) (syntax-object-expression252 id968)) (syntax-object-wrap253 id968)) (if (annotation?126 id968) (search969 ((lambda (e978) (if (annotation?126 e978) (annotation-expression e978) e978)) id968) (wrap-subst312 w967) (wrap-marks311 w967)) (error-hook129 'id-var-name '"invalid id" id968))))))) (id-var-name&marks394 (lambda (id1841 w1840) (call-with-values (lambda () (id-var-name-loc&marks393 id1841 w1840)) (lambda (label1843 marks1842) (values (if (indirect-label?342 label1843) (get-indirect-label346 label1843) label1843) marks1842))))) (id-var-name-loc395 (lambda (id1003 w1002) (call-with-values (lambda () (id-var-name-loc&marks393 id1003 w1002)) (lambda (label1005 marks1004) label1005)))) (id-var-name396 (lambda (id1837 w1836) (call-with-values (lambda () (id-var-name-loc&marks393 id1837 w1836)) (lambda (label1839 marks1838) (if (indirect-label?342 label1839) (get-indirect-label346 label1839) label1839))))) (free-id=?397 (lambda (i1007 j1006) (if (eq? ((lambda (x1010) ((lambda (e1011) (if (annotation?126 e1011) (annotation-expression e1011) e1011)) (if (syntax-object?251 x1010) (syntax-object-expression252 x1010) x1010))) i1007) ((lambda (x1008) ((lambda (e1009) (if (annotation?126 e1009) (annotation-expression e1009) e1009)) (if (syntax-object?251 x1008) (syntax-object-expression252 x1008) x1008))) j1006)) (eq? (id-var-name396 i1007 '(())) (id-var-name396 j1006 '(()))) '#f))) (literal-id=?398 (lambda (id1826 literal1825) (if (eq? ((lambda (x1829) ((lambda (e1830) (if (annotation?126 e1830) (annotation-expression e1830) e1830)) (if (syntax-object?251 x1829) (syntax-object-expression252 x1829) x1829))) id1826) ((lambda (x1827) ((lambda (e1828) (if (annotation?126 e1828) (annotation-expression e1828) e1828)) (if (syntax-object?251 x1827) (syntax-object-expression252 x1827) x1827))) literal1825)) ((lambda (n-id1832 n-literal1831) ((lambda (t1833) (if t1833 t1833 (if ((lambda (t1834) (if t1834 t1834 (symbol? n-id1832))) (not n-id1832)) ((lambda (t1835) (if t1835 t1835 (symbol? n-literal1831))) (not n-literal1831)) '#f))) (eq? n-id1832 n-literal1831))) (id-var-name396 id1826 '(())) (id-var-name396 literal1825 '(()))) '#f))) (bound-id=?399 (lambda (i1013 j1012) (if (if (syntax-object?251 i1013) (syntax-object?251 j1012) '#f) (if (eq? ((lambda (e1015) (if (annotation?126 e1015) (annotation-expression e1015) e1015)) (syntax-object-expression252 i1013)) ((lambda (e1014) (if (annotation?126 e1014) (annotation-expression e1014) e1014)) (syntax-object-expression252 j1012))) (same-marks?392 (wrap-marks311 (syntax-object-wrap253 i1013)) (wrap-marks311 (syntax-object-wrap253 j1012))) '#f) (eq? ((lambda (e1017) (if (annotation?126 e1017) (annotation-expression e1017) e1017)) i1013) ((lambda (e1016) (if (annotation?126 e1016) (annotation-expression e1016) e1016)) j1012))))) (valid-bound-ids?400 (lambda (ids1821) (if ((letrec ((all-ids?1822 (lambda (ids1823) ((lambda (t1824) (if t1824 t1824 (if (id?303 (car ids1823)) (all-ids?1822 (cdr ids1823)) '#f))) (null? ids1823))))) all-ids?1822) ids1821) (distinct-bound-ids?401 ids1821) '#f))) (distinct-bound-ids?401 (lambda (ids1018) ((letrec ((distinct?1019 (lambda (ids1020) ((lambda (t1021) (if t1021 t1021 (if (not (bound-id-member?403 (car ids1020) (cdr ids1020))) (distinct?1019 (cdr ids1020)) '#f))) (null? ids1020))))) distinct?1019) ids1018))) (invalid-ids-error402 (lambda (ids1817 exp1815 class1816) ((letrec ((find1818 (lambda (ids1820 gooduns1819) (if (null? ids1820) (syntax-error exp1815) (if (id?303 (car ids1820)) (if (bound-id-member?403 (car ids1820) gooduns1819) (syntax-error (car ids1820) '"duplicate " class1816) (find1818 (cdr ids1820) (cons (car ids1820) gooduns1819))) (syntax-error (car ids1820) '"invalid " class1816)))))) find1818) ids1817 '()))) (bound-id-member?403 (lambda (x1023 list1022) (if (not (null? list1022)) ((lambda (t1024) (if t1024 t1024 (bound-id-member?403 x1023 (cdr list1022)))) (bound-id=?399 x1023 (car list1022))) '#f))) (wrap404 (lambda (x1814 w1813) (if (if (null? (wrap-marks311 w1813)) (null? (wrap-subst312 w1813)) '#f) x1814 (if (syntax-object?251 x1814) (make-syntax-object250 (syntax-object-expression252 x1814) (join-wraps390 w1813 (syntax-object-wrap253 x1814))) (if (null? x1814) x1814 (make-syntax-object250 x1814 w1813)))))) (source-wrap405 (lambda (x1027 w1025 s1026) (wrap404 (if s1026 (make-annotation x1027 s1026 '#f) x1027) w1025))) (chi-sequence406 (lambda (body1807 r1804 w1806 s1805) (build-sequence236 s1805 ((letrec ((dobody1808 (lambda (body1811 r1809 w1810) (if (null? body1811) '() ((lambda (first1812) (cons first1812 (dobody1808 (cdr body1811) r1809 w1810))) (chi446 (car body1811) r1809 w1810)))))) dobody1808) body1807 r1804 w1806)))) (chi-top-sequence407 (lambda (body1034 r1028 w1033 s1029 ctem1032 rtem1030 ribcage1031) (build-sequence236 s1029 ((letrec ((dobody1035 (lambda (body1040 r1036 w1039 ctem1037 rtem1038) (if (null? body1040) '() ((lambda (first1041) (cons first1041 (dobody1035 (cdr body1040) r1036 w1039 ctem1037 rtem1038))) (chi-top411 (car body1040) r1036 w1039 ctem1037 rtem1038 ribcage1031)))))) dobody1035) body1034 r1028 w1033 ctem1032 rtem1030)))) (chi-when-list408 (lambda (when-list1802 w1801) (map (lambda (x1803) (if (literal-id=?398 x1803 '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("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 set-import-token-key! import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label only-top-marked? top-marked? top-wrap empty-wrap 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-body 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 let-values 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)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "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*)) () ())))) 'compile (if (literal-id=?398 x1803 '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("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 set-import-token-key! import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label only-top-marked? top-marked? top-wrap empty-wrap 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-body 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 let-values 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)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "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*)) () ())))) 'load (if (literal-id=?398 x1803 '#(syntax-object visit ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("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 set-import-token-key! import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label only-top-marked? top-marked? top-wrap empty-wrap 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-body 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 let-values 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)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "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*)) () ())))) 'visit (if (literal-id=?398 x1803 '#(syntax-object revisit ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("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 set-import-token-key! import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label only-top-marked? top-marked? top-wrap empty-wrap 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-body 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 let-values 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)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "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*)) () ())))) 'revisit (if (literal-id=?398 x1803 '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("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 set-import-token-key! import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label only-top-marked? top-marked? top-wrap empty-wrap 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-body 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 let-values 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)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "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*)) () ())))) 'eval (syntax-error (wrap404 x1803 w1801) '"invalid eval-when situation"))))))) when-list1802))) (syntax-type409 (lambda (e1046 r1042 w1045 s1043 rib1044) (if (symbol? e1046) ((lambda (n1047) ((lambda (b1048) ((lambda (type1049) ((lambda () ((lambda (t1050) (if (memv t1050 '(lexical)) (values type1049 (binding-value280 b1048) e1046 w1045 s1043) (if (memv t1050 '(global)) (values type1049 (binding-value280 b1048) e1046 w1045 s1043) (if (memv t1050 '(macro macro!)) (syntax-type409 (chi-macro450 (binding-value280 b1048) e1046 r1042 w1045 s1043 rib1044) r1042 '(()) '#f rib1044) (values type1049 (binding-value280 b1048) e1046 w1045 s1043))))) type1049)))) (binding-type279 b1048))) (lookup300 n1047 r1042))) (id-var-name396 e1046 w1045)) (if (pair? e1046) ((lambda (first1051) (if (id?303 first1051) ((lambda (n1052) ((lambda (b1053) ((lambda (type1054) ((lambda () ((lambda (t1055) (if (memv t1055 '(lexical)) (values 'lexical-call (binding-value280 b1053) e1046 w1045 s1043) (if (memv t1055 '(macro macro!)) (syntax-type409 (chi-macro450 (binding-value280 b1053) e1046 r1042 w1045 s1043 rib1044) r1042 '(()) '#f rib1044) (if (memv t1055 '(core)) (values type1054 (binding-value280 b1053) e1046 w1045 s1043) (if (memv t1055 '(local-syntax)) (values 'local-syntax-form (binding-value280 b1053) e1046 w1045 s1043) (if (memv t1055 '(begin)) (values 'begin-form '#f e1046 w1045 s1043) (if (memv t1055 '(eval-when)) (values 'eval-when-form '#f e1046 w1045 s1043) (if (memv t1055 '(define)) (values 'define-form '#f e1046 w1045 s1043) (if (memv t1055 '(define-syntax)) (values 'define-syntax-form '#f e1046 w1045 s1043) (if (memv t1055 '(module-key)) (values 'module-form '#f e1046 w1045 s1043) (if (memv t1055 '(import)) (values 'import-form (if (binding-value280 b1053) (wrap404 first1051 w1045) '#f) e1046 w1045 s1043) (if (memv t1055 '(set!)) (chi-set!449 e1046 r1042 w1045 s1043 rib1044) (values 'call '#f e1046 w1045 s1043))))))))))))) type1054)))) (binding-type279 b1053))) (lookup300 n1052 r1042))) (id-var-name396 first1051 w1045)) (values 'call '#f e1046 w1045 s1043))) (car e1046)) (if (syntax-object?251 e1046) (syntax-type409 (syntax-object-expression252 e1046) r1042 (join-wraps390 w1045 (syntax-object-wrap253 e1046)) '#f rib1044) (if (annotation?126 e1046) (syntax-type409 (annotation-expression e1046) r1042 w1045 (annotation-source e1046) rib1044) (if ((lambda (x1056) ((lambda (t1057) (if t1057 t1057 ((lambda (t1058) (if t1058 t1058 ((lambda (t1059) (if t1059 t1059 ((lambda (t1060) (if t1060 t1060 (null? x1056))) (char? x1056)))) (string? x1056)))) (number? x1056)))) (boolean? x1056))) e1046) (values 'constant '#f e1046 w1045 s1043) (values 'other '#f e1046 w1045 s1043)))))))) (chi-top-expr410 (lambda (e1795 r1792 w1794 top-ribcage1793) (call-with-values (lambda () (syntax-type409 e1795 r1792 w1794 '#f top-ribcage1793)) (lambda (type1800 value1796 e1799 w1797 s1798) (chi-expr447 type1800 value1796 e1799 r1792 w1797 s1798))))) (chi-top411 (lambda (e1066 r1061 w1065 ctem1062 rtem1064 top-ribcage1063) (call-with-values (lambda () (syntax-type409 e1066 r1061 w1065 '#f top-ribcage1063)) (lambda (type1071 value1067 e1070 w1068 s1069) ((lambda (t1072) (if (memv t1072 '(begin-form)) ((lambda (tmp1073) ((lambda (tmp1074) (if tmp1074 (apply (lambda (_1075) (chi-void460)) tmp1074) ((lambda (tmp1076) (if tmp1076 (apply (lambda (_1079 e11077 e21078) (chi-top-sequence407 (cons e11077 e21078) r1061 w1068 s1069 ctem1062 rtem1064 top-ribcage1063)) tmp1076) (syntax-error tmp1073))) ($syntax-dispatch tmp1073 '(any any . each-any))))) ($syntax-dispatch tmp1073 '(any)))) e1070) (if (memv t1072 '(local-syntax-form)) (chi-local-syntax459 value1067 e1070 r1061 w1068 s1069 (lambda (body1084 r1081 w1083 s1082) (chi-top-sequence407 body1084 r1081 w1083 s1082 ctem1062 rtem1064 top-ribcage1063))) (if (memv t1072 '(eval-when-form)) ((lambda (tmp1085) ((lambda (tmp1086) (if tmp1086 (apply (lambda (_1090 x1087 e11089 e21088) ((lambda (when-list1092 body1091) ((lambda (ctem1094 rtem1093) (if (if (null? ctem1094) (null? rtem1093) '#f) (chi-void460) (chi-top-sequence407 body1091 r1061 w1068 s1069 ctem1094 rtem1093 top-ribcage1063))) (update-mode-set442 when-list1092 ctem1062) (update-mode-set442 when-list1092 rtem1064))) (chi-when-list408 x1087 w1068) (cons e11089 e21088))) tmp1086) (syntax-error tmp1085))) ($syntax-dispatch tmp1085 '(any each-any any . each-any)))) e1070) (if (memv t1072 '(define-syntax-form)) (parse-define-syntax457 e1070 w1068 s1069 (lambda (id1099 rhs1097 w1098) ((lambda (id1100) (begin ((lambda (n1105) ((lambda (b1106) ((lambda (t1107) (if (memv t1107 '(displaced-lexical)) (displaced-lexical-error297 id1100) (void))) (binding-type279 b1106))) (lookup300 n1105 r1061))) (id-var-name396 id1100 '(()))) (ct-eval/residualize445 ctem1062 (lambda () (list '$sc-put-cte (list 'quote ((lambda (sym1101) (if (same-marks?392 (wrap-marks311 (syntax-object-wrap253 id1100)) (wrap-marks311 '((top)))) sym1101 ((lambda (marks1102) (make-syntax-object250 sym1101 (make-wrap310 marks1102 (list (make-ribcage351 (vector sym1101) (vector marks1102) (vector (generate-id137 sym1101))))))) (wrap-marks311 (syntax-object-wrap253 id1100))))) ((lambda (x1103) ((lambda (e1104) (if (annotation?126 e1104) (annotation-expression e1104) e1104)) (if (syntax-object?251 x1103) (syntax-object-expression252 x1103) x1103))) id1100))) (chi446 rhs1097 (transformer-env296 r1061) w1098)))))) (wrap404 id1099 w1098)))) (if (memv t1072 '(define-form)) (parse-define456 e1070 w1068 s1069 (lambda (id1110 rhs1108 w1109) ((lambda (id1111) (begin ((lambda (n1117) ((lambda (b1118) ((lambda (t1119) (if (memv t1119 '(displaced-lexical)) (displaced-lexical-error297 id1111) (void))) (binding-type279 b1118))) (lookup300 n1117 r1061))) (id-var-name396 id1111 '(()))) ((lambda (sym1112) ((lambda (valsym1113) (build-sequence236 '#f (list (ct-eval/residualize445 ctem1062 (lambda () (list '$sc-put-cte (list 'quote (if (eq? sym1112 valsym1113) sym1112 ((lambda (marks1114) (make-syntax-object250 sym1112 (make-wrap310 marks1114 (list (make-ribcage351 (vector sym1112) (vector marks1114) (vector valsym1113)))))) (wrap-marks311 (syntax-object-wrap253 id1111))))) (list 'quote (make-binding278 'global valsym1113))))) (rt-eval/residualize444 rtem1064 (lambda () (list 'define valsym1113 (chi446 rhs1108 r1061 w1109))))))) (if (same-marks?392 (wrap-marks311 (syntax-object-wrap253 id1111)) (wrap-marks311 '((top)))) sym1112 (generate-id137 sym1112)))) ((lambda (x1115) ((lambda (e1116) (if (annotation?126 e1116) (annotation-expression e1116) e1116)) (if (syntax-object?251 x1115) (syntax-object-expression252 x1115) x1115))) id1111)))) (wrap404 id1110 w1109)))) (if (memv t1072 '(module-form)) ((lambda (r1121 ribcage1120) (parse-module454 e1070 w1068 s1069 (make-wrap310 (wrap-marks311 w1068) (cons ribcage1120 (wrap-subst312 w1068))) (lambda (id1124 exports1122 forms1123) (if id1124 (begin ((lambda (n1125) ((lambda (b1126) ((lambda (t1127) (if (memv t1127 '(displaced-lexical)) (displaced-lexical-error297 (wrap404 id1124 w1068)) (void))) (binding-type279 b1126))) (lookup300 n1125 r1121))) (id-var-name396 id1124 '(()))) (chi-top-module433 e1070 r1121 ribcage1120 w1068 s1069 ctem1062 rtem1064 id1124 exports1122 forms1123)) (chi-top-module433 e1070 r1121 ribcage1120 w1068 s1069 ctem1062 rtem1064 '#f exports1122 forms1123))))) (cons '("top-level module placeholder" placeholder) r1061) (make-ribcage351 '() '() '())) (if (memv t1072 '(import-form)) (parse-import455 e1070 w1068 s1069 (lambda (mid1128) (ct-eval/residualize445 ctem1062 (lambda () (begin (if value1067 (syntax-error (source-wrap405 e1070 w1068 s1069) '"not valid at top-level") (void)) ((lambda (binding1129) ((lambda (t1130) (if (memv t1130 '(module)) (do-top-import441 mid1128 (interface-token416 (binding-value280 binding1129))) (if (memv t1130 '(displaced-lexical)) (displaced-lexical-error297 mid1128) (syntax-error mid1128 '"import from unknown module")))) (binding-type279 binding1129))) (lookup300 (id-var-name396 mid1128 '(())) '()))))))) (rt-eval/residualize444 rtem1064 (lambda () (chi-expr447 type1071 value1067 e1070 r1061 w1068 s1069))))))))))) type1071))))) (flatten-exports412 (lambda (exports1788) ((letrec ((loop1789 (lambda (exports1791 ls1790) (if (null? exports1791) ls1790 (loop1789 (cdr exports1791) (if (pair? (car exports1791)) (loop1789 (car exports1791) ls1790) (cons (car exports1791) ls1790))))))) loop1789) exports1788 '()))) (make-interface413 (lambda (exports1132 token1131) (vector 'interface exports1132 token1131))) (interface?414 (lambda (x1787) (if (vector? x1787) (if (= (vector-length x1787) '3) (eq? (vector-ref x1787 '0) 'interface) '#f) '#f))) (interface-exports415 (lambda (x1133) (vector-ref x1133 '1))) (interface-token416 (lambda (x1786) (vector-ref x1786 '2))) (set-interface-exports!417 (lambda (x1135 update1134) (vector-set! x1135 '1 update1134))) (set-interface-token!418 (lambda (x1785 update1784) (vector-set! x1785 '2 update1784))) (make-trimmed-interface419 (lambda (exports1136) (make-interface413 (list->vector (map (lambda (x1137) (if (pair? x1137) (car x1137) x1137)) exports1136)) '#f))) (make-resolved-interface420 (lambda (exports1782 import-token1781) (make-interface413 (list->vector (map (lambda (x1783) (make-trimmed-syntax-object388 (if (pair? x1783) (car x1783) x1783))) exports1782)) import-token1781))) (make-module-binding421 (lambda (type1142 id1138 label1141 imps1139 val1140) (vector 'module-binding type1142 id1138 label1141 imps1139 val1140))) (module-binding?422 (lambda (x1780) (if (vector? x1780) (if (= (vector-length x1780) '6) (eq? (vector-ref x1780 '0) 'module-binding) '#f) '#f))) (module-binding-type423 (lambda (x1143) (vector-ref x1143 '1))) (module-binding-id424 (lambda (x1779) (vector-ref x1779 '2))) (module-binding-label425 (lambda (x1144) (vector-ref x1144 '3))) (module-binding-imps426 (lambda (x1778) (vector-ref x1778 '4))) (module-binding-val427 (lambda (x1145) (vector-ref x1145 '5))) (set-module-binding-type!428 (lambda (x1777 update1776) (vector-set! x1777 '1 update1776))) (set-module-binding-id!429 (lambda (x1147 update1146) (vector-set! x1147 '2 update1146))) (set-module-binding-label!430 (lambda (x1775 update1774) (vector-set! x1775 '3 update1774))) (set-module-binding-imps!431 (lambda (x1149 update1148) (vector-set! x1149 '4 update1148))) (set-module-binding-val!432 (lambda (x1773 update1772) (vector-set! x1773 '5 update1772))) (chi-top-module433 (lambda (e1159 r1150 ribcage1158 w1151 s1157 ctem1152 rtem1156 id1153 exports1155 forms1154) ((lambda (fexports1160) (chi-external438 ribcage1158 (source-wrap405 e1159 w1151 s1157) (map (lambda (d1223) (cons r1150 d1223)) forms1154) r1150 exports1155 fexports1160 ctem1152 (lambda (bindings1162 inits1161) ((letrec ((partition1163 (lambda (fexports1168 bs1164 svs1167 ses1165 ctdefs1166) (if (null? fexports1168) ((letrec ((partition1169 (lambda (bs1172 dvs1170 des1171) (if (null? bs1172) ((lambda (ses1175 des1173 inits1174) (begin (for-each (lambda (x1191) (apply (lambda (t1195 label1192 sym1194 val1193) (if label1192 (set-indirect-label!347 label1192 sym1194) (void))) x1191)) ctdefs1166) (build-sequence236 '#f (list (ct-eval/residualize445 ctem1152 (lambda () (if (null? ctdefs1166) (chi-void460) (build-sequence236 '#f (map (lambda (x1186) (apply (lambda (t1190 label1187 sym1189 val1188) (list '$sc-put-cte (list 'quote sym1189) (if (eq? t1190 'define-syntax-form) val1188 (list 'quote (make-binding278 'module (make-resolved-interface420 val1188 sym1189)))))) x1186)) ctdefs1166))))) (ct-eval/residualize445 ctem1152 (lambda () ((lambda (n1176) ((lambda (token1177) ((lambda (b1178) ((lambda () (if n1176 (list '$sc-put-cte (list 'quote (if (same-marks?392 (wrap-marks311 (syntax-object-wrap253 id1153)) (wrap-marks311 '((top)))) n1176 ((lambda (marks1179) (make-syntax-object250 n1176 (make-wrap310 marks1179 (list (make-ribcage351 (vector n1176) (vector marks1179) (vector (generate-id137 n1176))))))) (wrap-marks311 (syntax-object-wrap253 id1153))))) b1178) ((lambda (n1180) (build-sequence236 '#f (list (list '$sc-put-cte (list 'quote n1180) b1178) (do-top-import441 n1180 token1177)))) (generate-id137 'tmp)))))) (list 'quote (make-binding278 'module (make-resolved-interface420 exports1155 token1177))))) (generate-id137 n1176))) (if id1153 ((lambda (x1181) ((lambda (e1182) (if (annotation?126 e1182)