From 3783f2646c128e05d90359dc3708f9ff47571091 Mon Sep 17 00:00:00 2001 From: Max New Date: Mon, 16 Sep 2013 23:47:15 -0700 Subject: [PATCH] Fix function application code gen bug for >=10 arguments. --- compiler/Generate/JavaScript.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/Generate/JavaScript.hs b/compiler/Generate/JavaScript.hs index eb09fbd..e3a24a7 100644 --- a/compiler/Generate/JavaScript.hs +++ b/compiler/Generate/JavaScript.hs @@ -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]