File tree 3 files changed +12
-11
lines changed
3 files changed +12
-11
lines changed Original file line number Diff line number Diff line change 55
55
{
56
56
REBVAL * val = D_ARG (2 );
57
57
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
+ //}
66
67
67
68
Halt_Code (RE_QUIT , val ); // NONE if /return not set
68
69
DEAD_END ;
Original file line number Diff line number Diff line change @@ -70,7 +70,7 @@ secure: function/with [
70
70
; Check if SECURE is secured:
71
71
if pol-obj/secure <> 0.0.0 [
72
72
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
74
74
]
75
75
76
76
; Bulk-set all policies:
Original file line number Diff line number Diff line change @@ -139,7 +139,7 @@ start: func [
139
139
;-- User is requesting usage info:
140
140
if flags/help [
141
141
lib/usage
142
- unless flags/halt [quit /now ]
142
+ unless flags/halt [quit]
143
143
quiet: true
144
144
]
145
145
@@ -210,7 +210,7 @@ start: func [
210
210
;-- Evaluate: --do "some code" if found
211
211
if do-arg [
212
212
do intern load/all do-arg
213
- unless script [quit /now ]
213
+ unless script [quit]
214
214
]
215
215
216
216
;-- Evaluate script argument?
You can’t perform that action at this time.
0 commit comments