如何在R5RS Scheme中确保文件仅被加载一次？

需求是：如果在bar.scm中（直接或间接）多次加载foo.scm，要保证foo.scm的代码仅在第一次加载时执行，类似C++中用#ifndef避免重复导入的机制：

#ifndef _some_tag 
#define _some_tag

//...

#endif

补充背景 #

已知R5RS标准本身没有提供可移植的文件单次加载方案。提出这个问题的动机是：使用基于R5RS的j-bob代码时，两次加载会导致REPL运行极慢——原因是j-bob重定义了Scheme的基础关键字。虽然有建议用R7RS/R6RS模块系统解决，但希望找到R5RS环境下的处理方式。

R5RS环境下的可行方案 #

1. 全局标记变量模拟“头文件保护” #

这是最接近C++#ifndef思路的方法：在目标文件开头检查一个全局符号是否已定义，未定义则执行文件内容并标记符号，否则跳过。示例代码：

(if (not (defined? 'foo-loaded))
    (begin
      (define foo-loaded #t)
      ; 这里放置foo.scm的原有代码逻辑
      ))

注意：defined?并非R5RS标准函数，但绝大多数R5RS兼容实现（如MIT Scheme、Guile）都支持。如果所用实现没有该函数，可以通过遍历环境符号列表来检查：

(if (not (memq 'foo-loaded (map car (environment))))
    (begin
      (define foo-loaded #t)
      ; foo.scm原有内容
      ))

2. 利用实现特定的加载缓存 #

部分R5RS实现自带加载跟踪机制，默认避免重复加载同一文件：

• MIT Scheme：load函数会自动记录已加载的文件路径，重复调用会直接跳过
• Guile：默认不会缓存，需要手动启用相关模块后通过特定参数或函数控制加载行为

但这类方案依赖具体实现，不具备跨环境的可移植性。

3. 封装为一次性执行的闭包 #

如果不想污染全局命名空间，可以用闭包包裹逻辑，本质还是依赖全局状态标记：

(let ()
  (define (execute-once)
    (unless (defined? 'foo-loaded)
      (define foo-loaded #t)
      ; foo.scm原有内容
      ))
  (execute-once))

局限性 #

以上所有方案都不是R5RS标准规定的可移植方案，因为R5RS本身没有规范加载操作的缓存或重复执行控制逻辑。如果需要跨多个R5RS实现的兼容性，最稳妥的方式还是从代码结构上避免重复加载，或者考虑迁移到支持模块系统的R7RS/R6RS标准。

内容的提问来源于stack exchange，提问作者thor