Add missing parentheses

smarr · smarr · commit 0464fb066270 · 2025-02-13T16:37:20.000Z
Signed-off-by: Stefan Marr &lt;git@stefan-marr.de&gt;
diff --git a/benchmarks/SOM/CD/RedBlackTree.som b/benchmarks/SOM/CD/RedBlackTree.som
@@ -252,7 +252,7 @@ RedBlackTree = (
     x := anX.
     xParent := anXParent.
 
-    x ~= root and: [ x isNil or: [ x color = #black ]] whileTrue: [
+    (x ~= root and: [ x isNil or: [ x color = #black ]]) whileTrue: [
       x == xParent left
         ifTrue: [
           | w |
diff --git a/benchmarks/SOMns/CD.ns b/benchmarks/SOMns/CD.ns
@@ -410,7 +410,7 @@ class CDSuite usingPlatform: platform andHarness: harness = (
       x:: anX.
       xParent:: anXParent.
 
-      x ~= root and: [ x isNil or: [ x color = #black ]] whileTrue: [
+      (x ~= root and: [ x isNil or: [ x color = #black ]]) whileTrue: [
         x == xParent left
           ifTrue: [
             | w |
diff --git a/benchmarks/Smalltalk/CD/RedBlackTree.som b/benchmarks/Smalltalk/CD/RedBlackTree.som
@@ -252,7 +252,7 @@ RedBlackTree = (
     x := anX.
     xParent := anXParent.
 
-    x ~= root and: [ x isNil or: [ x color = #black ]] whileTrue: [
+    (x ~= root and: [ x isNil or: [ x color = #black ]]) whileTrue: [
       x == xParent left
         ifTrue: [
           | w |
