Do not run the command the second time

runtimeverification · Aug 19, 2024 · a667a9e · a667a9e
1 parent e470b21
commit a667a9e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/booster/library/Booster/SMT/Interface.hs b/booster/library/Booster/SMT/Interface.hs
@@ -170,7 +170,7 @@ runPrelude doCheck = do
     mapM_ runCmd ctxt.prelude
     -- optionally check the prelude for consistency
     when (coerce doCheck) $ do
-        check <- mapM_ runCmd ctxt.prelude >> runCmd CheckSat
+        check <- runCmd CheckSat
         case check of
             Sat -> pure ()
             other -> do