Mercurial > octave-nkf

diff src/defun.cc @ 3259:fa345875edea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-07-22 04:30:18 by jwe]
author jwe
date Thu, 22 Jul 1999 04:30:25 +0000
parents 4964d5391acc
children 2efa28a91e7a
line wrap: on
line diff
--- a/src/defun.cc	Wed Jul 21 21:52:04 1999 +0000
+++ b/src/defun.cc	Thu Jul 22 04:30:25 1999 +0000
@@ -105,21 +105,7 @@
 install_builtin_constant (const string& name, const octave_value& val,
 			  bool protect, const string& help)
 {
-  symbol_record *sym_rec = global_sym_tab->lookup (name, true);
-  sym_rec->unprotect ();
-
-  string tmp_help = help.empty () ? sym_rec->help () : help;
-
-  sym_rec->define_builtin_const (val);
-
-  sym_rec->document (tmp_help);
-
-  if (protect)
-    sym_rec->protect ();
-
-  // XXX FIXME XXX -- shouldn't constants be eternal?
-  //  if (eternal)
-  //    sym_rec->make_eternal ();
+  bind_builtin_constant (name, val, protect, false, help);
 }
 
 void