Mercurial > hg > octave-lyh

diff src/help.cc @ 2962:5e0fe4c5d52f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-05-12 03:13:57 by jwe]
author jwe
date Mon, 12 May 1997 03:21:56 +0000
parents 66ef74ee5d9f
children 641689f67673
line wrap: on
line diff
--- a/src/help.cc
+++ b/src/help.cc
@@ -53,6 +53,7 @@
 #include "help.h"
 #include "input.h"
 #include "oct-obj.h"
+#include "oct-usr-fcn.h"
 #include "pager.h"
 #include "pathsearch.h"
 #include "pt-pr-code.h"
@@ -718,7 +719,7 @@
 }
 
 DEFUN_TEXT (type, args, nargout,
-  "type NAME ...]\n\
+  "type NAME\n\
 \n\
 display the definition of each NAME that refers to a function")
 {
@@ -782,7 +783,10 @@
 	    {
 	      if (sym_rec->is_user_function ())
 		{
-		  octave_symbol *defn = sym_rec->def ();
+		  octave_symbol *tmp = sym_rec->def ();
+
+		  octave_user_function *defn
+		    = static_cast<octave_user_function *> (tmp);
 
 		  string fn = defn->fcn_file_name ();
 		  string ff = fcn_file_in_path (fn);
@@ -815,8 +819,7 @@
 
 		      tree_print_code tpc (output_buf, "", pr_orig_txt);
 
-		      // XXX FIXME XXX
-		      // defn->accept (tpc);
+		      defn->accept (tpc);
 		    }
 		}