diff options
| author | martinw | 2000-10-25 10:56:18 +0000 |
|---|---|---|
| committer | martinw | 2000-10-25 10:56:18 +0000 |
| commit | 69ea56078467e7da4391a71c13efbc1b31e1ae73 (patch) | |
| tree | b27092d845ae4f72a189c4fbf518c818e93b63de | |
| parent | removing some superflous numbers from error messages (diff) | |
improved storing position information
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@264 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/postparse.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/postparse.icl b/frontend/postparse.icl index 16ef220..2315d0d 100644 --- a/frontend/postparse.icl +++ b/frontend/postparse.icl @@ -1064,7 +1064,7 @@ where # fun_arity = determineArity args type (bodies, fun_kind, defs, ca) = collectFunctionBodies name fun_arity prio fun_kind defs ca (fun_defs, ca) = collect_member_instances defs ca - fun = MakeNewImpOrDefFunction icl_module name fun_arity bodies fun_kind prio type pos + fun = MakeNewImpOrDefFunction icl_module name fun_arity bodies fun_kind prio type fun_pos -> ([ fun : fun_defs ], ca) _ -> collect_member_instances defs (postParseError fun_pos "function body expected" ca) |