Mercurial > hg > octave-nkf

diff src/g-builtins.cc @ 51:7806354a10d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-11 20:48:00 by jwe]
author jwe
date Wed, 11 Aug 1993 20:50:40 +0000
parents 80ea39e3c917
children e2c950dd96d2
line wrap: on
line diff
--- a/src/g-builtins.cc
+++ b/src/g-builtins.cc
@@ -51,6 +51,7 @@
 #include "f-dassl.h"
 #include "f-det.h"
 #include "f-eig.h"
+#include "f-expm.h"
 #include "f-fft.h"
 #include "f-fsolve.h"
 #include "f-fsqp.h"
@@ -481,7 +482,11 @@
   tree_constant *retval = NULL_TREE_CONST;
 
   if (nargin == 2)
-    retval = matrix_exp (args[1]);
+    DLD_BUILTIN (args, nargin, nargout, matrix_exp,
+		 {
+		   retval = new tree_constant [2];
+		   retval[0] = matrix_exp (args[1]);
+		 })
   else
     usage ("expm (A)");