2
0
Simon Krajewski 12 жил өмнө
parent
commit
e5f2581808
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      parser.ml

+ 1 - 1
parser.ml

@@ -94,7 +94,7 @@ let precedence op =
 	| OpInterval -> 6, left
 	| OpBoolAnd -> 7, left
 	| OpBoolOr -> 8, left
-	| OpArrow -> 9, left
+	| OpArrow -> 9, right
 	| OpAssign | OpAssignOp _ -> 10, right
 
 let is_not_assign = function