More play with the dynamic evaluation tools

gistfile1.txt

#lang racket

(define ns (make-base-namespace))

(define (play module-path)
  (parameterize ([current-namespace ns])
    (dynamic-require module-path #f)
    (define-values (module-variable-exports module-syntax-exports)
      (module->exports module-path))
    
    (define phase-0-variable-exports
      (for/first ([phase+export module-variable-exports]
                 #:when (= (car phase+export) 0))
        (cdr phase+export)))
    
    (for ([export phase-0-variable-exports])
      (define exported-name (car export))
      (printf "~s ~s\n"
              exported-name 
              (dynamic-require module-path exported-name)))
    
    (void)))


(play 'racket/base)