diff options
| -rw-r--r-- | src/expand.cpp | 2 | ||||
| -rw-r--r-- | src/lift.cpp | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/expand.cpp b/src/expand.cpp index 5ede0dd..72d83cd 100644 --- a/src/expand.cpp +++ b/src/expand.cpp @@ -16,7 +16,7 @@ */ /** @file - * @brief Expand built-in macros (i.e. def) + * @brief Read and expand macros. */ #include "resp.hpp" diff --git a/src/lift.cpp b/src/lift.cpp index 48fcf4e..8cdf654 100644 --- a/src/lift.cpp +++ b/src/lift.cpp @@ -188,8 +188,9 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw() cenv.setType(impl, realImplT); // Create type definition for closure type - const AST* tdef = resp_lift( - cenv, code, tup(Cursor(), cenv.penv.sym("def-type"), tsym, closureT, 0)); + List tdef(Cursor(), cenv.penv.sym("def-type"), tsym, 0); + tdef.push_back(closureT); + code.push_back(tdef); cenv.tenv.def(tsym, closureT); |