Correct comments

runtimeverification · Aug 5, 2024 · 7f7d667 · 7f7d667
1 parent 10f6b18
commit 7f7d667
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/booster/library/Booster/JsonRpc.hs b/booster/library/Booster/JsonRpc.hs
@@ -166,7 +166,7 @@ respond stateVar request =
 
                         case evaluatedInitialPattern of
                             (Left ApplyEquations.SideConditionFalse{}, _) -> do
-                                -- input pattern's constrains are Bottom, return Bottom
+                                -- input pattern's constraints are Bottom, return Vacuous
                                 stop <- liftIO $ getTime Monotonic
                                 pure $
                                     execResponse

diff --git a/booster/library/Booster/Pattern/ApplyEquations.hs b/booster/library/Booster/Pattern/ApplyEquations.hs
@@ -463,7 +463,7 @@ evaluatePattern' ::
     EquationT io Pattern
 evaluatePattern' pat@Pattern{term, ceilConditions} = withPatternContext pat $ do
     solver <- (.smtSolver) <$> getConfig
-    -- check initial constraints for consistency, reporting an error if they are Bottom
+    -- check the pattern's constraints for consistency, reporting an error if they are Bottom
     withContext CtxConstraint
         . withContext CtxDetail
         . withTermContext (coerce $ collapseAndBools pat.constraints)
@@ -479,15 +479,15 @@ evaluatePattern' pat@Pattern{term, ceilConditions} = withPatternContext pat $ do
             throw . SideConditionFalse . collapseAndBools $ pat.constraints
         Left SMT.SMTSolverUnknown{} -> do
             -- unlikely case of an Unknown response to a consistency check.
-            -- What to do here? continue for now to preserver the old behaviour.
+            -- continue to preserver the old behaviour.
             withContext CtxConstraint . logWarn . Text.pack $
                 "Constraints consistency UNKNOWN: " <> show consistent
             continue
         Left other ->
             -- fail hard on SMT error other than @SMT.SMTSolverUnknown@
             liftIO $ Exception.throw other
         Right True -> do
-            -- constrains are consistent, continue
+            -- constraints are consistent, continue
             continue
   where
     continue = do