;;; psyntax.pp ;;; automatically generated from psyntax.ss ;;; Tue May 13 16:56:05 EST 2003 ;;; see copyright notice in psyntax.ss ((lambda () (letrec ((noexpand62 '"noexpand") (make-syntax-object63 (lambda (expression930 wrap929) (vector 'syntax-object expression930 wrap929))) (syntax-object?64 (lambda (x2039) (if (vector? x2039) (if (= (vector-length x2039) '3) (eq? (vector-ref x2039 '0) 'syntax-object) '#f) '#f))) (syntax-object-expression65 (lambda (x931) (vector-ref x931 '1))) (syntax-object-wrap66 (lambda (x2038) (vector-ref x2038 '2))) (set-syntax-object-expression!67 (lambda (x933 update932) (vector-set! x933 '1 update932))) (set-syntax-object-wrap!68 (lambda (x2037 update2036) (vector-set! x2037 '2 update2036))) (annotation?132 (lambda (x934) '#f)) (top-level-eval-hook133 (lambda (x2035) (eval (list noexpand62 x2035)))) (local-eval-hook134 (lambda (x935) (eval (list noexpand62 x935)))) (error-hook135 (lambda (who2034 why2032 what2033) (error who2034 '"~a ~s" why2032 what2033))) (put-cte-hook140 (lambda (symbol937 val936) ($sc-put-cte symbol937 val936 '*top*))) (get-global-definition-hook141 (lambda (symbol2031) (getprop symbol2031 '*sc-expander*))) (put-global-definition-hook142 (lambda (symbol939 x938) (if (not x938) (remprop symbol939 '*sc-expander*) (putprop symbol939 '*sc-expander* x938)))) (read-only-binding?143 (lambda (symbol2030) '#f)) (get-import-binding144 (lambda (symbol941 token940) (getprop symbol941 token940))) (put-import-binding145 (lambda (symbol2029 token2027 x2028) (if (not x2028) (remprop symbol2029 token2027) (putprop symbol2029 token2027 x2028)))) (generate-id146 ((lambda (digits942) ((lambda (base944 session-key943) (letrec ((make-digit945 (lambda (x955) (string-ref digits942 x955))) (fmt946 (lambda (n949) ((letrec ((fmt950 (lambda (n952 a951) (if (< n952 base944) (list->string (cons (make-digit945 n952) a951)) ((lambda (r954 rest953) (fmt950 rest953 (cons (make-digit945 r954) a951))) (modulo n952 base944) (quotient n952 base944)))))) fmt950) n949 '())))) ((lambda (n947) (lambda (name948) (begin (set! n947 (+ n947 '1)) (string->symbol (string-append session-key943 (fmt946 n947)))))) '-1))) (string-length digits942) '"_")) '"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-")) (built-lambda?229 (lambda (x2026) (if (pair? x2026) (eq? (car x2026) 'lambda) '#f))) (build-sequence247 (lambda (ae957 exps956) ((letrec ((loop958 (lambda (exps959) (if (null? (cdr exps959)) (car exps959) (if (equal? (car exps959) '(void)) (loop958 (cdr exps959)) (cons 'begin exps959)))))) loop958) exps956))) (build-letrec248 (lambda (ae2025 vars2022 val-exps2024 body-exp2023) (if (null? vars2022) body-exp2023 (list 'letrec (map list vars2022 val-exps2024) body-exp2023)))) (build-body249 (lambda (ae963 vars960 val-exps962 body-exp961) (build-letrec248 ae963 vars960 val-exps962 body-exp961))) (binding-type291 car) (binding-value292 cdr) (set-binding-type!293 set-car!) (set-binding-value!294 set-cdr!) (binding?295 (lambda (x2021) (if (pair? x2021) (symbol? (car x2021)) '#f))) (extend-env305 (lambda (label966 binding964 r965) (cons (cons label966 binding964) r965))) (extend-env*306 (lambda (labels2020 bindings2018 r2019) (if (null? labels2020) r2019 (extend-env*306 (cdr labels2020) (cdr bindings2018) (extend-env305 (car labels2020) (car bindings2018) r2019))))) (extend-var-env*307 (lambda (labels969 vars967 r968) (if (null? labels969) r968 (extend-var-env*307 (cdr labels969) (cdr vars967) (extend-env305 (car labels969) (cons 'lexical (car vars967)) r968))))) (transformer-env308 (lambda (r2016) (if (null? r2016) '() ((lambda (a2017) (if (memq (cadr a2017) '(lexical syntax)) (transformer-env308 (cdr r2016)) (cons a2017 (transformer-env308 (cdr r2016))))) (car r2016))))) (displaced-lexical?309 (lambda (id971 r970) ((lambda (n972) (if n972 ((lambda (b973) (eq? (binding-type291 b973) 'displaced-lexical)) (lookup313 n972 r970)) '#f)) (id-var-name431 id971 '(()))))) (displaced-lexical-error310 (lambda (id2015) (syntax-error id2015 (if (id-var-name431 id2015 '(())) '"identifier out of context" '"identifier not visible")))) (lookup*311 (lambda (x975 r974) ((lambda (t976) (if t976 (cdr t976) (if (symbol? x975) ((lambda (t977) (if t977 t977 (cons 'global x975))) (get-global-definition-hook141 x975)) '(displaced-lexical . #f)))) (assq x975 r974)))) (sanitize-binding312 (lambda (b2013) (if (procedure? b2013) (cons 'macro b2013) (if (binding?295 b2013) ((lambda (t2014) (if (memv t2014 '(core macro macro!)) (if (procedure? (binding-value292 b2013)) b2013 '#f) (if (memv t2014 '($module)) (if (interface?449 (binding-value292 b2013)) b2013 '#f) b2013))) (binding-type291 b2013)) '#f)))) (lookup313 (lambda (x979 r978) (letrec ((whack-binding!980 (lambda (b983 *b982) (begin (set-binding-type!293 b983 (binding-type291 *b982)) (set-binding-value!294 b983 (binding-value292 *b982)))))) ((lambda (b981) (begin (if (eq? (binding-type291 b981) 'deferred) (whack-binding!980 b981 (make-transformer-binding314 (binding-value292 b981))) (void)) b981)) (lookup*311 x979 r978))))) (make-transformer-binding314 (lambda (x2010) ((lambda (b2011) ((lambda (t2012) (if t2012 t2012 (syntax-error b2011 '"invalid transformer"))) (sanitize-binding312 b2011))) (local-eval-hook134 x2010)))) (defer-or-eval-transformer315 (lambda (x984) (if (built-lambda?229 x984) (cons 'deferred x984) (make-transformer-binding314 x984)))) (global-extend316 (lambda (type2009 sym2007 val2008) (put-cte-hook140 sym2007 (cons type2009 val2008)))) (nonsymbol-id?317 (lambda (x985) (if (syntax-object?64 x985) (symbol? ((lambda (e986) (if (annotation?132 e986) (annotation-expression e986) e986)) (syntax-object-expression65 x985))) '#f))) (id?318 (lambda (x2005) (if (symbol? x2005) '#t (if (syntax-object?64 x2005) (symbol? ((lambda (e2006) (if (annotation?132 e2006) (annotation-expression e2006) e2006)) (syntax-object-expression65 x2005))) (if (annotation?132 x2005) (symbol? (annotation-expression x2005)) '#f))))) (id-sym-name&marks324 (lambda (x988 w987) (if (syntax-object?64 x988) (values ((lambda (e989) (if (annotation?132 e989) (annotation-expression e989) e989)) (syntax-object-expression65 x988)) (join-marks421 (wrap-marks326 w987) (wrap-marks326 (syntax-object-wrap66 x988)))) (values ((lambda (e990) (if (annotation?132 e990) (annotation-expression e990) e990)) x988) (wrap-marks326 w987))))) (make-wrap325 cons) (wrap-marks326 car) (wrap-subst327 cdr) (set-indirect-label!362 (lambda (x992 v991) (set-indirect-label-label!359 x992 v991))) (get-indirect-label361 (lambda (x2004) (indirect-label-label358 x2004))) (gen-indirect-label360 (lambda () (make-indirect-label356 (gen-label363)))) (set-indirect-label-label!359 (lambda (x2003 update2002) (vector-set! x2003 '1 update2002))) (indirect-label-label358 (lambda (x993) (vector-ref x993 '1))) (indirect-label?357 (lambda (x2001) (if (vector? x2001) (if (= (vector-length x2001) '2) (eq? (vector-ref x2001 '0) 'indirect-label) '#f) '#f))) (make-indirect-label356 (lambda (label994) (vector 'indirect-label label994))) (gen-label363 (lambda () (string '#\i))) (label?364 (lambda (x995) ((lambda (t996) (if t996 t996 ((lambda (t997) (if t997 t997 (indirect-label?357 x995))) (symbol? x995)))) (string? x995)))) (gen-labels365 (lambda (ls2000) (if (null? ls2000) '() (cons (gen-label363) (gen-labels365 (cdr ls2000)))))) (make-ribcage366 (lambda (symnames1000 marks998 labels999) (vector 'ribcage symnames1000 marks998 labels999))) (ribcage?367 (lambda (x1999) (if (vector? x1999) (if (= (vector-length x1999) '4) (eq? (vector-ref x1999 '0) 'ribcage) '#f) '#f))) (ribcage-symnames368 (lambda (x1001) (vector-ref x1001 '1))) (ribcage-marks369 (lambda (x1998) (vector-ref x1998 '2))) (ribcage-labels370 (lambda (x1002) (vector-ref x1002 '3))) (set-ribcage-symnames!371 (lambda (x1997 update1996) (vector-set! x1997 '1 update1996))) (set-ribcage-marks!372 (lambda (x1004 update1003) (vector-set! x1004 '2 update1003))) (set-ribcage-labels!373 (lambda (x1995 update1994) (vector-set! x1995 '3 update1994))) (make-top-ribcage374 (lambda (key1006 mutable?1005) (vector 'top-ribcage key1006 mutable?1005))) (top-ribcage?375 (lambda (x1993) (if (vector? x1993) (if (= (vector-length x1993) '3) (eq? (vector-ref x1993 '0) 'top-ribcage) '#f) '#f))) (top-ribcage-key376 (lambda (x1007) (vector-ref x1007 '1))) (top-ribcage-mutable?377 (lambda (x1992) (vector-ref x1992 '2))) (set-top-ribcage-key!378 (lambda (x1009 update1008) (vector-set! x1009 '1 update1008))) (set-top-ribcage-mutable?!379 (lambda (x1991 update1990) (vector-set! x1991 '2 update1990))) (make-import-token380 (lambda (key1010) (vector 'import-token key1010))) (import-token?381 (lambda (x1989) (if (vector? x1989) (if (= (vector-length x1989) '2) (eq? (vector-ref x1989 '0) 'import-token) '#f) '#f))) (import-token-key382 (lambda (x1011) (vector-ref x1011 '1))) (set-import-token-key!383 (lambda (x1988 update1987) (vector-set! x1988 '1 update1987))) (make-env384 (lambda (top-ribcage1013 wrap1012) (vector 'env top-ribcage1013 wrap1012))) (env?385 (lambda (x1986) (if (vector? x1986) (if (= (vector-length x1986) '3) (eq? (vector-ref x1986 '0) 'env) '#f) '#f))) (env-top-ribcage386 (lambda (x1014) (vector-ref x1014 '1))) (env-wrap387 (lambda (x1985) (vector-ref x1985 '2))) (set-env-top-ribcage!388 (lambda (x1016 update1015) (vector-set! x1016 '1 update1015))) (set-env-wrap!389 (lambda (x1984 update1983) (vector-set! x1984 '2 update1983))) (anti-mark399 (lambda (w1017) (make-wrap325 (cons '#f (wrap-marks326 w1017)) (cons 'shift (wrap-subst327 w1017))))) (barrier-marker404 '#f) (extend-ribcage!409 (lambda (ribcage1020 id1018 label1019) (begin (set-ribcage-symnames!371 ribcage1020 (cons ((lambda (e1021) (if (annotation?132 e1021) (annotation-expression e1021) e1021)) (syntax-object-expression65 id1018)) (ribcage-symnames368 ribcage1020))) (set-ribcage-marks!372 ribcage1020 (cons (wrap-marks326 (syntax-object-wrap66 id1018)) (ribcage-marks369 ribcage1020))) (set-ribcage-labels!373 ribcage1020 (cons label1019 (ribcage-labels370 ribcage1020)))))) (extend-ribcage-barrier!410 (lambda (ribcage1982 killer-id1981) (extend-ribcage-barrier-help!411 ribcage1982 (syntax-object-wrap66 killer-id1981)))) (extend-ribcage-barrier-help!411 (lambda (ribcage1023 wrap1022) (begin (set-ribcage-symnames!371 ribcage1023 (cons barrier-marker404 (ribcage-symnames368 ribcage1023))) (set-ribcage-marks!372 ribcage1023 (cons (wrap-marks326 wrap1022) (ribcage-marks369 ribcage1023)))))) (extend-ribcage-subst!412 (lambda (ribcage1980 token1979) (set-ribcage-symnames!371 ribcage1980 (cons (make-import-token380 token1979) (ribcage-symnames368 ribcage1980))))) (lookup-import-binding-name413 (lambda (sym1026 token1024 marks1025) ((lambda (new1027) (if new1027 ((letrec ((f1028 (lambda (new1029) (if (pair? new1029) ((lambda (t1030) (if t1030 t1030 (f1028 (cdr new1029)))) (f1028 (car new1029))) (if (symbol? new1029) (if (same-marks?423 marks1025 (wrap-marks326 '((top)))) new1029 '#f) (if (same-marks?423 marks1025 (wrap-marks326 (syntax-object-wrap66 new1029))) new1029 '#f)))))) f1028) new1027) '#f)) (get-import-binding144 sym1026 token1024)))) (store-import-binding414 (lambda (id1965 token1964) (letrec ((id-marks1966 (lambda (id1978) (if (symbol? id1978) (wrap-marks326 '((top))) (wrap-marks326 (syntax-object-wrap66 id1978))))) (cons-id1967 (lambda (id1975 x1974) (if (not x1974) id1975 (cons id1975 x1974)))) (weed1968 (lambda (marks1977 x1976) (if (pair? x1976) (if (same-marks?423 (id-marks1966 (car x1976)) marks1977) (weed1968 marks1977 (cdr x1976)) (cons-id1967 (car x1976) (weed1968 marks1977 (cdr x1976)))) (if x1976 (if (not (same-marks?423 (id-marks1966 x1976) marks1977)) x1976 '#f) '#f))))) ((lambda (sym1970 marks1969) ((lambda (x1971) (put-import-binding145 sym1970 token1964 (if (eq? id1965 sym1970) x1971 (cons-id1967 (if (same-marks?423 marks1969 (wrap-marks326 '((top)))) (resolved-id-var-name418 id1965) id1965) x1971)))) (weed1968 marks1969 (get-import-binding144 sym1970 token1964)))) ((lambda (x1972) ((lambda (e1973) (if (annotation?132 e1973) (annotation-expression e1973) e1973)) (if (syntax-object?64 x1972) (syntax-object-expression65 x1972) x1972))) id1965) (id-marks1966 id1965))))) (make-binding-wrap415 (lambda (ids1033 labels1031 w1032) (if (null? ids1033) w1032 (make-wrap325 (wrap-marks326 w1032) (cons ((lambda (labelvec1034) ((lambda (n1035) ((lambda (symnamevec1037 marksvec1036) (begin ((letrec ((f1038 (lambda (ids1040 i1039) (if (not (null? ids1040)) (call-with-values (lambda () (id-sym-name&marks324 (car ids1040) w1032)) (lambda (symname1042 marks1041) (begin (vector-set! symnamevec1037 i1039 symname1042) (vector-set! marksvec1036 i1039 marks1041) (f1038 (cdr ids1040) (+ i1039 '1))))) (void))))) f1038) ids1033 '0) (make-ribcage366 symnamevec1037 marksvec1036 labelvec1034))) (make-vector n1035) (make-vector n1035))) (vector-length labelvec1034))) (list->vector labels1031)) (wrap-subst327 w1032)))))) (make-resolved-id416 (lambda (fromsym1963 marks1961 tosym1962) (make-syntax-object63 fromsym1963 (make-wrap325 marks1961 (list (make-ribcage366 (vector fromsym1963) (vector marks1961) (vector tosym1962))))))) (id->resolved-id417 (lambda (id1043) (call-with-values (lambda () (id-var-name&marks429 id1043 '(()))) (lambda (tosym1045 marks1044) (begin (if (not tosym1045) (syntax-error id1043 '"identifier not visible for export") (void)) (make-resolved-id416 ((lambda (x1046) ((lambda (e1047) (if (annotation?132 e1047) (annotation-expression e1047) e1047)) (if (syntax-object?64 x1046) (syntax-object-expression65 x1046) x1046))) id1043) marks1044 tosym1045)))))) (resolved-id-var-name418 (lambda (id1960) (vector-ref (ribcage-labels370 (car (wrap-subst327 (syntax-object-wrap66 id1960)))) '0))) (smart-append419 (lambda (m11049 m21048) (if (null? m21048) m11049 (append m11049 m21048)))) (join-wraps420 (lambda (w11957 w21956) ((lambda (m11959 s11958) (if (null? m11959) (if (null? s11958) w21956 (make-wrap325 (wrap-marks326 w21956) (join-subst422 s11958 (wrap-subst327 w21956)))) (make-wrap325 (join-marks421 m11959 (wrap-marks326 w21956)) (join-subst422 s11958 (wrap-subst327 w21956))))) (wrap-marks326 w11957) (wrap-subst327 w11957)))) (join-marks421 (lambda (m11051 m21050) (smart-append419 m11051 m21050))) (join-subst422 (lambda (s11955 s21954) (smart-append419 s11955 s21954))) (same-marks?423 (lambda (x1053 y1052) ((lambda (t1054) (if t1054 t1054 (if (not (null? x1053)) (if (not (null? y1052)) (if (eq? (car x1053) (car y1052)) (same-marks?423 (cdr x1053) (cdr y1052)) '#f) '#f) '#f))) (eq? x1053 y1052)))) (top-id-free-var-name427 (lambda (sym1949 marks1947 top-ribcage1948) ((lambda (token1950) ((lambda (t1951) (if t1951 ((lambda (id1952) (if (symbol? id1952) id1952 (resolved-id-var-name418 id1952))) t1951) (if (if (top-ribcage-mutable?377 top-ribcage1948) (same-marks?423 marks1947 (wrap-marks326 '((top)))) '#f) (if (leave-implicit?424 token1950) sym1949 ((lambda (g1953) (begin (store-import-binding414 (make-resolved-id416 sym1949 (wrap-marks326 '((top))) g1953) token1950) g1953)) (generate-id146 sym1949))) '#f))) (lookup-import-binding-name413 sym1949 token1950 marks1947))) (top-ribcage-key376 top-ribcage1948)))) (top-id-bound-var-name426 (lambda (sym1057 marks1055 top-ribcage1056) ((lambda (token1058) ((lambda (t1059) (if t1059 ((lambda (id1060) (call-with-values (lambda () (if (symbol? id1060) (values id1060 (make-resolved-id416 sym1057 marks1055 id1060)) (values (resolved-id-var-name418 id1060) id1060))) (lambda (valsym1062 id1061) (if (if (read-only-binding?143 valsym1062) (same-marks?423 marks1055 (wrap-marks326 '((top)))) '#f) (new-binding425 sym1057 marks1055 token1058) (values valsym1062 id1061))))) t1059) (if (if (leave-implicit?424 token1058) (if (same-marks?423 marks1055 (wrap-marks326 '((top)))) (not (read-only-binding?143 sym1057)) '#f) '#f) (values sym1057 sym1057) (new-binding425 sym1057 marks1055 token1058)))) (lookup-import-binding-name413 sym1057 token1058 marks1055))) (top-ribcage-key376 top-ribcage1056)))) (new-binding425 (lambda (sym1944 marks1942 token1943) ((lambda (g1945) ((lambda (id1946) (begin (store-import-binding414 id1946 token1943) (values g1945 id1946))) (make-resolved-id416 sym1944 marks1942 g1945))) (generate-id146 sym1944)))) (leave-implicit?424 (lambda (token1063) (eq? token1063 '*top*))) (id-var-name-loc&marks428 (lambda (id1907 w1906) (letrec ((search1908 (lambda (sym1937 subst1935 marks1936) (if (null? subst1935) (values '#f marks1936) ((lambda (fst1938) (if (eq? fst1938 'shift) (search1908 sym1937 (cdr subst1935) (cdr marks1936)) (if (ribcage?367 fst1938) ((lambda (symnames1939) (if (vector? symnames1939) (search-vector-rib1910 sym1937 subst1935 marks1936 symnames1939 fst1938) (search-list-rib1909 sym1937 subst1935 marks1936 symnames1939 fst1938))) (ribcage-symnames368 fst1938)) (if (top-ribcage?375 fst1938) ((lambda (t1940) (if t1940 ((lambda (var-name1941) (values var-name1941 marks1936)) t1940) (search1908 sym1937 (cdr subst1935) marks1936))) (top-id-free-var-name427 sym1937 marks1936 fst1938)) (error 'sc-expand '"internal error in id-var-name-loc&marks: improper subst ~s" subst1935))))) (car subst1935))))) (search-list-rib1909 (lambda (sym1921 subst1917 marks1920 symnames1918 ribcage1919) ((letrec ((f1922 (lambda (symnames1924 i1923) (if (null? symnames1924) (search1908 sym1921 (cdr subst1917) marks1920) (if (if (eq? (car symnames1924) sym1921) (same-marks?423 marks1920 (list-ref (ribcage-marks369 ribcage1919) i1923)) '#f) (values (list-ref (ribcage-labels370 ribcage1919) i1923) marks1920) (if (import-token?381 (car symnames1924)) ((lambda (t1925) (if t1925 ((lambda (id1926) (values (if (symbol? id1926) id1926 (resolved-id-var-name418 id1926)) marks1920)) t1925) (f1922 (cdr symnames1924) i1923))) (lookup-import-binding-name413 sym1921 (import-token-key382 (car symnames1924)) marks1920)) (if (if (eq? (car symnames1924) barrier-marker404) (same-marks?423 marks1920 (list-ref (ribcage-marks369 ribcage1919) i1923)) '#f) (values '#f marks1920) (f1922 (cdr symnames1924) (+ i1923 '1))))))))) f1922) symnames1918 '0))) (search-vector-rib1910 (lambda (sym1931 subst1927 marks1930 symnames1928 ribcage1929) ((lambda (n1932) ((letrec ((f1933 (lambda (i1934) (if (= i1934 n1932) (search1908 sym1931 (cdr subst1927) marks1930) (if (if (eq? (vector-ref symnames1928 i1934) sym1931) (same-marks?423 marks1930 (vector-ref (ribcage-marks369 ribcage1929) i1934)) '#f) (values (vector-ref (ribcage-labels370 ribcage1929) i1934) marks1930) (f1933 (+ i1934 '1))))))) f1933) '0)) (vector-length symnames1928))))) (if (symbol? id1907) (search1908 id1907 (wrap-subst327 w1906) (wrap-marks326 w1906)) (if (syntax-object?64 id1907) ((lambda (sym1912 w11911) (call-with-values (lambda () (search1908 sym1912 (wrap-subst327 w1906) (join-marks421 (wrap-marks326 w1906) (wrap-marks326 w11911)))) (lambda (name1914 marks1913) (if name1914 (values name1914 marks1913) (search1908 sym1912 (wrap-subst327 w11911) marks1913))))) ((lambda (e1915) (if (annotation?132 e1915) (annotation-expression e1915) e1915)) (syntax-object-expression65 id1907)) (syntax-object-wrap66 id1907)) (if (annotation?132 id1907) (search1908 ((lambda (e1916) (if (annotation?132 e1916) (annotation-expression e1916) e1916)) id1907) (wrap-subst327 w1906) (wrap-marks326 w1906)) (error-hook135 'id-var-name '"invalid id" id1907))))))) (id-var-name&marks429 (lambda (id1065 w1064) (call-with-values (lambda () (id-var-name-loc&marks428 id1065 w1064)) (lambda (label1067 marks1066) (values (if (indirect-label?357 label1067) (get-indirect-label361 label1067) label1067) marks1066))))) (id-var-name-loc430 (lambda (id1903 w1902) (call-with-values (lambda () (id-var-name-loc&marks428 id1903 w1902)) (lambda (label1905 marks1904) label1905)))) (id-var-name431 (lambda (id1069 w1068) (call-with-values (lambda () (id-var-name-loc&marks428 id1069 w1068)) (lambda (label1071 marks1070) (if (indirect-label?357 label1071) (get-indirect-label361 label1071) label1071))))) (free-id=?432 (lambda (i1897 j1896) (if (eq? ((lambda (x1900) ((lambda (e1901) (if (annotation?132 e1901) (annotation-expression e1901) e1901)) (if (syntax-object?64 x1900) (syntax-object-expression65 x1900) x1900))) i1897) ((lambda (x1898) ((lambda (e1899) (if (annotation?132 e1899) (annotation-expression e1899) e1899)) (if (syntax-object?64 x1898) (syntax-object-expression65 x1898) x1898))) j1896)) (eq? (id-var-name431 i1897 '(())) (id-var-name431 j1896 '(()))) '#f))) (literal-id=?433 (lambda (id1073 literal1072) (if (eq? ((lambda (x1076) ((lambda (e1077) (if (annotation?132 e1077) (annotation-expression e1077) e1077)) (if (syntax-object?64 x1076) (syntax-object-expression65 x1076) x1076))) id1073) ((lambda (x1074) ((lambda (e1075) (if (annotation?132 e1075) (annotation-expression e1075) e1075)) (if (syntax-object?64 x1074) (syntax-object-expression65 x1074) x1074))) literal1072)) ((lambda (n-id1079 n-literal1078) ((lambda (t1080) (if t1080 t1080 (if ((lambda (t1081) (if t1081 t1081 (symbol? n-id1079))) (not n-id1079)) ((lambda (t1082) (if t1082 t1082 (symbol? n-literal1078))) (not n-literal1078)) '#f))) (eq? n-id1079 n-literal1078))) (id-var-name431 id1073 '(())) (id-var-name431 literal1072 '(()))) '#f))) (bound-id=?434 (lambda (i1891 j1890) (if (if (syntax-object?64 i1891) (syntax-object?64 j1890) '#f) (if (eq? ((lambda (e1893) (if (annotation?132 e1893) (annotation-expression e1893) e1893)) (syntax-object-expression65 i1891)) ((lambda (e1892) (if (annotation?132 e1892) (annotation-expression e1892) e1892)) (syntax-object-expression65 j1890))) (same-marks?423 (wrap-marks326 (syntax-object-wrap66 i1891)) (wrap-marks326 (syntax-object-wrap66 j1890))) '#f) (eq? ((lambda (e1895) (if (annotation?132 e1895) (annotation-expression e1895) e1895)) i1891) ((lambda (e1894) (if (annotation?132 e1894) (annotation-expression e1894) e1894)) j1890))))) (valid-bound-ids?435 (lambda (ids1083) (if ((letrec ((all-ids?1084 (lambda (ids1085) ((lambda (t1086) (if t1086 t1086 (if (id?318 (car ids1085)) (all-ids?1084 (cdr ids1085)) '#f))) (null? ids1085))))) all-ids?1084) ids1083) (distinct-bound-ids?436 ids1083) '#f))) (distinct-bound-ids?436 (lambda (ids1886) ((letrec ((distinct?1887 (lambda (ids1888) ((lambda (t1889) (if t1889 t1889 (if (not (bound-id-member?438 (car ids1888) (cdr ids1888))) (distinct?1887 (cdr ids1888)) '#f))) (null? ids1888))))) distinct?1887) ids1886))) (invalid-ids-error437 (lambda (ids1089 exp1087 class1088) ((letrec ((find1090 (lambda (ids1092 gooduns1091) (if (null? ids1092) (syntax-error exp1087) (if (id?318 (car ids1092)) (if (bound-id-member?438 (car ids1092) gooduns1091) (syntax-error (car ids1092) '"duplicate " class1088) (find1090 (cdr ids1092) (cons (car ids1092) gooduns1091))) (syntax-error (car ids1092) '"invalid " class1088)))))) find1090) ids1089 '()))) (bound-id-member?438 (lambda (x1884 list1883) (if (not (null? list1883)) ((lambda (t1885) (if t1885 t1885 (bound-id-member?438 x1884 (cdr list1883)))) (bound-id=?434 x1884 (car list1883))) '#f))) (wrap439 (lambda (x1094 w1093) (if (if (null? (wrap-marks326 w1093)) (null? (wrap-subst327 w1093)) '#f) x1094 (if (syntax-object?64 x1094) (make-syntax-object63 (syntax-object-expression65 x1094) (join-wraps420 w1093 (syntax-object-wrap66 x1094))) (if (null? x1094) x1094 (make-syntax-object63 x1094 w1093)))))) (source-wrap440 (lambda (x1882 w1880 ae1881) (wrap439 (if (annotation?132 ae1881) (begin (if (not (eq? (annotation-expression ae1881) x1882)) (error 'sc-expand '"internal error in source-wrap: ae/x mismatch") (void)) ae1881) x1882) w1880))) (chi-sequence441 (lambda (body1098 r1095 w1097 ae1096) (build-sequence247 ae1096 ((letrec ((dobody1099 (lambda (body1102 r1100 w1101) (if (null? body1102) '() ((lambda (first1103) (cons first1103 (dobody1099 (cdr body1102) r1100 w1101))) (chi481 (car body1102) r1100 w1101)))))) dobody1099) body1098 r1095 w1097)))) (chi-top-sequence442 (lambda (body1872 r1866 w1871 ae1867 ctem1870 rtem1868 ribcage1869) (build-sequence247 ae1867 ((letrec ((dobody1873 (lambda (body1878 r1874 w1877 ctem1875 rtem1876) (if (null? body1878) '() ((lambda (first1879) (cons first1879 (dobody1873 (cdr body1878) r1874 w1877 ctem1875 rtem1876))) (chi-top446 (car body1878) r1874 w1877 ctem1875 rtem1876 ribcage1869)))))) dobody1873) body1872 r1866 w1871 ctem1870 rtem1868)))) (chi-when-list443 (lambda (when-list1105 w1104) (map (lambda (x1106) (if (literal-id=?433 x1106 '#(syntax-object compile ((top) #(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 top-id-free-var-name top-id-bound-var-name anon same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-token-key! import-token-key import-token? make-import-token set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage 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 anon 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 defer-or-eval-transformer make-transformer-binding lookup sanitize-binding lookup* displaced-lexical-error displaced-lexical? 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 no-source unannotate self-evaluating? build-lexical-var build-body build-letrec build-sequence build-data build-primref built-lambda? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object 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) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (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" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) 'compile (if (literal-id=?433 x1106 '#(syntax-object load ((top) #(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 top-id-free-var-name top-id-bound-var-name anon same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-token-key! import-token-key import-token? make-import-token set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage 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 anon 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 defer-or-eval-transformer make-transformer-binding lookup sanitize-binding lookup* displaced-lexical-error displaced-lexical? 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 no-source unannotate self-evaluating? build-lexical-var build-body build-letrec build-sequence build-data build-primref built-lambda? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object 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) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (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" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) 'load (if (literal-id=?433 x1106 '#(syntax-object visit ((top) #(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 top-id-free-var-name top-id-bound-var-name anon same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-token-key! import-token-key import-token? make-import-token set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage 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 anon 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 defer-or-eval-transformer make-transformer-binding lookup sanitize-binding lookup* displaced-lexical-error displaced-lexical? 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 no-source unannotate self-evaluating? build-lexical-var build-body build-letrec build-sequence build-data build-primref built-lambda? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object 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) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (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" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) 'visit (if (literal-id=?433 x1106 '#(syntax-object revisit ((top) #(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 top-id-free-var-name top-id-bound-var-name anon same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-token-key! import-token-key import-token? make-import-token set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage 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 anon 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 defer-or-eval-transformer make-transformer-binding lookup sanitize-binding lookup* displaced-lexical-error displaced-lexical? 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 no-source unannotate self-evaluating? build-lexical-var build-body build-letrec build-sequence build-data build-primref built-lambda? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object 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) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (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" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) 'revisit (if (literal-id=?433 x1106 '#(syntax-object eval ((top) #(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 top-id-free-var-name top-id-bound-var-name anon same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-token-key! import-token-key import-token? make-import-token set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage 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 anon 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 defer-or-eval-transformer make-transformer-binding lookup sanitize-binding lookup* displaced-lexical-error displaced-lexical? 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 no-source unannotate self-evaluating? build-lexical-var build-body build-letrec build-sequence build-data build-primref built-lambda? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object 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) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (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" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) 'eval (syntax-error (wrap439 x1106 w1104) '"invalid eval-when situation"))))))) when-list1105))) (syntax-type444 (lambda (e1851 r1847 w1850 ae1848 rib1849) (if (symbol? e1851) ((lambda (n1852) ((lambda (b1853) ((lambda (type1854) ((lambda () ((lambda (t1855) (if (memv t1855 '(lexical)) (values type1854 (binding-value292 b1853) e1851 w1850 ae1848) (if (memv t1855 '(global)) (values type1854 (binding-value292 b1853) e1851 w1850 ae1848) (if (memv t1855 '(macro macro!)) (syntax-type444 (chi-macro485 (binding-value292 b1853) e1851 r1847 w1850 ae1848 rib1849) r1847 '(()) '#f rib1849) (values type1854 (binding-value292 b1853) e1851 w1850 ae1848))))) type1854)))) (binding-type291 b1853))) (lookup313 n1852 r1847))) (id-var-name431 e1851 w1850)) (if (pair? e1851) ((lambda (first1856) (if (id?318 first1856) ((lambda (n1857) ((lambda (b1858) ((lambda (type1859) ((lambda () ((lambda (t1860) (if (memv t1860 '(lexical)) (values 'lexical-call (binding-value292 b1858) e1851 w1850 ae1848) (if (memv t1860 '(macro macro!)) (syntax-type444 (chi-macro485 (binding-value292 b1858) e1851 r1847 w1850 ae1848 rib1849) r1847 '(()) '#f rib1849) (if (memv t1860 '(core)) (values type1859 (binding-value292 b1858) e1851 w1850 ae1848) (if (memv t1860 '(local-syntax)) (values 'local-syntax-form (binding-value292 b1858) e1851 w1850 ae1848) (if (memv t1860 '(begin)) (values 'begin-form '#f e1851 w1850 ae1848) (if (memv t1860 '(eval-when)) (values 'eval-when-form '#f e1851 w1850 ae1848) (if (memv t1860 '(define)) (values 'define-form '#f e1851 w1850 ae1848) (if (memv t1860 '(define-syntax)) (values 'define-syntax-form '#f e1851 w1850 ae1848) (if (memv t1860 '($module-key)) (values '$module-form '#f e1851 w1850 ae1848) (if (memv t1860 '($import)) (values '$import-form (binding-value292 b1858) e1851 w1850 ae1848) (if (memv t1860 '(set!)) (chi-set!484 e1851 r1847 w1850 ae1848 rib1849) (values 'call '#f e1851 w1850 ae1848))))))))))))) type1859)))) (binding-type291 b1858))) (lookup313 n1857 r1847))) (id-var-name431 first1856 w1850)) (values 'call '#f e1851 w1850 ae1848))) (car e1851)) (if (syntax-object?64 e1851) (syntax-type444 (syntax-object-expression65 e1851) r1847 (join-wraps420 w1850 (syntax-object-wrap66 e1851)) '#f rib1849) (if (annotation?132 e1851) (syntax-type444 (annotation-expression e1851) r1847 w1850 e1851 rib1849) (if ((lambda (x1861) ((lambda (t1862) (if t1862 t1862 ((lambda (t1863) (if t1863 t1863 ((lambda (t1864) (if t1864 t1864 ((lambda (t1865) (if t1865 t1865 (null? x1861))) (char? x1861)))) (string? x1861)))) (number? x1861)))) (boolean? x1861))) e1851) (values 'constant '#f e1851 w1850 ae1848) (values 'other '#f e1851 w1850 ae1848)))))))) (chi-top-expr445 (lambda (e1110 r1107 w1109 top-ribcage1108) (call-with-values (lambda () (syntax-type444 e1110 r1107 w1109 '#f top-ribcage1108)) (lambda (type1115 value1111 e1114 w1112 ae1113) (chi-expr482 type1115 value1111 e1114 r1107 w1112 ae1113))))) (chi-top446 (lambda (e1788 r1783 w1787 ctem1784 rtem1786 top-ribcage1785) (call-with-values (lambda () (syntax-type444 e1788 r1783 w1787 '#f top-ribcage1785)) (lambda (type1793 value1789 e1792 w1790 ae1791) ((lambda (t1794) (if (memv t1794 '(begin-form)) ((lambda (tmp1795) ((lambda (tmp1796) (if tmp1796 (apply (lambda (_1797) (chi-void495)) tmp1796) ((lambda (tmp1798) (if tmp1798 (apply (lambda (_1801 e11799 e21800) (chi-top-sequence442 (cons e11799 e21800) r1783 w1790 ae1791 ctem1784 rtem1786 top-ribcage1785)) tmp1798) (syntax-error tmp1795))) ($syntax-dispatch tmp1795 '(any any . each-any))))) ($syntax-dispatch tmp1795 '(any)))) e1792) (if (memv t1794 '(local-syntax-form)) (chi-local-syntax494 value1789 e1792 r1783 w1790 ae1791 (lambda (body1806 r1803 w1805 ae1804) (chi-top-sequence442 body1806 r1803 w1805 ae1804 ctem1784 rtem1786 top-ribcage1785))) (if (memv t1794 '(eval-when-form)) ((lambda (tmp1807) ((lambda (tmp1808) (if tmp1808 (apply (lambda (_1812 x1809 e11811 e21810) ((lambda (when-list1814 body1813) ((lambda (ctem1816 rtem1815) (if (if (null? ctem1816) (null? rtem1815) '#f) (chi-void495) (chi-top-sequence442 body1813 r1783 w1790 ae1791 ctem1816 rtem1815 top-ribcage1785))) (update-mode-set477 when-list1814 ctem1784) (update-mode-set477 when-list1814 rtem1786))) (chi-when-list443 x1809 w1790) (cons e11811 e21810))) tmp1808) (syntax-error tmp1807))) ($syntax-dispatch tmp1807 '(any each-any any . each-any)))) e1792) (if (memv t1794 '(define-syntax-form)) (parse-define-syntax492 e1792 w1790 ae1791 (lambda (id1821 rhs1819 w1820) ((lambda (id1822) (begin (if (displaced-lexical?309 id1822 r1783) (displaced-lexical-error310 id1822) (void)) (if (not (top-ribcage-mutable?377 top-ribcage1785)) (syntax-error (source-wrap440 e1792 w1820 ae1791) '"invalid definition in read-only environment") (void)) ((lambda (sym1823) (call-with-values (lambda () (top-id-bound-var-name426 sym1823 (wrap-marks326 (syntax-object-wrap66 id1822)) top-ribcage1785)) (lambda (valsym1825 bound-id1824) (begin (if (not (eq? (id-var-name431 id1822 '(())) valsym1825)) (syntax-error (source-wrap440 e1792 w1820 ae1791) '"definition not permitted") (void)) (if (read-only-binding?143 valsym1825) (syntax-error (source-wrap440 e1792 w1820 ae1791) '"invalid definition of read-only identifier") (void)) (ct-eval/residualize480 ctem1784 (lambda () (list '$sc-put-cte (list 'quote bound-id1824) (chi481 rhs1819 (transformer-env308 r1783) w1820) (list 'quote (top-ribcage-key376 top-ribcage1785))))))))) ((lambda (x1826) ((lambda (e1827) (if (annotation?132 e1827) (annotation-expression e1827) e1827)) (if (syntax-object?64 x1826) (syntax-object-expression65 x1826) x1826))) id1822)))) (wrap439 id1821 w1820)))) (if (memv t1794 '(define-form)) (parse-define491 e1792 w1790 ae1791 (lambda (id1830 rhs1828 w1829) ((lambda (id1831) (begin (if (displaced-lexical?309 id1831 r1783) (displaced-lexical-error310 id1831) (void)) (if (not (top-ribcage-mutable?377 top-ribcage1785)) (syntax-error (source-wrap440 e1792 w1829 ae1791) '"invalid definition in read-only environment") (void)) ((lambda (sym1832) (call-with-values (lambda () (top-id-bound-var-name426 sym1832 (wrap-marks326 (syntax-object-wrap66 id1831)) top-ribcage1785)) (lambda (valsym1834 bound-id1833) (begin (if (not (eq? (id-var-name431 id1831 '(())) valsym1834)) (syntax-error (source-wrap440 e1792 w1829 ae1791) '"definition not permitted") (void)) (if (read-only-binding?143 valsym1834) (syntax-error (source-wrap440 e1792 w1829 ae1791) '"invalid definition of read-only identifier") (void)) (build-sequence247 '#f (list (ct-eval/residualize480 ctem1784 (lambda () (list '$sc-put-cte (list 'quote bound-id1833) (list 'quote (cons 'global valsym1834)) (list 'quote (top-ribcage-key376 top-ribcage1785))))) (rt-eval/residualize479 rtem1786 (lambda () (list 'define valsym1834 (chi481 rhs1828 r1783 w1829)))))))))) ((lambda (x1835) ((lambda (e1836) (if (annotation?132 e1836) (annotation-expression e1836) e1836)) (if (syntax-object?64 x1835) (syntax-object-expression65 x1835) x1835))) id1831)))) (wrap439 id1830 w1829)))) (if (memv t1794 '($module-form)) ((lambda (r1838 ribcage1837) (parse-module489 e1792 w1790 ae1791 (make-wrap325 (wrap-marks326 w1790) (cons ribcage1837 (wrap-subst327 w1790))) (lambda (orig1842 id1839 exports1841 forms1840) (begin (if (displaced-lexical?309 id1839 r1838) (displaced-lexical-error310 (wrap439 id1839 w1790)) (void)) (if (not (top-ribcage-mutable?377 top-ribcage1785)) (syntax-error orig1842 '"invalid definition in read-only environment") (void)) (chi-top-module468 orig1842 r1838 top-ribcage1785 ribcage1837 ctem1784 rtem1786 id1839 exports1841 forms1840))))) (cons '("top-level module placeholder" placeholder) r1783) (make-ribcage366 '() '() '())) (if (memv t1794 '($import-form)) (parse-import490 e1792 w1790 ae1791 (lambda (orig1844 mid1843) (begin (if (not (top-ribcage-mutable?377 top-ribcage1785)) (syntax-error orig1844 '"invalid definition in read-only environment") (void)) (ct-eval/residualize480 ctem1784 (lambda () ((lambda (binding1845) ((lambda (t1846) (if (memv t1846 '($module)) (do-top-import476 value1789 top-ribcage1785 mid1843 (interface-token451 (binding-value292 binding1845))) (if (memv t1846 '(displaced-lexical)) (displaced-lexical-error310 mid1843) (syntax-error mid1843 '"import from unknown module")))) (binding-type291 binding1845))) (lookup313 (id-var-name431 mid1843 '(())) '()))))))) (rt-eval/residualize479 rtem1786 (lambda () (chi-expr482 type1793 value1789 e1792 r1783 w1790 ae1791))))))))))) type1793))))) (flatten-exports447 (lambda (exports1116) ((letrec ((loop1117 (lambda (exports1119 ls1118) (if (null? exports1119) ls1118 (loop1117 (cdr exports1119) (if (pair? (car exports1119)) (loop1117 (car exports1119) ls1118) (cons (car exports1119) ls1118))))))) loop1117) exports1116 '()))) (make-interface448 (lambda (exports1782 token1781) (vector 'interface exports1782 token1781))) (interface?449 (lambda (x1120) (if (vector? x1120) (if (= (vector-length x1120) '3) (eq? (vector-ref x1120 '0) 'interface) '#f) '#f))) (interface-exports450 (lambda (x1780) (vector-ref x1780 '1))) (interface-token451 (lambda (x1121) (vector-ref x1121 '2))) (set-interface-exports!452 (lambda (x1779 update1778) (vector-set! x1779 '1 update1778))) (set-interface-token!453 (lambda (x1123 update1122) (vector-set! x1123 '2 update1122))) (make-trimmed-interface454 (lambda (exports1776) (make-interface448 (list->vector (map (lambda (x1777) (if (pair? x1777) (car x1777) x1777)) exports1776)) '#f))) (make-resolved-interface455 (lambda (exports1125 import-token1124) (make-interface448 (list->vector (map (lambda (x1126) (id->resolved-id417 (if (pair? x1126) (car x1126) x1126))) exports1125)) import-token1124))) (make-module-binding456 (lambda (type1775 id1771 label1774 imps1772 val1773) (vector 'module-binding type1775 id1771 label1774 imps1772 val1773))) (module-binding?457 (lambda (x1127) (if (vector? x1127) (if (= (vector-length x1127) '6) (eq? (vector-ref x1127 '0) 'module-binding) '#f) '#f))) (module-binding-type458 (lambda (x1770) (vector-ref x