CHANGE: removed the quit/now option

resolves: Oldes/Rebol-issues#1743
Oldes · May 28, 2023 · 7bce104 · 7bce104
1 parent fe70ad4
commit 7bce104
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 11 deletions.
diff --git a/src/core/n-system.c b/src/core/n-system.c
@@ -55,14 +55,15 @@
 {
 	REBVAL *val = D_ARG(2);
 
-	if (D_REF(3)) {
-		REBINT n = 0;
-		if (D_REF(1)) {
-			if (IS_INTEGER(val)) n = Int32(val);
-			else if (IS_TRUE(val)) n = 100;
-		}
-		OS_EXIT(n);
-	}
+	/* not using quit/now anymore... see https://github.com/Oldes/Rebol-issues/issues/1743 */
+	//if (D_REF(3)) {
+	//	REBINT n = 0;
+	//	if (D_REF(1)) {
+	//		if (IS_INTEGER(val)) n = Int32(val);
+	//		else if (IS_TRUE(val)) n = 100;
+	//	}
+	//	OS_EXIT(n);
+	//}
 
 	Halt_Code(RE_QUIT, val); // NONE if /return not set
 	DEAD_END;

diff --git a/src/mezz/mezz-secure.reb b/src/mezz/mezz-secure.reb
@@ -70,7 +70,7 @@ secure: function/with [
 	; Check if SECURE is secured:
 	if pol-obj/secure <> 0.0.0 [
 		if pol-obj/secure == 'throw [cause-error 'access 'security :policy]
-		quit/now/return 101 ; an arbitrary code
+		quit/return 101 ; an arbitrary code
 	]
 
 	; Bulk-set all policies:

diff --git a/src/mezz/sys-start.reb b/src/mezz/sys-start.reb
@@ -139,7 +139,7 @@ start: func [
 		;-- User is requesting usage info:
 		if flags/help [
 			lib/usage
-			unless flags/halt [quit/now]
+			unless flags/halt [quit]
 			quiet: true
 		]
 
@@ -210,7 +210,7 @@ start: func [
 	;-- Evaluate: --do "some code" if found
 	if do-arg [
 		do intern load/all do-arg
-		unless script [quit/now]
+		unless script [quit]
 	]
 
 	;-- Evaluate script argument?