diff options
| author | David Robillard <d@drobilla.net> | 2009-10-15 16:58:33 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2009-10-15 16:58:33 +0000 |
| commit | 7743d332e41c7795dcbaa49511293f22597e4db7 (patch) | |
| tree | c6018e89d3265698e992a3e96b77a25ae40675b6 /src/lift.cpp | |
| parent | cc8d52479fea5b2f4419463daf027ec11e813dc8 (diff) | |
| download | resp-7743d332e41c7795dcbaa49511293f22597e4db7.tar.gz resp-7743d332e41c7795dcbaa49511293f22597e4db7.tar.bz2 resp-7743d332e41c7795dcbaa49511293f22597e4db7.zip | |
Replace more use of at(0) with head().
git-svn-id: http://svn.drobilla.net/resp/tuplr@228 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'src/lift.cpp')
| -rw-r--r-- | src/lift.cpp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/lift.cpp b/src/lift.cpp index 3f0e1bf..f5fe607 100644 --- a/src/lift.cpp +++ b/src/lift.cpp @@ -47,7 +47,7 @@ AFn::lift(CEnv& cenv) void ACall::lift(CEnv& cenv) { - AFn* c = cenv.resolve(at(0))->to<AFn*>(); + AFn* c = cenv.resolve(head())->to<AFn*>(); AType argsT(loc); // Lift arguments @@ -59,9 +59,9 @@ ACall::lift(CEnv& cenv) if (!c) return; // Primitive if (c->prot()->size() < size() - 1) - throw Error(loc, (format("too many arguments to function `%1%'") % at(0)->str()).str()); + throw Error(loc, (format("too many arguments to function `%1%'") % head()->str()).str()); if (c->prot()->size() > size() - 1) - throw Error(loc, (format("too few arguments to function `%1%'") % at(0)->str()).str()); + throw Error(loc, (format("too few arguments to function `%1%'") % head()->str()).str()); cenv.engine()->compileFunction(cenv, c, argsT); // Lift called closure } |