- then
-
- \ Regular function application
-
- 2drop ( env exp env opname )
-
- 2swap eval ( env exp proc )
-
- 2dup dummy-apply-proc obj@ objeq? if
- 2drop ( env exp )
- cdr 2over 2over car ( env expbody env real-opname )
- 2swap eval ( env expbody proc )