suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed the type of a function name to avoid confusing the pass to remove free names later on

Browse Source
This commit is contained in:
Neil Brown 2008-03-23 00:11:11 +00:00
parent dd7b0268b2
commit 78c2160eb4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
frontends/ParseRain.hs
View File

@ -294,7 +294,8 @@ functionCall = do funcName <- name
Just _ -> return $ A.IntrinsicFunctionCall (A.nameMeta Just _ -> return $ A.IntrinsicFunctionCall (A.nameMeta
funcName) (A.nameName funcName) es funcName) (A.nameName funcName) es
Nothing -> return $ Nothing -> return $
A.FunctionCall (A.nameMeta funcName) funcName es A.FunctionCall (A.nameMeta funcName)
(funcName {A.nameType = A.FunctionName}) es
data InnerBlockLineState = Decls | NoMoreDecls | Mixed deriving (Eq) data InnerBlockLineState = Decls | NoMoreDecls | Mixed deriving (Eq)