FIX: fix of the previous fix..

Oldes · Oldes · commit 3e03129f9da6 · 2018-12-05T19:15:06.000+01:00
Git somehow fooled me with reverting my changes. Related issue: metaeducation/rebol-issues#2331
diff --git a/src/core/n-loop.c b/src/core/n-loop.c
@@ -254,7 +254,7 @@
 
 			if (THROWN(ds)) {	// Break, throw, continue, error.
 				if (Check_Error(ds) >= 0) {
-					*DS_RETURN = *DS_NEXT;
+					*DS_RETURN = *DS_NEXT; // use thrown result as a return
 					return R_RET; // does not resets series position
 				}
 			}
@@ -267,9 +267,7 @@
 	}
 	else Trap_Arg(var);
 
-	// !!!!! ???? allowed to write VAR????
-	*var = *DS_ARG(1);
-	//*D_RET = *var;
+	*var = *DS_ARG(1); // restores starting value position
 	return R_RET;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -254,7 +254,7 @@`
`254`	`254`
`255`	`255`	`if (THROWN(ds)) { // Break, throw, continue, error.`
`256`	`256`	`if (Check_Error(ds) >= 0) {`
`257`		`- DS_RETURN = DS_NEXT;`
	`257`	`+ DS_RETURN = DS_NEXT; // use thrown result as a return`
`258`	`258`	`return R_RET; // does not resets series position`
`259`	`259`	`}`
`260`	`260`	`}`
`@@ -267,9 +267,7 @@`
`267`	`267`	`}`
`268`	`268`	`else Trap_Arg(var);`
`269`	`269`
`270`		`- // !!!!! ???? allowed to write VAR????`
`271`		`- var = DS_ARG(1);`
`272`		`- //D_RET = var;`
	`270`	`+ var = DS_ARG(1); // restores starting value position`
`273`	`271`	`return R_RET;`
`274`	`272`	`}`
`275`	`273`