X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fxforms%2Frecode.c;h=83d48553479b9e0f0f91dc1c5b201d15602a6064;hb=f4810d3c8656b3b3ab26303d2dae70fc361db7fb;hp=b0a6b7321bfe137cf03bfd596d168c854c9267f0;hpb=57ae432c7cdd2c8a69fdc561f757863fa535db76;p=pspp

diff --git a/src/language/xforms/recode.c b/src/language/xforms/recode.c
index b0a6b7321b..83d4855347 100644
--- a/src/language/xforms/recode.c
+++ b/src/language/xforms/recode.c
@@ -313,6 +313,12 @@ parse_map_in (struct lexer *lexer, struct map_in *in, struct pool *pool,
         return false;
       set_map_in_str (in, pool, lex_tokstr (lexer), max_src_width);
       lex_get (lexer);
+      if (lex_token (lexer) == T_ID
+          && lex_id_match (ss_cstr ("THRU"), ss_cstr (lex_tokid (lexer)))) 
+        {
+          msg (SE, _("THRU is not allowed with string variables."));
+          return false; 
+        }
     }
 
   return true;