- 2dup lookup-macro nil? false = if
- \ Macro function evaluation
-
- ( env exp env opname mproc )
- 2swap 2drop -2rot 2drop cdr ( env mproc body )
-
- macro-expand
-
- 2swap
- ['] eval goto-deferred
- else
- \ Regular function application
-
- 2drop ( env exp env opname )
-
- 2swap eval ( env exp proc )