CHANGE: allow to-decimal "1e"

related to: Oldes/Rebol-issues#956

Author: Oldes

src/core/l-types.c

@@ -303,10 +303,9 @@ bad_hex:	Trap0(RE_INVALID_CHARS);
 	if (!dig) return 0;
 	if (*cp == 'E' || *cp == 'e') {
 			*ep++ = *cp++;
-			dig = 0;
+			dig = 1;
 			if (*cp == '-' || *cp == '+') *ep++ = *cp++;
-			while (IS_LEX_NUMBER(*cp)) *ep++ = *cp++, dig=1;
-			if (!dig) return 0;
+			while (IS_LEX_NUMBER(*cp)) *ep++ = *cp++;
 	}
 	if (*cp == '%') {
 		if (dec_only) return 0;

src/tests/units/make-test.r3

@@ -110,6 +110,11 @@ Rebol [
 		--assert 0.0 = make 0.0 false
 		--assert error? try [to decimal! true]
 		--assert error? try [to decimal! false]
+	--test-- "make decimal from string"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/956
+		ch: copy ""
+		repeat x 255 [unless error? try [to-decimal join "1" to-char x] [append ch to-char x]]
+		--assert ch = "^- ',.0123456789Ee"
 
 ===end-group===