X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Flexer.c;h=534ed077e1b2a6ae3d54f13c7241100a9f583bd9;hb=350d60cd9a6515950c1a6c745cfafcbd2206bee0;hp=f577c598b89c9bf5a0ce939e94476feef5cfd417;hpb=db57300f720b0916461aad06cec4d268481f06e0;p=pspp

diff --git a/src/language/lexer/lexer.c b/src/language/lexer/lexer.c
index f577c598b8..534ed077e1 100644
--- a/src/language/lexer/lexer.c
+++ b/src/language/lexer/lexer.c
@@ -216,6 +216,7 @@ lex_push_token__ (struct lex_source *src)
 
   token = &src->tokens[deque_push_front (&src->deque)];
   token->token = (struct token) { .type = T_STOP };
+  token->from_macro = false;
   return token;
 }
 
@@ -972,6 +973,12 @@ lex_next_representation (const struct lexer *lexer, int n0, int n1)
   return lex_source_get_syntax__ (lex_source__ (lexer), n0, n1);
 }
 
+bool
+lex_next_is_from_macro (const struct lexer *lexer, int n)
+{
+  return lex_next__ (lexer, n)->from_macro;
+}
+
 static bool
 lex_tokens_match (const struct token *actual, const struct token *expected)
 {