X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fcontrol%2Fdefine.c;h=6c71f02c09e3986d40f5f35011a8590d1be6b210;hb=db57300f720b0916461aad06cec4d268481f06e0;hp=686685fc9cb313c5e7b4456eedd021ccbcab050b;hpb=c94be33beb7085e1cbb1ec47f0e3a49c896d443b;p=pspp

diff --git a/src/language/control/define.c b/src/language/control/define.c
index 686685fc9c..6c71f02c09 100644
--- a/src/language/control/define.c
+++ b/src/language/control/define.c
@@ -221,3 +221,13 @@ error:
   macro_destroy (m);
   return CMD_FAILURE;
 }
+
+int
+cmd_debug_expand (struct lexer *lexer, struct dataset *ds UNUSED)
+{
+  settings_set_mprint (true);
+
+  while (lex_token (lexer) != T_STOP)
+    lex_get (lexer);
+  return CMD_SUCCESS;
+}