OverviewFilesCommitsIssuesDocsReleasesPeers

opencog-matrix commits / c533d86

guile croaks on (finite? +nan.0-4.532360141827193i)
c533d861ef4845fd42b52a32ec5f940b4b0c4a15
by Linas Vepštas <linasvepstas@gmail.com> · 2024-05-06T17:04:00.000Z

Changed files (1) +1 -1

opencog/matrix/frequency.scm +1 -1
……@@ -130,7 +130,7 @@
130130 ; 1.4426950408889634 is 1/0.6931471805599453 is 1/log 2
131131 (define ln2 (* -1.4426950408889634 (log FREQ)))
132132 ; zero log zero is zero, not NaN. ln2 zero is +inf.0 which is OK.
133 (define ent (if (finite? ln2) (* FREQ ln2) 0))
133 (define ent (if (and (real? ln2) (finite? ln2)) (* FREQ ln2) 0))
134134 (cog-set-value! ATOM freq-key (FloatValue FREQ ln2 ent)))
135135
136136 ; ----------------------------------------------------