从命名空间映射的符号重新内部化符号

Question

我不确定问题标题是否合适，但这是我想知道的：

从 repl 中，我想获取当前模块中定义的绑定列表。经过一些搜索，这似乎是一个很好的解决方案：

(define (racket-symbols-set)
  (list->set (namespace-mapped-symbols (module->namespace 'racket))))
(define (namespace-symbols-set)
  (list->set (namespace-mapped-symbols)))
(define (module-bindings)
  (set->list (set-subtract
              (namespace-symbols-set)
              (racket-symbols-set))))

因此，调用（模块绑定）会返回符号列表。但是，如果我尝试从该结果中调用一个符号，例如 do （（first（module-bindings））），我会收到"应用程序：不是过程"错误，尽管第一个符号是一个过程。

如何调用该交易品种的相应过程？

Answer 1

您可以使用 namespace-variable-value 查找命名空间变量的值。而且由于您的namespace-symbols-set仅使用当前命名空间，这也是namespace-variable-value的默认命名空间，因此使用它非常简单。

例如，若要调用与 module-bindings 过程返回的列表中第一项关联的过程，请执行以下操作：

((namespace-variable-value (car (module-bindings))))

或者，将首选命名空间指定为namespace-variable-value调用的第四个参数。

Answer 2

您需要计算该符号才能返回相应的过程。

> (define (foo) 'bar)
> (eval 'foo)
#<procedure:foo>
> ((eval 'foo))
'bar

因此，在您的情况下

((eval (car (module-bindings))))

将调用 module-bindings 返回的列表的第一个过程。