X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Fscan.c;h=94437d9dd8af5b6967fa5235d4765d5af3467c18;hb=d26105c398be227dc38668ce3e742c31adef15f7;hp=573a00df9d327f42445cda0c7ccb6492bc093f95;hpb=9ecd5482c0847e65b012509008deb1a19e501c67;p=pspp

diff --git a/src/language/lexer/scan.c b/src/language/lexer/scan.c
index 573a00df9d..94437d9dd8 100644
--- a/src/language/lexer/scan.c
+++ b/src/language/lexer/scan.c
@@ -453,6 +453,11 @@ scan_start__ (struct scanner *scanner, enum segment_type type,
       ss_alloc_substring (&token->string, s);
       return SCAN_DONE;
 
+    case SEG_MACRO_ID:
+      token->type = T_MACRO_ID;
+      ss_alloc_substring (&token->string, s);
+      return SCAN_DONE;
+
     case SEG_PUNCT:
       if (s.length == 1 && s.string[0] == '-')
         {