From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sun, 7 May 2023 15:05:17 +0000 (-0700)
Subject: MATRIX DATA: Allow slash before initial VARIABLES subcommand.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=793561d9e308fff58ef2f02096ac73a11f4633f6;p=pspp

MATRIX DATA: Allow slash before initial VARIABLES subcommand.
---

diff --git a/src/language/commands/matrix-data.c b/src/language/commands/matrix-data.c
index a1c2307885..8c8c45bc88 100644
--- a/src/language/commands/matrix-data.c
+++ b/src/language/commands/matrix-data.c
@@ -829,6 +829,7 @@ parse_data_without_rowtype (const struct matrix_format *mf,
 static struct dictionary *
 parse_matrix_data_variables (struct lexer *lexer)
 {
+  lex_match (lexer, T_SLASH);
   if (!lex_force_match_id (lexer, "VARIABLES"))
     return NULL;
   lex_match (lexer, T_EQUALS);
diff --git a/tests/language/commands/matrix-data.at b/tests/language/commands/matrix-data.at
index 8159d149c7..1e8e3f84bf 100644
--- a/tests/language/commands/matrix-data.at
+++ b/tests/language/commands/matrix-data.at
@@ -20,7 +20,7 @@ dnl Keep this test in sync with Example 1 in doc/matrices.texi.
 AT_SETUP([MATRIX DATA - LOWER DIAGONAL with ROWTYPE_])
 AT_DATA([matrix-data.sps], [dnl
 MATRIX DATA
-    VARIABLES=ROWTYPE_ var01 TO var08
+    /VARIABLES=ROWTYPE_ var01 TO var08
     /FILE='matrix-data.txt'.
 FORMATS var01 TO var08(F5.2).
 LIST.