Mercurial > hg > octave-nkf

diff src/octave.cc @ 7336:745a8299c2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-28 20:56:55 by jwe]
author jwe
date Fri, 28 Dec 2007 20:56:58 +0000
parents ffdbdf53665c
children 78f3811155f7
line wrap: on
line diff
--- a/src/octave.cc
+++ b/src/octave.cc
@@ -189,15 +189,13 @@
 static void
 intern_argv (int argc, char **argv)
 {
-  symbol_record *nargin_sr = top_level_sym_tab->lookup ("__nargin__", true);
+  symbol_table::varref (".nargin.", symbol_table::top_scope ()) = argc - 1;
 
-  nargin_sr->mark_as_static ();
-
-  nargin_sr->define (argc-1);
+  symbol_table::mark_hidden (".nargin.", symbol_table::top_scope ());
 
   if (argc > 1)
     {
-      octave_argv.resize (argc-1);
+      octave_argv.resize (argc - 1);
 
       // Skip program name in argv.
       int i = argc;
@@ -599,8 +597,6 @@
 
   initialize_file_io ();
 
-  initialize_symbol_tables ();
-
   install_types ();
 
   install_ops ();