isEmptyMemSpace :: MemSpace a -> ExceptT GrLang.Error LuaGrLang Bool
isEmptyMemSpace memSpace =
  (maxFreeValues memSpace ==) <$> liftIO (readIORef $ numFreeValues memSpace)
isEmptyMemSpace :: MemSpace a -> ExceptT GrLang.Error LuaGrLang Bool
isEmptyMemSpace memSpace =
  (maxFreeValues memSpace ==) <$> liftIO (readIORef $ numFreeValues memSpace)
isEmptyMemSpace memSpace =
  (maxFreeValues memSpace ==) <$> liftIO (readIORef $ numFreeValues memSpace)