Mercurial > octave-nkf

diff src/ov-usr-fcn.cc @ 5744:1c36a2e82266

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-04-06 19:38:34 by jwe]
author jwe
date Thu, 06 Apr 2006 19:38:35 +0000
parents a527e0f77aa5
children ace8d8d26933
line wrap: on
line diff
--- a/src/ov-usr-fcn.cc	Thu Apr 06 08:20:23 2006 +0000
+++ b/src/ov-usr-fcn.cc	Thu Apr 06 19:38:35 2006 +0000
@@ -59,6 +59,12 @@
 				     "user-defined function",
 				     "user-defined function");
 
+DEFINE_OCTAVE_ALLOCATOR (octave_user_script);
+
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_user_script,
+				     "user-defined script",
+				     "user-defined script");
+
 // Ugh.  This really needs to be simplified (code/data?
 // extrinsic/intrinsic state?).
 
@@ -746,7 +752,7 @@
 
   if (nargin == 0)
     {
-      octave_function *fcn = octave_call_stack::caller_script ();
+      octave_user_function *fcn = octave_call_stack::caller_user_function ();
 
       if (fcn)
 	{
@@ -790,7 +796,7 @@
 
   if (nargin == 0)
     {
-      octave_function *fcn = octave_call_stack::caller_script ();
+      octave_user_function *fcn = octave_call_stack::caller_user_function ();
 
       if (fcn)
 	{
@@ -836,7 +842,7 @@
 
   if (nargin == 1)
     {
-      octave_function *fcn = octave_call_stack::caller_script ();
+      octave_user_function *fcn = octave_call_stack::caller_user_function ();
 
       if (fcn)
 	{