Skip to content

Commit 88de502

Browse files
committed
FIX: unset action native after boot.
This native is only for internal boot initialization. Using it after boot would crash. Fixes: Oldes/Rebol-issues#599
1 parent ef4d4e5 commit 88de502

File tree

2 files changed

+8
-0
lines changed

2 files changed

+8
-0
lines changed

src/mezz/base-funcs.r

+4
Original file line numberDiff line numberDiff line change
@@ -119,5 +119,9 @@ default: func [
119119
unless all [value? word not none? get word] [set word :value] :value
120120
]
121121

122+
;@@ https://github.com/Oldes/Rebol-issues/issues/599
123+
unset 'action ; this native was only for internal use, co unset it now!
124+
125+
122126
;secure: func ['d] [boot-print "SECURE is disabled"]
123127

src/tests/units/crash-test.r3

+4
Original file line numberDiff line numberDiff line change
@@ -53,6 +53,10 @@ Rebol [
5353
--assert not error? try [mold 1.7976931348623157E+308] ;- no crash!
5454
system/options/decimal-digits: d
5555

56+
--test-- "issue-599"
57+
;@@ https://github.com/Oldes/Rebol-issues/issues/599
58+
--assert error? try [action []] ;- no crash!
59+
--assert error? try [make action! []]
5660

5761
===end-group===
5862

0 commit comments

Comments
 (0)