# HG changeset patch
# User jwe
# Date 812759774 0
# Node ID 5a02b9fba19eb7db8d16d0eaf73241f5a07fdb70
# Parent  14d8c0a838c11b1c3535fd2bd18f223816c78be3
[project @ 1995-10-03 22:36:14 by jwe]

diff -r 14d8c0a838c1 -r 5a02b9fba19e src/variables.cc
--- a/src/variables.cc	Tue Oct 03 13:22:22 1995 +0000
+++ b/src/variables.cc	Tue Oct 03 22:36:14 1995 +0000
@@ -127,9 +127,12 @@
 {
   tree_fvc *ans = 0;
 
-  const char *fcn_name = arg.string_value ();
+  const char *fcn_name = 0;
 
-  if (error_state)
+  if (arg.is_string ())
+    fcn_name = arg.string_value ();
+
+  if (! fcn_name || error_state)
     {
       if (warn)
 	error ("%s: expecting function name as argument", warn_for);