diff options
| author | David Robillard <d@drobilla.net> | 2010-12-27 19:20:23 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2010-12-27 19:20:23 +0000 |
| commit | 248a2c44e8f8e599d64640cff584a2ef5265b9d9 (patch) | |
| tree | 94b00f5b858455f3617750d6db623ffd2d859817 /src/lift.cpp | |
| parent | 0b014dee824646461b7d402bf9bbcf954ff0eba3 (diff) | |
| download | resp-248a2c44e8f8e599d64640cff584a2ef5265b9d9.tar.gz resp-248a2c44e8f8e599d64640cff584a2ef5265b9d9.tar.bz2 resp-248a2c44e8f8e599d64640cff584a2ef5265b9d9.zip | |
Make ATuple a normal LISPey cons cell (it always was anyway).
git-svn-id: http://svn.drobilla.net/resp/resp@360 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'src/lift.cpp')
| -rw-r--r-- | src/lift.cpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lift.cpp b/src/lift.cpp index 4b57637..222cd09 100644 --- a/src/lift.cpp +++ b/src/lift.cpp @@ -125,7 +125,7 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw() for (ATuple::const_iterator p = fn->prot()->begin(); p != fn->prot()->end(); ++p) { const AST* paramType = (*tp++); if (is_form(paramType, "Fn")) { - const ATuple* fnType = new ATuple(cenv.tenv.var(), paramType, fnType->loc); + const ATuple* fnType = new ATuple(cenv.tenv.var(), paramType->as_tuple(), fnType->loc); paramType = tup((*p)->loc, cenv.tenv.Tup, fnType, NULL); } cenv.def((*p)->as_symbol(), *p, paramType, NULL); |