Skip to content

Commit d61afeb

Browse files
committed
FIX: code cleanup
1 parent 0ff7ae0 commit d61afeb

File tree

1 file changed

+6
-2
lines changed

1 file changed

+6
-2
lines changed

src/core/c-do.c

+6-2
Original file line numberDiff line numberDiff line change
@@ -878,9 +878,13 @@ x*/ static REBINT Do_Args_Light(REBVAL *func, REBVAL *path, REBSER *block, REBCN
878878
case ET_WORD:
879879
value = Get_Var(word = value);
880880
if (IS_UNSET(value)) Trap1(RE_NO_VALUE, word);
881-
if (VAL_TYPE(value) >= REB_NATIVE && VAL_TYPE(value) <= REB_FUNCTION) goto reval; // || IS_LIT_PATH(value)
881+
if (ANY_FUNC(value)) goto reval;
882882
DS_PUSH(value);
883-
if (IS_LIT_WORD(value)) VAL_SET(DS_TOP, REB_WORD);
883+
884+
// Following line was added by Atronix, but I don't know why.
885+
//if (IS_LIT_WORD(value)) VAL_SET(DS_TOP, REB_WORD);
886+
// `b: quote 'a b` would return just `a` in console, while in R2 and Red it is `'a`
887+
884888
if (IS_FRAME(value)) Init_Obj_Value(DS_TOP, VAL_WORD_FRAME(word));
885889
index++;
886890
break;

0 commit comments

Comments
 (0)