diff options
| -rw-r--r-- | src/lift.cpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lift.cpp b/src/lift.cpp index 3e785b9..0792333 100644 --- a/src/lift.cpp +++ b/src/lift.cpp @@ -200,7 +200,7 @@ lift_call(CEnv& cenv, Code& code, const ATuple* call) throw() */ copy.push_front(cenv.penv.sym(cenv.liftStack.top().implName)); cenv.setTypeSameAs(copy, call); - } else if (is_form(call, "fn")) { + } else if (is_form(call->fst(), "fn")) { /* Special case: ((fn ...) ...) * Lifting (fn ...) yields: (Fn _impl ...). * We don't want ((Fn _impl ...) (Fn _impl ...) ...), |