# HG changeset patch
# User jwe
# Date 783648229 0
# Node ID 4c3de23d0fb181c6a4cbba0b2351cb594c41e2d0
# Parent  a2e030473d6dccf17070a4c7698631eb98c0f365
[project @ 1994-11-01 00:03:49 by jwe]

diff --git a/src/variables.cc b/src/variables.cc
--- a/src/variables.cc
+++ b/src/variables.cc
@@ -1592,8 +1592,8 @@
 	  gvars = curr_sym_tab->list (gcount, 0, symbol_def::USER_VARIABLE,
 				      SYMTAB_GLOBAL_SCOPE);
 
-	  fcns = curr_sym_tab->list (fcount, 0, symbol_def::USER_FUNCTION,
-				     SYMTAB_ALL_SCOPES);
+	  fcns = global_sym_tab->list (fcount, 0, symbol_def::USER_FUNCTION,
+				       SYMTAB_ALL_SCOPES);
 	}
 
       while (argc > 0)
@@ -1631,8 +1631,7 @@
 		  if ((exclusive && ! match) || (! exclusive && match))
 		    {
 		      count = curr_sym_tab->clear (nm);
-		      if (count > 0)
-			global_sym_tab->clear (nm, clear_user_functions);
+		      global_sym_tab->clear (nm, clear_user_functions);
 		    }
 		}
 	    }