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
fdd88323
Commit
fdd88323
authored
Nov 18, 2005
by
John van Groningen
Browse files
correct the arities in the 'incorrect arity' error message
parent
e50ebd2d
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/generics1.icl
View file @
fdd88323
...
...
@@ -1919,16 +1919,12 @@ where
#!
(
fun
=:{
fun_body
,
fun_arity
},
fun_defs
)
=
fun_defs
!
[
fun_index
]
#!
fun_ident
=
genericIdentToFunIdent
gc_ident
gc_type_cons
=
case
fun_body
of
TransformedBody
tb
// user defined case
|
fun_arity
<>
st
.
st_arity
#
error
=
reportError
gc_ident
gc_pos
(
"incorrect arity "
+++
toString
fun_arity
+++
", expected "
+++
toString
st
.
st_arity
)
error
TransformedBody
tb
// user defined case
|
fun_arity
<>
st
.
st_arity
#
error
=
reportError
gc_ident
gc_pos
(
"incorrect arity "
+++
toString
(
SwitchGenericInfo
(
fun_arity
-1
)
fun_arity
)
+++
", expected "
+++
toString
(
SwitchGenericInfo
(
st
.
st_arity
-1
)
st
.
st_arity
)
)
error
->
(
group_index
,
groups
,
fun_defs
,
td_infos
,
modules
,
heaps
,
error
)
#!
fun
=
{
fun
&
fun_ident
=
fun_ident
,
fun_type
=
Yes
st
}
#!
fun
=
{
fun
&
fun_ident
=
fun_ident
,
fun_type
=
Yes
st
}
#!
fun_defs
=
{
fun_defs
&
[
fun_index
]
=
fun
}
->
(
group_index
,
groups
,
fun_defs
,
td_infos
,
modules
,
heaps
,
error
)
//---> ("update_icl_function, TransformedBody", fun.fun_ident, fun_index, st)
...
...
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