expressions: Improve "type mismatch" error messages from expression parser.

[pspp] / src / language / expressions / parse.incpl

diff --git a/src/language/expressions/parse.incpl b/src/language/expressions/parse.incpl
index 4e7243c16086b8c8efb0d1e6c6ce2f36c13c4ee2..7f9af1b92f26f2dd6b4fbd6e9d6852208ce1349e 100644 (file)
--- a/src/language/expressions/parse.incpl
+++ b/src/language/expressions/parse.incpl
@@ -12,9 +12,9 @@ sub generate_output {
        next if $type->{ROLE} eq 'fixed';
 
        my ($human_name) = $type->{HUMAN_NAME};
-       $human_name = "" if !defined $human_name;
+       $human_name = $type->{NAME} if !defined $human_name;
        
-       my (@members) = ("\"$type->{NAME}\"", "\"\"",
+       my (@members) = ("\"$type->{NAME}\"", "\"$human_name\"",
                         0, "OP_$type->{NAME}", 0, "{}", 0, 0);
        print "{", join (', ', @members), "},\n";
     }