Mercurial > hg > octave-lyh

diff src/help.cc @ 2124:97a566037a75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-05-12 07:16:36 by jwe]
author jwe
date Sun, 12 May 1996 07:16:36 +0000
parents 36903d507b0e
children 0bddc913621b
line wrap: on
line diff
--- a/src/help.cc
+++ b/src/help.cc
@@ -49,6 +49,7 @@
 #include "pathsearch.h"
 #include "pt-const.h"
 #include "pt-exp.h"
+#include "pt-pr-code.h"
 #include "sighandlers.h"
 #include "symtab.h"
 #include "toplev.h"
@@ -754,7 +755,9 @@
 		  if (nargout == 0 && ! quiet)
 		    output_buf << argv[i] << " is a user-defined function\n";
 
-		  defn->print_code (output_buf);
+		  tree_print_code tpc (output_buf);
+
+		  defn->accept (tpc);
 		}
 
 	      // XXX FIXME XXX -- this code should be shared with
@@ -808,7 +811,9 @@
 		    }
 		  if (! tmp->is_map ())
 		    {
-		      tmp->print_code (output_buf);
+		      tree_print_code tpc (output_buf);
+
+		      tmp->accept (tpc);
 
 		      if (nargout == 0)
 			output_buf << "\n";