如何在分支报价中管理堆栈？

Question

如果true引用的参数为零，我可以使用when字，因为隐式false引用也有零参数（什么都不做）。

但是当我想要使用参数时，我需要else分支来清理堆栈。如果逻辑更复杂，我想它可能是乏味且容易出错的重新分解。有更简单的方法吗？

: print-if-dir ( directory-entry -- ) dup directory? [ name>> . ] [ drop ] if ;