Fix #2783 (natural/napierian logarithm)

diff --git a/qcsrc/common/command/rpn.qc b/qcsrc/common/command/rpn.qc
index 7c944aa0feacc98e6875b38f31f563a769ff80e1..01e7c515f71e1c7fa6ebb7d1b83721e16e5e3045 100644 (file)
--- a/qcsrc/common/command/rpn.qc
+++ b/qcsrc/common/command/rpn.qc
@@ -213,7 +213,7 @@ void GenericCommand_rpn(int request, int argc, string command)
                                        } else if(rpncmd == "exp") {
                                                rpn_setf(exp(rpn_getf()));
                                        } else if(rpncmd == "log") {
-                                               rpn_setf(exp(rpn_getf()));
+                                               rpn_setf(log(rpn_getf()));
                                        } else if(rpncmd == "sin") {
                                                rpn_setf(sin(rpn_getf()));
                                        } else if(rpncmd == "cos") {