tmp.rkt

#lang racket/base
(require (for-syntax racket/base))
(module base racket/base
  (provide f)
  (define (f x) (sync x)))

(module r racket/base
  (provide f)
  (dynamic-require 'racket #f)
  (define (f x) (sync x)))

(module tr racket/base
  (provide f)
  (dynamic-require 'typed/racket #f)
  (define (f x) (sync x)))

(module p racket/base
  (provide f)
  (dynamic-require 'plot #f)
  (define (f x) (sync x)))

(require racket/place syntax/location)


(module+ main
  (collect-garbage)  (collect-garbage)
  'startup
  (displayln (current-memory-use))
  'base
  (define p1 (dynamic-place (quote-module-path ".." base) 'f))
  (collect-garbage)  (collect-garbage)
  (displayln (current-memory-use))
  'racket
  (define p2 (dynamic-place (quote-module-path ".." r) 'f))
  (collect-garbage)  (collect-garbage)
  (displayln (current-memory-use))
  'typed/racket
  (define p3 (dynamic-place (quote-module-path ".." tr) 'f))
  (collect-garbage)  (collect-garbage)
  (displayln (current-memory-use))
  (define p4 (dynamic-place (quote-module-path ".." p) 'f))
  (collect-garbage)  (collect-garbage)
  'plot
  (displayln (current-memory-use))
  (list p1 p2 p3 p4)
  )