diff options
author | Teddy <ted.sybil@gmail.com> | 2013-08-03 12:10:09 +0800 |
---|---|---|
committer | Teddy <ted.sybil@gmail.com> | 2013-08-03 12:10:09 +0800 |
commit | e462669c3c3cc04ea29420e14dbb589899d201ec (patch) | |
tree | cc217c58388fbf13229bf4a25b639d17458e8fc9 /builtin.cpp | |
parent | af2da07be7d3f8a936640ef92b0692710a22e0d4 (diff) |
AST parser can now work!
Diffstat (limited to 'builtin.cpp')
-rw-r--r-- | builtin.cpp | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/builtin.cpp b/builtin.cpp index 232f873..876c75d 100644 --- a/builtin.cpp +++ b/builtin.cpp @@ -89,7 +89,7 @@ Cons *SpecialOptIf::call(ArgList *arg_list, Environment * &envt, string SpecialOptIf::ext_repr() { return string("#<Builtin Macro: if>"); } #ifdef DEBUG -SpecialOptIf::_debug_repr() { return ext_repr(); } +string SpecialOptIf::_debug_repr() { return ext_repr(); } #endif SpecialOptLambda::SpecialOptLambda() : SpecialOptObj() {} @@ -163,6 +163,10 @@ Cons *SpecialOptDefine::call(ArgList *arg_list, Environment * &envt, *top_ptr = obj; return ret_addr->next; } +string SpecialOptDefine::ext_repr() { return string("#<Builtin Macro: define>"); } +#ifdef DEBUG +string SpecialOptDefine::_debug_repr() { return ext_repr(); } +#endif void SpecialOptSet::prepare(Cons *pc) { // TODO: check number of arguments @@ -180,3 +184,8 @@ Cons *SpecialOptSet::call(ArgList *arg_list, Environment * &envt, *top_ptr = new UnspecObj(); return ret_addr->next; } + +string SpecialOptSet::ext_repr() { return string("#<Builtin Macro: set!>"); } +#ifdef DEBUG +string SpecialOptSet::_debug_repr() { return ext_repr(); } +#endif |