Fixed a howler with pluralism --- impossible to internationalise

[pspp] / src / expr-evl.c

diff --git a/src/expr-evl.c b/src/expr-evl.c
index dc017a594b1ef5366c06600e1ed15121d1c24144..e750b18e4c3c6aa372572fbc0aff5bedbcfe2ada 100644 (file)
--- a/src/expr-evl.c
+++ b/src/expr-evl.c
@@ -1202,11 +1202,11 @@ expr_evaluate (struct expression *e, struct ccase *c, union value *v)
          break;
        case OP_NORMAL:
          if (sp->f != SYSMIS)
-           sp->f = rand_normal (sp->f);
+           sp->f *= rng_get_double_normal (pspp_rng ());
          break;
        case OP_UNIFORM:
          if (sp->f != SYSMIS)
-           sp->f = rand_uniform (sp->f);
+           sp->f *= rng_get_double (pspp_rng ());
          break;
        case OP_SYSMIS:
          if (sp[0].f == SYSMIS || !finite (sp[0].f))