diff options
| author | David Robillard <d@drobilla.net> | 2012-12-23 05:31:15 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2012-12-23 05:31:15 +0000 |
| commit | 67319bf0410196787c753225f46057bc7c94beec (patch) | |
| tree | 572e8f8989a903fde8be784de5dddbaa1938ecfe /src/constrain.cpp | |
| parent | 0375a20786f1e6eba9d128889f700b22d447021c (diff) | |
| download | resp-67319bf0410196787c753225f46057bc7c94beec.tar.gz resp-67319bf0410196787c753225f46057bc7c94beec.tar.bz2 resp-67319bf0410196787c753225f46057bc7c94beec.zip | |
Move towards standard Scheme syntax.
git-svn-id: http://svn.drobilla.net/resp/trunk@442 ad02d1e2-f140-0410-9f75-f8b11f17cedd
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 e6e81a3..baa4ca8 100644 --- a/src/constrain.cpp +++ b/src/constrain.cpp @@ -173,7 +173,7 @@ constrain_fn(TEnv& tenv, Constraints& c, const ATuple* call) throw(Error) for (++i; i != call->end(); ++i) { const AST* exp = *i; const ATuple* call = exp->to_tuple(); - if (call && is_form(call, "def")) { + if (call && is_form(call, "define")) { const ASymbol* sym = call->list_ref(1)->as_symbol(); THROW_IF(defs.count(sym) != 0, call->loc, (format("`%1%' defined twice") % sym->str()).str()); @@ -429,11 +429,11 @@ constrain_list(TEnv& tenv, Constraints& c, const ATuple* tup) throw(Error) constrain_cons(tenv, c, tup); else if (form == ".") constrain_dot(tenv, c, tup); - else if (form == "def") + else if (form == "define") constrain_def(tenv, c, tup); else if (form == "def-type") constrain_def_type(tenv, c, tup); - else if (form == "fn") + else if (form == "lambda") constrain_fn(tenv, c, tup); else if (form == "if") constrain_if(tenv, c, tup); |