FEAT: store last console result in system/state/last-result

resolves: Oldes/Rebol-issues#354
Oldes · Jul 23, 2021 · f1b74c7 · f1b74c7
1 parent b150eb9
commit f1b74c7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/boot/sysobj.reb b/src/boot/sysobj.reb
@@ -86,7 +86,8 @@ state: object [
 			0.0.0
 		extension: 2.2.2 ; execute only
 	]
-	last-error: none ; used by WHY?
+	last-error:  none ; used by WHY?
+	last-result: none ; used to store last console result
 ]
 
 modules: []

diff --git a/src/core/a-lib.c b/src/core/a-lib.c
@@ -449,6 +449,7 @@ extern int Do_Callback(REBSER *obj, u32 name, RXIARG *args, RXIARG *result);
 	REBVAL *top = DS_VALUE(dsp+1);
 	REBOL_STATE state;
 	REBVAL *types;
+	REBVAL *last;
 
 	if (dsp != 0) Debug_Fmt(Str_Stack_Misaligned, dsp);
 
@@ -487,7 +488,9 @@ extern int Do_Callback(REBSER *obj, u32 name, RXIARG *args, RXIARG *result);
 			}
 		}
 	}
-
+	// store last result in system/state/last-result
+	last = Get_System(SYS_STATE, STATE_LAST_RESULT);
+	*last = *top;
 	POP_STATE(state, Saved_State);
 	DSP = 0;
 }