Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
curry-packages
icurry
Commits
228e6739
Commit
228e6739
authored
Feb 02, 2020
by
Michael Hanus
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Type synonym IArity used
parent
66c8cca1
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
4 deletions
+4
-4
examples/InterpreterTests.curry
examples/InterpreterTests.curry
+1
-1
src/ICurry/Compiler.curry
src/ICurry/Compiler.curry
+2
-2
src/ICurry/Types.curry
src/ICurry/Types.curry
+1
-1
No files found.
examples/InterpreterTests.curry
View file @
228e6739
...
...
@@ -34,7 +34,7 @@ iFPCall n = IFPCall (siq n)
iCPCall :: String -> Int -> [IExpr] -> IExpr
iCPCall n = ICPCall (siq n)
iConsBranch :: String -> I
nt
-> IBlock -> IConsBranch
iConsBranch :: String -> I
Arity
-> IBlock -> IConsBranch
iConsBranch n = IConsBranch (siq n)
icurryList :: [IExpr] -> IExpr
...
...
src/ICurry/Compiler.curry
View file @
228e6739
...
...
@@ -93,7 +93,7 @@ data ICOptions = ICOptions
, optShowGraph :: Bool -- visualize graph during execution?
, optViewPDF :: String -- command to view graph PDF
, optInteractive :: Bool -- interactive execution?
, optConsMap :: [(QName,(I
nt
,Int))] -- map: cons
tr
names to arity/position
, optConsMap :: [(QName,(I
Arity
,Int))] -- map: cons
.
names to arity/position
, optFunMap :: [(QName,Int)] -- map: function names to module indices
, optFun :: QName -- currently compiled function
}
...
...
@@ -102,7 +102,7 @@ defaultICOptions :: ICOptions
defaultICOptions = ICOptions 1 False "" False "evince" False [] [] ("","")
-- Lookup arity and position index of a constructor.
arityPosOfCons :: ICOptions -> QName -> (I
nt
,Int)
arityPosOfCons :: ICOptions -> QName -> (I
Arity
,Int)
arityPosOfCons opts qn =
maybe (error "Internal error: posOfCons") id (lookup qn (optConsMap opts))
...
...
src/ICurry/Types.curry
View file @
228e6739
...
...
@@ -110,7 +110,7 @@ data IStatement =
--- Only the constructor and its arity matching this branch is given.
--- The assignments of constructor arguments to pattern variables
--- must be done in the ICurry block.
data IConsBranch = IConsBranch IQName I
nt
IBlock
data IConsBranch = IConsBranch IQName I
Arity
IBlock
deriving (Show, Read)
--- An ICurry case branch over literals.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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