From 944a94e27d9e15f30edc144d2a7ec7a438fd6bab Mon Sep 17 00:00:00 2001 From: David Robillard Date: Thu, 13 Jan 2011 05:35:23 +0000 Subject: 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 --- src/expand.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- cgit v1.2.1