diff options
| author | David Robillard <d@drobilla.net> | 2012-12-23 05:31:15 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2012-12-23 05:31:15 +0000 |
| commit | 67319bf0410196787c753225f46057bc7c94beec (patch) | |
| tree | 572e8f8989a903fde8be784de5dddbaa1938ecfe /src/simplify.cpp | |
| parent | 0375a20786f1e6eba9d128889f700b22d447021c (diff) | |
| download | resp-67319bf0410196787c753225f46057bc7c94beec.tar.gz resp-67319bf0410196787c753225f46057bc7c94beec.tar.bz2 resp-67319bf0410196787c753225f46057bc7c94beec.zip | |
Move towards standard Scheme syntax.
git-svn-id: http://svn.drobilla.net/resp/trunk@442 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'src/simplify.cpp')
| -rw-r--r-- | src/simplify.cpp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/simplify.cpp b/src/simplify.cpp index d8d23f2..f1b1bec 100644 --- a/src/simplify.cpp +++ b/src/simplify.cpp @@ -65,7 +65,7 @@ simplify_match(CEnv& cenv, Code& code, const ATuple* match) throw() const ASymbol* tsym = cenv.penv.gensym("__tag"); - List def(match->loc, cenv.penv.sym("def"), tsym, tval.head, NULL); + List def(match->loc, cenv.penv.sym("define"), tsym, tval.head, NULL); cenv.setType(tval.head, cenv.tenv.named("Symbol")); List copyIf; @@ -98,13 +98,13 @@ simplify_match(CEnv& cenv, Code& code, const ATuple* match) throw() const ATuple* prot = new ATuple(osym, 0, Cursor()); const ATuple* protT = new ATuple(texp, 0, Cursor()); - List fn(Cursor(), cenv.penv.sym("fn"), prot, 0); + List fn(Cursor(), cenv.penv.sym("lambda"), prot, 0); int idx = 0; ATuple::const_iterator ti = texp->iter_at(1); for (ATuple::const_iterator j = pat->iter_at(1); j != pat->end(); ++j, ++ti, ++idx) { const AST* index = new ALiteral<int32_t>(T_INT32, idx, Cursor()); const AST* dot = tup(Cursor(), cenv.penv.sym("."), osym, index, 0); - const AST* def = tup(Cursor(), cenv.penv.sym("def"), *j, dot, 0); + const AST* def = tup(Cursor(), cenv.penv.sym("define"), *j, dot, 0); fn.push_back(def); } @@ -144,7 +144,7 @@ simplify_let(CEnv& cenv, Code& code, const ATuple* call) throw() { const ATuple* vars = call->list_ref(1)->to_tuple(); - List fn(Cursor(), cenv.penv.sym("fn"), NULL); + List fn(Cursor(), cenv.penv.sym("lambda"), NULL); List fnProt; List fnArgs; |