X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Fsegment.c;h=a4fea0b213118559d474b94a2bc4efa4008ff0d0;hb=74709d3f6d7c102bb3226f7f132c8be78ce8e8c2;hp=1a8e8a6b5fb54c479ba988855777aaf3834b0432;hpb=421c90786d418ace10083d6b48a041f2459a56f2;p=pspp

diff --git a/src/language/lexer/segment.c b/src/language/lexer/segment.c
index 1a8e8a6b5f..a4fea0b213 100644
--- a/src/language/lexer/segment.c
+++ b/src/language/lexer/segment.c
@@ -1512,7 +1512,10 @@ segmenter_parse_define_2__ (struct segmenter *s,
     {
       s->nest--;
       if (!s->nest)
-        s->state = S_DEFINE_3;
+        {
+          s->state = S_DEFINE_3;
+          s->substate = 0;
+        }
       return ofs;
     }
 
@@ -1554,9 +1557,15 @@ segmenter_parse_define_3__ (struct segmenter *s,
 
          The line might be blank, whether completely empty or just spaces and
          comments.  That's OK: we need to report blank lines because they can
-         have significance. */
-      *type = SEG_MACRO_BODY;
+         have significance.
+
+         However, if the first line of the macro body (the same line as the
+         closing parenthesis in the argument definition) is blank, we just
+         report it as spaces because it's not significant. */
+      *type = (s->substate == 0 && is_all_spaces (input, ofs)
+               ? SEG_SPACES : SEG_MACRO_BODY);
       s->state = S_DEFINE_4;
+      s->substate = 1;
       return ofs;
     }
   else