Skip to content

Commit c87742b

Browse files
committed
CHANGE: lone hash sign is not none! anymore (if not defined using USE_EMPTY_HASH_AS_NONE define) to be compatible with Red language
relates to: metaeducation/rebol-issues#2297
1 parent a551314 commit c87742b

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

src/core/l-scan.c

+5
Original file line numberDiff line numberDiff line change
@@ -1285,6 +1285,7 @@ extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
12851285
break;
12861286

12871287
case TOKEN_ISSUE:
1288+
#ifdef USE_EMPTY_HASH_AS_NONE
12881289
if (len == 1) {
12891290
if (bp[1] == '(') {token = TOKEN_CONSTRUCT; goto syntax_error;}
12901291
SET_NONE(value); // A single # means NONE
@@ -1293,6 +1294,10 @@ extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
12931294
VAL_SET(value, REB_ISSUE); // NO_FRAME
12941295
if (!(VAL_WORD_SYM(value) = Scan_Issue(bp+1, len-1))) goto syntax_error;
12951296
}
1297+
#else
1298+
VAL_SET(value, REB_ISSUE); // NO_FRAME
1299+
if (!(VAL_WORD_SYM(value) = Scan_Issue(bp+1, len-1))) goto syntax_error;
1300+
#endif
12961301
break;
12971302

12981303
case TOKEN_BLOCK:

0 commit comments

Comments
 (0)