Skip to content

Commit

Permalink
Added missing argument to isFunctionType
Browse files Browse the repository at this point in the history
  • Loading branch information
PaulKlint committed Nov 24, 2013
1 parent e501c8b commit 90e8571
Showing 1 changed file with 1 addition and 1 deletion.
Original file line number Diff line number Diff line change
Expand Up @@ -285,7 +285,7 @@ MuExp translate(e:(Expression) `<Expression expression> ( <{Expression ","}* arg
\tuple([ a | Symbol arg <- getConstructorArgumentTypes(ftype), label(_,Symbol a) := arg || Symbol a := arg ]),());
return instantiate(t.\adt,bindings) == ftype.\adt;
}
if(isFunctionType(t) && isFunctionType()) {
if(isFunctionType(t) && isFunctionType(ftype)) {
bindings = match(getFunctionArgumentTypesAsTuple(t),getFunctionArgumentTypesAsTuple(ftype),());
return instantiate(t.ret,bindings) == ftype.ret;
}
Expand Down

0 comments on commit 90e8571

Please sign in to comment.