diff options
| author | Justin Ethier <justin.ethier@gmail.com> | 2014-05-20 22:41:23 -0400 |
|---|---|---|
| committer | Justin Ethier <justin.ethier@gmail.com> | 2014-05-20 22:41:23 -0400 |
| commit | b03dc1e2aecd97e0c6c19f7952fb917ab06c1f86 (patch) | |
| tree | c6cf6d4657fc7290e81c804b74daea4ef3d7707d | |
| parent | 2dcbeb04b9b0512834326307a3b5a497759e5390 (diff) | |
Replaced calls to continueEval in compiled codexargs-exp
| -rw-r--r-- | hs-src/Language/Scheme/Compiler.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/hs-src/Language/Scheme/Compiler.hs b/hs-src/Language/Scheme/Compiler.hs index 913ac33e..2325d49e 100644 --- a/hs-src/Language/Scheme/Compiler.hs +++ b/hs-src/Language/Scheme/Compiler.hs @@ -1070,8 +1070,8 @@ compileApply env (List (func : fparams)) copts@(CompileOptions coptsThis _ _ cop c <- return $ AstFunction coptsThis " env cont _ _ " [ - AstValue $ " continueEval' env (makeCPSWArgs env (makeCPSWArgs env cont " ++ - nextFunc ++ " []) " ++ stubFunc ++ " []) $ Nil\"\""] + AstValue $ " " ++ stubFunc ++ " env (makeCPSWArgs env cont " ++ + nextFunc ++ " []) (Nil \"\") (Just [])"] _comp <- mcompile env fnc $ CompileOptions stubFunc False False Nothing -- Haskell variables must be used to retrieve each atom from the env @@ -1120,13 +1120,13 @@ compileApply env (List (func : fparams)) copts@(CompileOptions coptsThis _ _ cop c <- return $ AstFunction coptsThis " env cont _ _ " [ - AstValue $ " continueEval' env (makeCPSWArgs env (makeCPSWArgs env cont " ++ - wrapperFunc ++ " []) " ++ stubFunc ++ " []) $ Nil\"\""] + AstValue $ " " ++ stubFunc ++ " env (makeCPSWArgs env cont " ++ + wrapperFunc ++ " []) (Nil \"\") (Just [])"] -- Use wrapper to pass high-order function (func) as an argument to apply wrapper <- return $ AstFunction wrapperFunc " env cont value _ " [ - AstValue $ " continueEval' env (makeCPSWArgs env cont " ++ - nextFunc ++ " [value]) $ Nil \"\""] + AstValue $ " " ++ nextFunc ++ " env cont " ++ + " (Nil \"\") (Just [value]) "] _comp <- mcompile env func' $ CompileOptions stubFunc False False Nothing rest <- case fparams of |