diff options
Diffstat (limited to 'src/resp.hpp')
| -rw-r--r-- | src/resp.hpp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/resp.hpp b/src/resp.hpp index a76aed7..4be28bd 100644 --- a/src/resp.hpp +++ b/src/resp.hpp @@ -329,7 +329,7 @@ struct ATuple : public AST { AST* lift(CEnv& cenv, Code& code) throw(); AST* depoly(CEnv& cenv, Code& code) throw(); - CVal compile(CEnv& cenv) throw() { return NULL; } + CVal compile(CEnv& cenv) throw(); private: size_t _len; @@ -473,6 +473,13 @@ struct APrimitive : public ACall { CVal compile(CEnv& cenv) throw(); }; +struct AQuote : public ACall { + AQuote(const ATuple* exp) : ACall(exp) {} + void constrain(TEnv& tenv, Constraints& c) const throw(Error); + AST* lift(CEnv& cenv, Code& code) throw(); + CVal compile(CEnv& cenv) throw(); +}; + /*************************************************************************** * Parser: S-Expressions (SExp) -> AST Nodes (AST) * |