Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
61c1f167
Commit
61c1f167
authored
Apr 13, 2007
by
John van Groningen
Browse files
expand types if NO error has occurred, instead of if an error has occurred
parent
6fd027e3
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/analtypes.icl
View file @
61c1f167
...
...
@@ -91,7 +91,7 @@ where
=
(
dcl_modules
,
type_defs
,
marks
,
type_def_infos
)
expand_synonym_types_of_groups
main_dcl_module_index
pi_groups
(
new_type_defs
,
icl_type_defs
,
new_cons_defs
,
icl_cons_defs
,
type_heaps
,
dcl_modules
,
error
)
|
not
error
.
ea_ok
|
error
.
ea_ok
=
foldSt
(
expand_synonym_types_of_group
main_dcl_module_index
)
pi_groups
(
new_type_defs
,
icl_type_defs
,
new_cons_defs
,
icl_cons_defs
,
type_heaps
,
dcl_modules
,
error
)
=
(
new_type_defs
,
icl_type_defs
,
new_cons_defs
,
icl_cons_defs
,
type_heaps
,
dcl_modules
,
error
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment