12 years ago · e5f2581808
--- a/parser.ml
+++ b/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