We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent a551314 commit c87742bCopy full SHA for c87742b
src/core/l-scan.c
@@ -1285,6 +1285,7 @@ extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
1285
break;
1286
1287
case TOKEN_ISSUE:
1288
+#ifdef USE_EMPTY_HASH_AS_NONE
1289
if (len == 1) {
1290
if (bp[1] == '(') {token = TOKEN_CONSTRUCT; goto syntax_error;}
1291
SET_NONE(value); // A single # means NONE
@@ -1293,6 +1294,10 @@ extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
1293
1294
VAL_SET(value, REB_ISSUE); // NO_FRAME
1295
if (!(VAL_WORD_SYM(value) = Scan_Issue(bp+1, len-1))) goto syntax_error;
1296
}
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
1301
1302
1303
case TOKEN_BLOCK:
0 commit comments