diff options
Diffstat (limited to 'src/constrain.cpp')
| -rw-r--r-- | src/constrain.cpp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/constrain.cpp b/src/constrain.cpp index 66b4505..b644833 100644 --- a/src/constrain.cpp +++ b/src/constrain.cpp @@ -113,10 +113,10 @@ constrain_dot(TEnv& tenv, Constraints& c, const ATuple* call) throw(Error) static void constrain_def(TEnv& tenv, Constraints& c, const ATuple* call) throw(Error) { - THROW_IF(call->list_len() != 3, call->loc, "`def' requires exactly 2 arguments"); - THROW_IF(!call->frst()->to_symbol(), call->frst()->loc, "`def' name is not a symbol"); + THROW_IF(call->list_len() != 3, call->loc, "`define' requires exactly 2 arguments"); + THROW_IF(!call->frst()->to_symbol(), call->frst()->loc, "`define' name is not a symbol"); const ASymbol* const sym = call->list_ref(1)->as_symbol(); - THROW_IF(!sym, call->loc, "`def' has no symbol") + THROW_IF(!sym, call->loc, "`define' has no symbol") const AST* const body = call->list_ref(2); const AST* tvar = tenv.var(body); |