Fix 2 occurrences of nested-if-to-cond

This `if`-`else` chain can be converted to a `cond` expression.

Author: resyntax-ci[bot]

typed-racket-lib/typed-racket/utils/shallow-contract.rkt

@@ -48,19 +48,17 @@
 
 (define ((shallow-and/c . pred*) x)
   (let loop ([p?* pred*])
-    (if (null? p?*)
-        #true
-        (if ((car p?*) x)
-            (loop (cdr p?*))
-            #false))))
+    (cond
+      [(null? p?*) #true]
+      [((car p?*) x) (loop (cdr p?*))]
+      [else #false])))
 
 (define ((shallow-or/c . pred*) x)
   (let loop ([p?* pred*])
-    (if (null? p?*)
-        #false
-        (if ((car p?*) x)
-            #true
-            (loop (cdr p?*))))))
+    (cond
+      [(null? p?*) #false]
+      [((car p?*) x) #true]
+      [else (loop (cdr p?*))])))
 
 (define (shallow-shape-check val pred ty-str ctx)
   (if (pred val)