experiment

js-assembler/module-knowledge.rkt

@@ -0,0 +1,17 @@
+#lang racket/base
+
+;; Provides a mapping of the core bindings in kernel, so that we know statically
+;; if something is implemented as a primitive or a closure.
+(require planet/util)
+
+
+(define ns (make-base-empty-namespace))
+(define bound-procedure-names
+  (let ([path (resolve-planet-path `(planet ,(this-package-version-symbol lang/kernel)))])
+    (parameterize ([current-namespace ns])
+      (namespace-require path)
+      (for/list ([name (namespace-mapped-symbols)]
+                 #:when (namespace-variable-value name #t (lambda () #f)))
+        name))))
+
+