X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=rrqforth.asm;h=5187c902a06c7a202b08a4292bb98482d2a897e6;hb=d7958ae7b474ef357864237fc40412139e43b117;hp=894e4b440bcb5e2d890020dd87a2577e7890aa9d;hpb=db6e817c829978cd176b689fa827b2e9e689978f;p=rrq%2Frrqforth.git

diff --git a/rrqforth.asm b/rrqforth.asm
index 894e4b4..5187c90 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -133,7 +133,12 @@ previous_word = 0
 	pop rax
 	jmp qword [rax]		; goto code of that FORTH word (64 bit jump)
 	
-	WORD p_exit, 'EXIT',fasm
+	WORD p_sysexit, 'EXIT',
+	;; ( v -- )
+	;; Terminate RRQFORTH with error code
+	dq sys_exit
+
+	WORD p_return, 'RETURN',fasm
 	;; ( -- ) ( R: addr -- )
 	;; Returns execution to the calling definition as per the
 	;; return stack.