# HG changeset patch
# User jwe
# Date 1071761709 0
# Node ID bb9515a3527d344504ff2e8f4b6cdfbb619813d2
# Parent  493ff0643644b02dc28207c78c78e5e36a12d5f5
[project @ 2003-12-18 15:35:09 by jwe]

diff -r 493ff0643644 -r bb9515a3527d scripts/statistics/base/iqr.m
--- a/scripts/statistics/base/iqr.m	Wed Dec 17 21:18:18 2003 +0000
+++ b/scripts/statistics/base/iqr.m	Thu Dec 18 15:35:09 2003 +0000
@@ -34,15 +34,15 @@
     usage ("iqr (x)");
   endif
 
- � if (rows (x) == 1)
- �  � x = x.';
- � endif
+  if (rows (x) == 1)
+    x = x.';
+  endif
 
- � [r, c] = size (x);
- � y = zeros (1, c);
+  [r, c] = size (x);
+  y = zeros (1, c);
 
- � for i = 1:c;
- �  � y(i) = empirical_inv (3/4, x(:,i)) - empirical_inv (1/4, x(:,i));
- � endfor
+  for i = 1:c;
+    y(i) = empirical_inv (3/4, x(:,i)) - empirical_inv (1/4, x(:,i));
+  endfor
 
 endfunction
diff -r 493ff0643644 -r bb9515a3527d src/ChangeLog
--- a/src/ChangeLog	Wed Dec 17 21:18:18 2003 +0000
+++ b/src/ChangeLog	Thu Dec 18 15:35:09 2003 +0000
@@ -1,3 +1,8 @@
+2003-12-17  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* symtab.cc (symbol_record::print_symbol_info_line):
+	Also check is_static to see if a symbol can be cleared.
+
 2003-12-16  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* lex.l (is_keyword): Also allow varargout_kw if
diff -r 493ff0643644 -r bb9515a3527d src/symtab.cc
--- a/src/symtab.cc	Wed Dec 17 21:18:18 2003 +0000
+++ b/src/symtab.cc	Thu Dec 18 15:35:09 2003 +0000
@@ -414,7 +414,7 @@
 symbol_record::print_symbol_info_line (std::ostream& os) const
 {
   os << (is_read_only () ? " r-" : " rw")
-     << (is_eternal () ? "-" : "d")
+     << (is_static () || is_eternal () ? "-" : "d")
      << "  "
      << std::setiosflags (std::ios::left) << std::setw (24)
      << type_name () . c_str ();