Corrected logical errors in tests for error conditions.

[pspp] / src / language / expressions / generate.pl

diff --git a/src/language/expressions/generate.pl b/src/language/expressions/generate.pl
index def34255c838d780cb1c30845e677ca196ca1948..c8fdf4c1d3b7e265412686310946040147b1f698 100644 (file)
--- a/src/language/expressions/generate.pl
+++ b/src/language/expressions/generate.pl
@@ -66,7 +66,7 @@ our ($toktype);
 sub init_all_types {
     # Common user-visible types used throughout evaluation trees.
     init_type ('number', 'any', C_TYPE => 'double',
-              ATOM => 'number', MANGLE => 'n', HUMAN_NAME => 'num',
+              ATOM => 'number', MANGLE => 'n', HUMAN_NAME => 'number',
               STACK => 'ns', MISSING_VALUE => 'SYSMIS');
     init_type ('string', 'any', C_TYPE => 'struct substring',
               ATOM => 'string', MANGLE => 's', HUMAN_NAME => 'string',