projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
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)
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))
break;
case OP_SYSMIS:
if (sp[0].f == SYSMIS || !finite (sp[0].f))