diff options
| author | alimarin | 2002-06-03 09:49:30 +0000 |
|---|---|---|
| committer | alimarin | 2002-06-03 09:49:30 +0000 |
| commit | 4505f798844949021d529670dde91dcd0d22f9cd (patch) | |
| tree | be3742504873d11df0bbecae502e609935c3fe84 /frontend/postparse.icl | |
| parent | - improved handling of equivalent types within one application to share a (diff) | |
added constructor/type/field information to generics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1079 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/postparse.icl')
| -rw-r--r-- | frontend/postparse.icl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/frontend/postparse.icl b/frontend/postparse.icl index 40f25b1..d7e4dee 100644 --- a/frontend/postparse.icl +++ b/frontend/postparse.icl @@ -1198,20 +1198,20 @@ collectGenericBodies :: !GenericCaseDef ![ParsedDefinition] !*CollectAdmin -> (![ParsedBody], ![ParsedDefinition], !*CollectAdmin) collectGenericBodies first_case all_defs=:[PD_GenericCase gc : defs] ca | first_case.gc_name == gc.gc_name && first_case.gc_type_cons == gc.gc_type_cons - # (bodies, rest_defs, ca) = collectGenericBodies first_case defs ca + #! (bodies, rest_defs, ca) = collectGenericBodies first_case defs ca # (GCB_ParsedBody args rhs) = gc.gc_body - # body = + #! body = { pb_args = args , pb_rhs = rhs , pb_position = gc.gc_pos } | first_case.gc_arity == gc.gc_arity = ([body : bodies ], rest_defs, ca) - # msg = "This alternative has " + toString gc.gc_arity + " argument" + #! msg = "This generic alternative has " + toString gc.gc_arity + " argument" + (if (gc.gc_arity <> 1) "s" "")+" instead of " + toString first_case.gc_arity - # ca = postParseError gc.gc_pos msg ca + #! ca = postParseError gc.gc_pos msg ca = ([body : bodies ], rest_defs, ca) - = ([], all_defs, ca) + = ([], all_defs, ca) collectGenericBodies first_case defs ca = ([], defs, ca) |