Merge pull request #259 from maxsnew/dev
Fix Function Application Code Generation Bug for >=10 Arguments
This commit is contained in:
commit
811594dbc5
1 changed files with 2 additions and 1 deletions
|
@ -140,7 +140,8 @@ expression (L span expr) =
|
|||
args' <- mapM expression args
|
||||
return $ case args' of
|
||||
[arg] -> func' <| arg
|
||||
_ -> ref aN `call` (func':args')
|
||||
_ | length args' <= 9 -> ref aN `call` (func':args')
|
||||
| otherwise -> foldl1 (<|) (func':args')
|
||||
where
|
||||
aN = "A" ++ show (length args)
|
||||
(func, args) = getArgs e1 [e2]
|
||||
|
|
Loading…
Reference in a new issue