1#lang racket/base
2(require "../namespace/namespace.rkt"
3         "../namespace/module.rkt"
4         "context.rkt")
5
6(provide prepare-next-phase-namespace)
7
8(define (prepare-next-phase-namespace ctx)
9  (define phase (add1 (expand-context-phase ctx)))
10  (define ns (namespace->namespace-at-phase (expand-context-namespace ctx)
11                                            phase))
12  (namespace-visit-available-modules! ns phase))
13