gistfile1.txt

#lang racket

;; crosser.rkt
#|
(module crosser '#%kernel
  (#%declare #:cross-phase-persistent)
  (define-values (prop:p p? ~p) (make-struct-type-property 'p))
  (#%provide (protect (all-defined))))
|#

(define a
  (parameterize ([current-namespace (make-base-namespace)])
    (namespace-require "crosser.rkt")
    (namespace-variable-value 'prop:p)))

(define b
  (parameterize ([current-namespace (make-base-namespace)])
    (namespace-require "crosser.rkt")
    (namespace-variable-value 'prop:p)))

(writeln (eq? a b))