Searched +refs:root +refs:expand +refs:context +refs:self +refs:mpi (Results 1 – 25 of 161) sorted by relevance
1234567
2 (require "../expand/root-expand-context.rkt"16 (provide make-create-root-expand-context-from-module19 ;; Reconstructs a `root-expand-context` for a module based on its26 (define (make-create-root-expand-context-from-module requires evaled-ld-h)28 (define root-ctx (make-root-expand-context #:self-mpi (namespace-mpi ns)))29 (define s (add-scopes empty-syntax (root-expand-context-module-scopes root-ctx)))44 (define defined-syms (root-expand-context-defined-syms root-ctx))68 (define outside-mpi (root-expand-context-self-mpi root-context))70 (struct*-copy root-expand-context root-context71 [self-mpi inside-mpi][all …]
7 "../expand/root-expand-context.rkt"11 "../expand/env.rkt"12 "../expand/require.rkt"13 "../expand/require+provide.rkt")23 (lambda (id mpi orig-phase phase-shift ns sym trans? trans-val)25 (define b (make-module-binding mpi phase sym26 #:frame-id (root-expand-context-frame-id27 (namespace-get-root-expand-ctx ns))))44 #:self (namespace-self-mpi/no-top-level ns)
19 "../expand/root-expand-context.rkt"100 (define original-self (decl 'self-mpi))103 (define create-root-expand-context-from-module ; might be used to create root-expand-context104 (make-create-root-expand-context-from-module requires phases-h))264 create-root-expand-context-from-module)294 (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context295 (make-root-expand-context #:self-mpi self))))]298 (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context299 (root-expand-context-decode-for-module305 (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context[all …]
10 (provide (struct*-out root-expand-context)11 make-root-expand-context16 root-expand-context-encode-for-module19 ;; A `root-expand-context` is a subset of `expand-context` that is23 (struct* root-expand-context38 (define (make-root-expand-context #:self-mpi self-mpi46 (root-expand-context self-mpi76 (define (root-expand-context-encode-for-module ctx orig-self new-self)81 … (syntax-module-path-index-shift (root-expand-context-all-scopes-stx ctx) orig-self new-self)89 (define (root-expand-context-decode-for-module vec-s self)[all …]
12 "root-expand-context.rkt"18 copy-root-expand-context42 (struct* expand-context root-expand-context84 (expand-context (root-expand-context-self-mpi root-ctx)130 [self-mpi #:parent root-expand-context (root-expand-context-self-mpi root-ctx)]131 … [module-scopes #:parent root-expand-context (root-expand-context-module-scopes root-ctx)]132 … [post-expansion #:parent root-expand-context (root-expand-context-post-expansion root-ctx)]136 … [defined-syms #:parent root-expand-context (root-expand-context-defined-syms root-ctx)]137 [frame-id #:parent root-expand-context (root-expand-context-frame-id root-ctx)]138 [counter #:parent root-expand-context (root-expand-context-counter root-ctx)][all …]
8 "context.rkt"9 "root-expand-context.rkt"37 self phase all-scopes-stx63 (define b (make-module-binding self phase defined-sym #:frame-id frame-id89 (select-defined-syms-and-bind! tl-ids (root-expand-context-defined-syms ctx)90 (root-expand-context-self-mpi ctx)91 (expand-context-phase ctx)92 (root-expand-context-all-scopes-stx ctx)93 #:frame-id (root-expand-context-frame-id ctx)94 … #:top-level-bind-scope (root-expand-context-top-level-bind-scope ctx)))
134 (define root-ctx (make-root-expand-context135 #:self-mpi self144 (define new-module-scopes (root-expand-context-module-scopes root-ctx))147 (define frame-id (root-expand-context-frame-id root-ctx))152 #:mpi self153 #:root-expand-context root-ctx158 (define ctx (struct*-copy expand-context (copy-root-expand-context init-ctx root-ctx)537 (root-expand-context-encode-for-module root-ctx self self)567 [result-s (attach-root-expand-context-properties result-s root-ctx self generic-self)]1181 (root-expand-context-encode-for-module root-ctx self self)[all …]
203 (root-expand-context-top-level-bind-scope ctx)453 [(and (root-expand-context-use-site-scopes ctx)459 (matching-frame? (root-expand-context-frame-id ctx)465 (define b (root-expand-context-use-site-scopes ctx))486 (apply-post-expansion (root-expand-context-post-expansion ctx)572 (root-expand-context-counter ctx)656 [post-expansion #:parent root-expand-context #f]))695 (define compiled (if (can-direct-eval? p ns (root-expand-context-self-mpi ctx))712 (let ([self-mpi (root-expand-context-self-mpi ctx)])714 (wrap (lambda () (direct-eval p ns self-mpi)))[all …]
26 (unless (eq? (expand-context-context ctx) 'top-level)31 (if (expand-context-to-parsed? ctx)41 (unless (eq? (expand-context-context ctx) 'top-level)47 (if (expand-context-to-parsed? ctx)57 (unless (eq? (expand-context-context ctx) 'top-level)65 [lift-key #:parent root-expand-context (generate-lift-key)]91 (if (expand-context-to-parsed? ctx)99 (unless (eq? (expand-context-context ctx) 'top-level)103 (define ns (expand-context-namespace ctx))109 #:self (namespace-self-mpi/no-top-level ns)[all …]
7 "../expand/root-expand-context.rkt"21 namespace-self-mpi22 namespace-self-mpi/no-top-level52 … root-expand-ctx ; delay of box of context for top-level expansion; set by module instantiation91 #:root-expand-ctx [root-expand-ctx (make-root-expand-context139 (define (namespace-set-root-expand-ctx! ns root-ctx)140 (set-box! (namespace-root-expand-ctx ns) root-ctx))142 (define (namespace-self-mpi ns)143 (root-expand-context-self-mpi (namespace-get-root-expand-ctx ns)))145 (define (namespace-self-mpi/no-top-level ns)[all …]
3 "../expand/root-expand-context.rkt"53 (define-values (provides self)54 (module-> (lambda (m) (values (module-provides m) (module-self m))) who mod57 (provides->api-provides provides self verbosity))88 (unless (namespace-get-root-expand-ctx m-ns)89 ;; Instantiating the module didn't install a context, so make one now90 (namespace-set-root-expand-ctx! m-ns (make-root-expand-context91 #:self-mpi (namespace-mpi m-ns))))93 (namespace-module-make-available! ns (namespace-mpi m-ns) phase)132 (define mpi (if (module-path-index? mod)[all …]
9 "../expand/root-expand-context.rkt"30 module-self62 self ; module path index used for a self reference93 self ; self modidx101 #:self self120 self162 #:root-expand-context root-expand-ctx169 #:root-expand-ctx root-expand-ctx212 (module-self m)289 … [root-expand-ctx (box (unbox (namespace-root-expand-ctx existing-m-ns)))][all …]
7 "../expand/root-expand-context.rkt"8 "../expand/parsed.rkt"14 "context.rkt"47 (define phase (compile-context-phase cctx))60 no-root-context-pos)68 [,mpi-vector-id106 (compile-context-self cctx)127 (,mpi-vector-id131 (define-values (,mpi-vector-id)146 #f ; self[all …]