Skip to content

Commit 7bce104

Browse files
committed
CHANGE: removed the quit/now option
resolves: Oldes/Rebol-issues#1743
1 parent fe70ad4 commit 7bce104

File tree

3 files changed

+12
-11
lines changed

3 files changed

+12
-11
lines changed

src/core/n-system.c

+9-8
Original file line numberDiff line numberDiff line change
@@ -55,14 +55,15 @@
5555
{
5656
REBVAL *val = D_ARG(2);
5757

58-
if (D_REF(3)) {
59-
REBINT n = 0;
60-
if (D_REF(1)) {
61-
if (IS_INTEGER(val)) n = Int32(val);
62-
else if (IS_TRUE(val)) n = 100;
63-
}
64-
OS_EXIT(n);
65-
}
58+
/* not using quit/now anymore... see https://github.com/Oldes/Rebol-issues/issues/1743 */
59+
//if (D_REF(3)) {
60+
// REBINT n = 0;
61+
// if (D_REF(1)) {
62+
// if (IS_INTEGER(val)) n = Int32(val);
63+
// else if (IS_TRUE(val)) n = 100;
64+
// }
65+
// OS_EXIT(n);
66+
//}
6667

6768
Halt_Code(RE_QUIT, val); // NONE if /return not set
6869
DEAD_END;

src/mezz/mezz-secure.reb

+1-1
Original file line numberDiff line numberDiff line change
@@ -70,7 +70,7 @@ secure: function/with [
7070
; Check if SECURE is secured:
7171
if pol-obj/secure <> 0.0.0 [
7272
if pol-obj/secure == 'throw [cause-error 'access 'security :policy]
73-
quit/now/return 101 ; an arbitrary code
73+
quit/return 101 ; an arbitrary code
7474
]
7575

7676
; Bulk-set all policies:

src/mezz/sys-start.reb

+2-2
Original file line numberDiff line numberDiff line change
@@ -139,7 +139,7 @@ start: func [
139139
;-- User is requesting usage info:
140140
if flags/help [
141141
lib/usage
142-
unless flags/halt [quit/now]
142+
unless flags/halt [quit]
143143
quiet: true
144144
]
145145

@@ -210,7 +210,7 @@ start: func [
210210
;-- Evaluate: --do "some code" if found
211211
if do-arg [
212212
do intern load/all do-arg
213-
unless script [quit/now]
213+
unless script [quit]
214214
]
215215

216216
;-- Evaluate script argument?

0 commit comments

Comments
 (0)