[Maxima-commits] [git] Maxima CAS branch, master, updated. branch-5_38-base-97-g73e2f0f

[Kris K. <kj...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Maxima CAS".

The branch, master has been updated
       via  73e2f0f75238de98294609927f6b1cd938f4c69c (commit)
       via  df9a5ac5cd55563606bdd781920267b7e13a3f42 (commit)
      from  f9051b6ecbd468b5907dfa1c52cfa15f547407ba (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 73e2f0f75238de98294609927f6b1cd938f4c69c
Author: Kris Katterjohn <kat...@gm...>
Date:   Tue Jun 14 21:40:21 2016 -0500

    Fix/update a couple of comments
    
    The hash table *FLONUM-OP* has been renamed more than once, but the
    comments were not being updated (or were being updated incorrectly).
    Also, while I'm at it, mention the hash table *BIG-FLOAT-OP*.

diff --git a/src/trigi.lisp b/src/trigi.lisp
index 09e8392..aeb5f7c 100644
--- a/src/trigi.lisp
+++ b/src/trigi.lisp
@@ -95,8 +95,8 @@
 (defun domain-error (x f)
   (merror (intl:gettext "~A: argument ~:M isn't in the domain of ~A.") f (complexify x) f))
 
-;; Build a hash table 'cl-flonum-op' that maps Maxima function names 
-;; to their CL equivalents. 
+;; Build hash tables '*flonum-op*' and '*big-float-op*' that map Maxima
+;; function names to their corresponding Lisp functions.
 
 (defvar *flonum-op* (make-hash-table :size 64)
   "Hash table mapping a maxima function to a corresponding Lisp
@@ -382,7 +382,7 @@
 ;; When z is a Maxima complex float or when 'numer' is true and z is a
 ;; Maxima complex number, evaluate (op z) by applying the mapping from
 ;; the Maxima operator 'op' to the operator in the hash table
-;; 'flonum-op'. When z isn't a Maxima complex number, return
+;; '*flonum-op*'. When z isn't a Maxima complex number, return
 ;; nil.
 
 (defun flonum-eval (op z)

commit df9a5ac5cd55563606bdd781920267b7e13a3f42
Author: Kris Katterjohn <kat...@gm...>
Date:   Tue Jun 14 21:20:48 2016 -0500

    Fix error message in BF-INVERSE-ERFC (wrong function names)

diff --git a/src/gamma.lisp b/src/gamma.lisp
index f839ddb..1302480 100755
--- a/src/gamma.lisp
+++ b/src/gamma.lisp
@@ -2794,7 +2794,7 @@
 (defun bf-inverse-erfc (z)
   (cond ((zerop z)
 	 (maxima::merror
-	  (intl:gettext "bf-inverse-erf: inverse_erf(~M) is undefined")
+	  (intl:gettext "bf-inverse-erfc: inverse_erfc(~M) is undefined")
 	  z))
 	((= z 1)
 	 (float 0 z))

-----------------------------------------------------------------------

Summary of changes:
 src/gamma.lisp |    2 +-
 src/trigi.lisp |    6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
Maxima CAS