diff options
| author | David Robillard <d@drobilla.net> | 2011-01-13 05:35:23 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2011-01-13 05:35:23 +0000 |
| commit | 944a94e27d9e15f30edc144d2a7ec7a438fd6bab (patch) | |
| tree | 2e76e7bacdb0fdb2fe41886d7281f18756abe699 | |
| parent | 4e6597947b98cf8e695bbdd7949b9c115fd7869a (diff) | |
| download | resp-944a94e27d9e15f30edc144d2a7ec7a438fd6bab.tar.gz resp-944a94e27d9e15f30edc144d2a7ec7a438fd6bab.tar.bz2 resp-944a94e27d9e15f30edc144d2a7ec7a438fd6bab.zip | |
Fix erroneous rejection of (def (f x) ...) forms with multiple body expressions.
git-svn-id: http://svn.drobilla.net/resp/trunk@408 ad02d1e2-f140-0410-9f75-f8b11f17cedd
| -rw-r--r-- | src/expand.cpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/expand.cpp b/src/expand.cpp index c2a5ad6..b50d627 100644 --- a/src/expand.cpp +++ b/src/expand.cpp @@ -52,7 +52,7 @@ static inline const AST* expand_def(PEnv& penv, const AST* exp, void* arg) { const ATuple* tup = exp->as_tuple(); - THROW_IF(tup->list_len() != 3, tup->loc, "`def' requires exactly 2 arguments"); + THROW_IF(tup->list_len() < 3, tup->loc, "`def' requires at least 2 arguments"); ATuple::const_iterator i = tup->begin(); const AST* arg1 = *(++i); |