FIX: code cleanup

Oldes · Jul 4, 2022 · d61afeb · d61afeb
1 parent 0ff7ae0
commit d61afeb
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/core/c-do.c b/src/core/c-do.c
@@ -878,9 +878,13 @@ x*/	static REBINT Do_Args_Light(REBVAL *func, REBVAL *path, REBSER *block, REBCN
 	case ET_WORD:
 		value = Get_Var(word = value);
 		if (IS_UNSET(value)) Trap1(RE_NO_VALUE, word);
-		if (VAL_TYPE(value) >= REB_NATIVE && VAL_TYPE(value) <= REB_FUNCTION) goto reval; // || IS_LIT_PATH(value)
+		if (ANY_FUNC(value)) goto reval;
 		DS_PUSH(value);
-		if (IS_LIT_WORD(value)) VAL_SET(DS_TOP, REB_WORD);
+
+		// Following line was added by Atronix, but I don't know why.
+		//if (IS_LIT_WORD(value)) VAL_SET(DS_TOP, REB_WORD);
+		// `b: quote 'a  b` would return just `a` in console, while in R2 and Red it is `'a`
+
 		if (IS_FRAME(value)) Init_Obj_Value(DS_TOP, VAL_WORD_FRAME(word));
 		index++;
 		break;