DISPLAY MACROS: New command.

[pspp] / src / language / lexer / lexer.c

diff --git a/src/language/lexer/lexer.c b/src/language/lexer/lexer.c
index 35a9afa381f038968fafb27c05a87d57e408b176..d22985c7e5350f7e374d1b78f5613890eedd957d 100644 (file)
--- a/src/language/lexer/lexer.c
+++ b/src/language/lexer/lexer.c
@@ -362,6 +362,13 @@ lex_define_macro (struct lexer *lexer, struct macro *m)
   macro_set_add (lexer->macros, m);
 }
 
+/* Returns LEXER's macro set.  The caller should not modify it. */
+const struct macro_set *
+lex_get_macros (const struct lexer *lexer)
+{
+  return lexer->macros;
+}
+
 /* Inserts READER into LEXER so that the next token read by LEXER comes from
    READER.  Before the caller, LEXER must either be empty or at a T_ENDCMD
    token. */