Commit a63017bc authored by Vincent Zweije's avatar Vincent Zweije
Browse files

This commit was generated by cvs2svn to compensate for changes in r837,

which included commits to RCS files with non-trunk default branches.
parent d73c6009
...@@ -376,7 +376,7 @@ checkarity funarity defaultstrategy substrat subject found rnf (ssym,sargs) ...@@ -376,7 +376,7 @@ checkarity funarity defaultstrategy substrat subject found rnf (ssym,sargs)
= rnf = rnf
| eqlenn arity sargs | eqlenn arity sargs
= defaultstrategy substrat subject found rnf (ssym,sargs) = defaultstrategy substrat subject found rnf (ssym,sargs)
= abort "checktype: symbol occurrence with arity greater than its type" = abort ("checktype: symbol occurrence with actual arity "+++toString (length sargs)+++" greater than its type arity "+++toString arity)
where arity = funarity ssym where arity = funarity ssym
shortern n _ | n<=0 = False shortern n _ | n<=0 = False
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment