Merge pull request #2614 from AmeBel/psi

An openpsi udate
opencog · Feb 15, 2017 · f379e07 · f379e07
2 parents 7a0b938 + 119137d
commit f379e07
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/opencog/openpsi/action-selector.scm b/opencog/openpsi/action-selector.scm
@@ -199,7 +199,8 @@
     (define total-weight (accum-weight sorted-rules))
 
     ; Pick a number from 0.0 to total-weight.
-    (define cutoff (* total-weight (random:uniform)))
+    (define cutoff (* total-weight
+        (random:uniform (random-state-from-platform))))
 
     ; Recursively move through the list of rules, until the
     ; sum of the weights of the rules exceeds the cutoff.