X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Fscan.c;h=2ad467d978bde55ae2a7dc2330b75b831cb3851c;hb=65c76af5768d836d91b79d87702f9b4e004c18aa;hp=cae523cb37efbe83fc71ba8bbba1aa28b735309f;hpb=ed109bf498216cef15a3cbf180827dc8b20eff0b;p=pspp

diff --git a/src/language/lexer/scan.c b/src/language/lexer/scan.c
index cae523cb37..2ad467d978 100644
--- a/src/language/lexer/scan.c
+++ b/src/language/lexer/scan.c
@@ -441,6 +441,7 @@ scan_start__ (struct scanner *scanner, enum segment_type type,
     case SEG_DO_REPEAT_COMMAND:
     case SEG_INLINE_DATA:
     case SEG_DOCUMENT:
+    case SEG_MACRO_BODY:
       token->type = T_STRING;
       ss_alloc_substring (&token->string, s);
       return SCAN_DONE;