fix float numbers parsing

2018-04-10 15:04:18 -07:00
parent f4e008ab9a
commit f6cae32148
4 changed files with 9 additions and 9 deletions
@@ -60,7 +60,7 @@ runScript onAssertFail script = do
        ]
    go script $ emptyState { store = st, moduleRegistery = Map.singleton "spectest" inst }
    where
-        hostPrint paramTypes = Interpreter.HostFunction (Struct.FuncType paramTypes []) (const $ return [])
+        hostPrint paramTypes = Interpreter.HostFunction (Struct.FuncType paramTypes []) (\args -> print args >> return [])
        hostGlobals = do
            globI32 <- Interpreter.makeMutGlobal $ Interpreter.VI32 666
            globF32 <- Interpreter.makeMutGlobal $ Interpreter.VF32 666