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

diff --git a/src/language/lexer/scan.c b/src/language/lexer/scan.c
index 94437d9dd8..cae523cb37 100644
--- a/src/language/lexer/scan.c
+++ b/src/language/lexer/scan.c
@@ -324,6 +324,7 @@ scan_punct1__ (char c0)
     case '<': return T_LT;
     case '>': return T_GT;
     case '~': return T_NOT;
+    default: return T_MACRO_PUNCT;
     }
 
   NOT_REACHED ();
@@ -467,6 +468,8 @@ scan_start__ (struct scanner *scanner, enum segment_type type,
       else
         {
           token->type = scan_punct__ (s);
+          if (token->type == T_MACRO_PUNCT)
+            ss_alloc_substring (&token->string, s);
           return SCAN_DONE;
         }