diff --git a/ChangeLog.markdown b/ChangeLog.markdown index 6fda46ec..431e5737 100644 --- a/ChangeLog.markdown +++ b/ChangeLog.markdown @@ -1,3 +1,10 @@ +v3.19.3 +-------- + +Big Fixes: + +- Fixed compilation errors in `FFI.hs`. + v3.19.2 -------- diff --git a/hs-src/Language/Scheme/FFI.hs b/hs-src/Language/Scheme/FFI.hs index b72f992c..aecfe660 100644 --- a/hs-src/Language/Scheme/FFI.hs +++ b/hs-src/Language/Scheme/FFI.hs @@ -38,7 +38,7 @@ evalfuncLoadFFI :: [LispVal] -> IOThrowsError LispVal - TODO: pass a list of functions to import. Need to make sure this is done in an efficient way - (IE, result as a list that can be processed) -} -evalfuncLoadFFI [(Continuation env _ _ _), String targetSrcFile, +evalfuncLoadFFI [(Continuation env _ _ _ _), String targetSrcFile, String moduleName, String externalFuncName, String internalFuncName] = do @@ -83,7 +83,7 @@ FUTURE: should be able to load multiple functions in one shot (?). -} defineVar env internalFuncName (IOFunc result) -- >>= continueEval env cont -- Overload that loads code from a compiled module -evalfuncLoadFFI [(Continuation env _ _ _), String moduleName, String externalFuncName, String internalFuncName] = do +evalfuncLoadFFI [(Continuation env _ _ _ _), String moduleName, String externalFuncName, String internalFuncName] = do result <- liftIO $ defaultRunGhc $ do dynflags <- GHC.getSessionDynFlags _ <- GHC.setSessionDynFlags dynflags diff --git a/husk-scheme.cabal b/husk-scheme.cabal index 1bca85f0..1bac63c7 100644 --- a/husk-scheme.cabal +++ b/husk-scheme.cabal @@ -1,5 +1,5 @@ Name: husk-scheme -Version: 3.19.2 +Version: 3.19.3 Synopsis: R5RS Scheme interpreter, compiler, and library. Description: <>