smalltalk: ifTrue:/ifFalse: family + bar-as-binary parser fix

lib/smalltalk/parser.sx

@@ -668,6 +668,10 @@
                 (else receiver)))))
 
         ;; Binary message: <unary> (binop <unary>)*
+        ;; A bare `|` is also a legitimate binary selector (logical or in
+        ;; some Smalltalks); the tokenizer emits it as the `bar` type so
+        ;; that block-param / temp-decl delimiters are easy to spot.
+        ;; In expression position, accept it as a binary operator.
         (define
           parse-binary-message
           (fn
@@ -680,7 +684,7 @@
                   (fn
                     ()
                     (when
-                      (at-type? "binary")
+                      (or (at-type? "binary") (at-type? "bar"))
                       (let ((t (peek-tok)))
                         (begin
                           (advance-tok!)