FIX: none instead of error for an out-of-range ordinal date! selector

related to:
Oldes/Rebol-issues#742
Oldes/Rebol-issues#1375

Author: Oldes

src/core/t-date.c

@@ -534,8 +534,10 @@
 		sym =  SYM_YEAR + Int32(arg) - 1;
 	}
 
-	if (sym < SYM_YEAR || sym > SYM_JULIAN)
-		return PE_BAD_SELECT;
+	if (sym < SYM_YEAR || sym > SYM_JULIAN) {
+		//@@ https://github.com/Oldes/Rebol-issues/issues/1375
+		return (val) ? PE_BAD_SELECT : PE_NONE;
+	}
 
 	if (sym == SYM_TIMEZONE) {
 		asTimezone = TRUE;

src/tests/units/date-test.r3

@@ -110,6 +110,19 @@ Rebol [
 		--assert d/time = 0:10
 		--assert d/date = 1-Jan-2000
 
+	--test-- "issue 1375"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/1375
+		; none instead of error for an out-of-range ordinal selector
+		d: now
+		--assert none? try [d/0]
+		--assert none? try [d/-1]
+		--assert none? try [d/100]
+		; consistent with time:
+		t: now/time
+		--assert none? try [t/0]
+		--assert none? try [t/-1]
+		--assert none? try [t/100]
+
 ===end-group===
 
 ===start-group=== "DATE/TIMEZONE"
@@ -170,7 +183,7 @@ Rebol [
 	--test-- "query/mode date"
 		date: 8-Apr-2020 ; no time!
 		--assert equal? query/mode date all-date-words [2020 4 8 #[none] 2020-04-08 #[none] #[none] #[none] #[none] 3 99 #[none] 2020-04-08 99]
-		
+
 ===end-group===