# HG changeset patch
# User jwe
# Date 863391193 0
# Node ID 5d1b71cd39f721c2ef241a193c7e719491a8d227
# Parent  da62d3b91fa3c5a9ed4352253a82c2051dc86deb
[project @ 1997-05-11 22:53:12 by jwe]

diff --git a/src/pt-id.cc b/src/pt-id.cc
--- a/src/pt-id.cc
+++ b/src/pt-id.cc
@@ -53,26 +53,12 @@
 }
 
 tree_identifier *
-tree_identifier::define (octave_symbol *s, unsigned int sym_type)
-{
-  int status = sym->define (s, sym_type);
-  return status ? this : 0;
-}
-
-tree_identifier *
 tree_identifier::define (octave_function *f, unsigned int sym_type)
 {
   int status = sym->define (f, sym_type);
   return status ? this : 0;
 }
 
-tree_identifier *
-tree_identifier::define (const octave_value& v)
-{
-  int status = sym->define (v);
-  return status ? this : 0;
-}
-
 void
 tree_identifier::document (const string& s)
 {
diff --git a/src/pt-id.h b/src/pt-id.h
--- a/src/pt-id.h
+++ b/src/pt-id.h
@@ -63,12 +63,8 @@
 
   string name (void) const;
 
-  tree_identifier *define (octave_symbol *s, unsigned int sym_type);
-
   tree_identifier *define (octave_function *f, unsigned int sym_type);
 
-  tree_identifier *define (const octave_value& v);
-
   void document (const string& s);
 
   bool is_defined (void);
diff --git a/src/pt-misc.cc b/src/pt-misc.cc
--- a/src/pt-misc.cc
+++ b/src/pt-misc.cc
@@ -388,6 +388,8 @@
     {
       tree_identifier *elt = this->operator () (p);
 
+      octave_variable_reference ref = elt->reference ();
+
       if (i < nargin)
 	{
 	  if (args(i).is_defined () && args(i).is_magic_colon ())
@@ -396,10 +398,10 @@
 	      return;
 	    }
 
-	  elt->define (args(i));
+	  ref.assign (octave_value::asn_eq, args(i));
 	}
       else
-	elt->define (octave_value ());
+	ref.assign (octave_value::asn_eq, octave_value ());
 
       next (p);
     }