在TCL中实现include guards的标准方式是什么？

在 TCL 中实现 include guards 有多种方式，要是没掌握特殊技巧或捷径的话，我能想到的最稳健的写法大概是这样：

if { ! [info exists _THIS_FILE_] } { 
  set _THIS_FILE_ 1 
  # ... 此处编写你的业务代码
}

不过这种写法比较冗长，而且所有代码都得跟着缩进一层，使用起来不算太方便。

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