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
d54d61fc
Commit
d54d61fc
authored
May 01, 2002
by
Ronny Wichers Schreur
🏢
Browse files
bug fix: make case for variable pattern explicit
parent
8128e312
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/checkFunctionBodies.icl
View file @
d54d61fc
...
...
@@ -860,7 +860,7 @@ where
#
free_var
=
{
fv_name
=
name
,
fv_info_ptr
=
var_info
,
fv_def_level
=
NotALevel
,
fv_count
=
0
}
(
new_bound_var
,
expr_heap
)
=
allocate_bound_var
free_var
expr_heap
case_ident
=
{
id_name
=
case_name
,
id_info
=
nilPtr
}
(
new_case
,
var_store
,
expr_heap
,
cs_error
)
=
build_and_share_case
patterns
defaul
(
Var
new_bound_var
)
case_ident
Fals
e
var_store
expr_heap
cs
.
cs_error
(
new_case
,
var_store
,
expr_heap
,
cs_error
)
=
build_and_share_case
patterns
defaul
(
Var
new_bound_var
)
case_ident
Tru
e
var_store
expr_heap
cs
.
cs_error
cs
=
{
cs
&
cs_error
=
cs_error
}
new_defaul
=
insert_as_default
new_case
result_expr
=
(
NoPattern
,
pattern_scheme
,
(
cons_optional
opt_var
pattern_variables
),
Yes
(
Yes
free_var
,
new_defaul
),
...
...
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