Skip to content

Commit 690dffa

Browse files
committed
FEAT: REDUCE/NO-SET working also with set-path!
fixes: metaeducation/rebol-issues#2122 >> reduce/no-set [x/1: now/date] == [x/1: 9-Jun-2018]
1 parent 3385185 commit 690dffa

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/core/c-do.c

+2-1
Original file line numberDiff line numberDiff line change
@@ -1182,7 +1182,8 @@ x*/ static REBINT Do_Args_Light(REBVAL *func, REBVAL *path, REBSER *block, REBCN
11821182
REBVAL *val;
11831183

11841184
while (index < BLK_LEN(block)) {
1185-
if (IS_SET_WORD(val = BLK_SKIP(block, index))) {
1185+
val = BLK_SKIP(block, index);
1186+
if (IS_SET_WORD(val) || IS_SET_PATH(val)) {
11861187
DS_PUSH(val);
11871188
index++;
11881189
} else

0 commit comments

Comments
 (0)