fixed duplicate GT token def, arg type for min/max/mode/median func

iraf-community · Sep 17, 2023 · 0d75519 · 0d75519
1 parent 4ec6e35
commit 0d75519
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sys/fmtio/evvexpr.gy b/sys/fmtio/evvexpr.gy
@@ -247,7 +247,7 @@ $/
 
 %token		CONSTANT IDENTIFIER NEWLINE YYEOS
 %token		PLUS MINUS STAR SLASH EXPON CONCAT QUEST COLON
-%token		LT GT LE GT EQ NE SE LAND LOR LNOT BAND BOR BXOR BNOT AT
+%token		LT GT LE GE EQ NE SE LAND LOR LNOT BAND BOR BXOR BNOT AT
 
 %nonassoc	QUEST
 %left		LAND LOR
@@ -1368,7 +1368,7 @@ begin
 	    optype = O_TYPE(args[1])
 	    nelem = O_LEN(args[1])
 	    do i = 2, nargs {
-		optype = xvv_newtype (optype, args[i])
+		optype = xvv_newtype (optype, O_TYPE(args[i]))
 		if (O_LEN(args[i]) > 0)
 		    if (nelem > 0)
 			nelem = min (nelem, O_LEN(args[i]))