FIX: SORT/COMPARE is using reversed order when using integer as a result from the function

fixes: metaeducation/rebol-issues#2376

Author: Oldes

src/core/t-block.c

@@ -415,12 +415,12 @@ static struct {
 		return -1;
 	}
 	if (IS_INTEGER(val)) {
-		if (VAL_INT64(val) > 0) return 1;
+		if (VAL_INT64(val) < 0) return 1;
 		if (VAL_INT64(val) == 0) return 0;
 		return -1;
 	}
 	if (IS_DECIMAL(val)) {
-		if (VAL_DECIMAL(val) > 0) return 1;
+		if (VAL_DECIMAL(val) < 0) return 1;
 		if (VAL_DECIMAL(val) == 0) return 0;
 		return -1;
 	}

src/tests/units/series-test.r3

@@ -117,6 +117,8 @@ Rebol [
 --test-- "SORT/compare"
 	;@@ https://github.com/rebol/rebol-issues/issues/720
 	--assert [3 2 1] = sort/compare [1 2 3] func [a b] [a > b]
+	;@@ https://github.com/rebol/rebol-issues/issues/2376
+	--assert [1 3 10] = sort/compare [1 10 3] func[x y][case [x > y [1] x < y [-1] true [0]]]
 
 --test-- "SORT/skip/compare"
 	;@@ https://github.com/rebol/rebol-issues/issues/1152