aboutsummaryrefslogtreecommitdiffstats
path: root/src/expand.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/expand.cpp')
-rw-r--r--src/expand.cpp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/expand.cpp b/src/expand.cpp
index 72d83cd..7eece67 100644
--- a/src/expand.cpp
+++ b/src/expand.cpp
@@ -141,8 +141,8 @@ expand_fn(PEnv& penv, const AST* exp)
{
const ATuple* tup = exp->to_tuple();
ATuple::const_iterator a = tup->begin();
- THROW_IF(++a == tup->end(), exp->loc, "Unexpected end of `fn' form");
- THROW_IF(!(*a)->to_tuple(), (*a)->loc, "First argument of `fn' is not a list");
+ THROW_IF(++a == tup->end(), exp->loc, "Unexpected end of `lambda' form");
+ THROW_IF(!(*a)->to_tuple(), (*a)->loc, "First argument of `lambda' is not a list");
const ATuple* prot = (*a++)->to_tuple();
List ret(new ATuple(penv.sym("lambda"), NULL, exp->loc));
ret.push_back(prot);
@@ -155,7 +155,7 @@ static const AST*
expand_def(PEnv& penv, const AST* exp)
{
const ATuple* tup = exp->as_tuple();
- THROW_IF(tup->list_len() < 3, tup->loc, "`def' requires at least 2 arguments");
+ THROW_IF(tup->list_len() < 3, tup->loc, "`define' requires at least 2 arguments");
ATuple::const_iterator i = tup->begin();
const AST* arg1 = *(++i);