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
1574a95d
Commit
1574a95d
authored
Feb 13, 2002
by
Ronny Wichers Schreur
🏢
Browse files
bug fix: convert higher-order arrow types
parent
c408c355
Changes
1
Hide whitespace changes
Inline
Side-by-side
backend/backendconvert.icl
View file @
1574a95d
...
...
@@ -1459,6 +1459,10 @@ convertTypeNode (TempV n)
=
beVarTypeNode
(
"_tv"
+++
toString
n
)
convertTypeNode
(
a
-->
b
)
=
beNormalTypeNode
(
beBasicSymbol
BEFunType
)
(
convertTypeArgs
[
a
,
b
])
convertTypeNode
(
TArrow1
a
)
=
beNormalTypeNode
(
beBasicSymbol
BEFunType
)
(
convertTypeArgs
[
a
])
convertTypeNode
TArrow
=
beNormalTypeNode
(
beBasicSymbol
BEFunType
)
beNoTypeArgs
convertTypeNode
(
a
:@:
b
)
=
beNormalTypeNode
(
beBasicSymbol
BEApplySymb
)
(
convertTypeArgs
[{
at_attribute
=
TA_Multi
,
at_type
=
consVariableToType
a
}
:
b
])
convertTypeNode
TE
...
...
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