private/get-wescheme-primitive-names.rkt
#lang racket/base
(require racket/runtime-path)

(define-runtime-path wescheme-module-path "../lang/wescheme.rkt")
  
(define wescheme-primitive-names
  (let ([ns (make-base-empty-namespace)])
    (parameterize ([current-namespace ns])
      (namespace-require `(file ,(path->string wescheme-module-path)))
      (namespace-mapped-symbols))))

(provide wescheme-primitive-names)