[Maxima-commits] Maxima, A Computer Algebra System branch master updated. 5.28.0-42-gd1c7ba1

[Mario R. R. <rio...@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, A Computer Algebra System".

The branch, master has been updated
       via  d1c7ba16312a49069c5f2a03691b5fe38c942ed3 (commit)
      from  663a0e051e22ae3d0094cfa350a863832cc87c95 (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 d1c7ba16312a49069c5f2a03691b5fe38c942ed3
Author: Mario Rodriguez <rio...@us...>
Date:   Sat Sep 8 09:33:30 2012 +0200

    Add function title_inference

diff --git a/share/stats/inference_result.lisp b/share/stats/inference_result.lisp
index 392d0ff..75c0469 100644
--- a/share/stats/inference_result.lisp
+++ b/share/stats/inference_result.lisp
@@ -1,6 +1,6 @@
 ;;                 COPYRIGHT NOTICE
 ;;  
-;;  Copyright (C) 2006 Mario Rodriguez Riotorto
+;;  Copyright (C) 2006-2012 Mario Rodriguez Riotorto
 ;;  
 ;;  This program is free software; you can redistribute
 ;;  it and/or modify it under the terms of the
@@ -21,7 +21,6 @@
 ;; For questions, suggestions, bugs and the like, feel free
 ;; to contact me at
 ;; mario @@@ edu DOT xunta DOT es
-;; www.biomates.net
 
 (in-package :maxima)
 
@@ -211,3 +210,11 @@
                      (merror "Wrong label in 'take_inference' call")
                      (caddr (nth m (cdaddr obj)))))))
       (merror "Wrong object in 'take_inference' call")  ))
+
+
+;;  Returns the title of the 'inference_result' object
+(defun $title_inference (obj)
+  (if ($inferencep obj)
+    (second obj)
+    (merror "Wrong object in 'title_inference' call")) )
+

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

Summary of changes:
 share/stats/inference_result.lisp |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
Maxima, A Computer Algebra System