# HG changeset patch
# User Ben Abbott <bpabbott@mac.com>
# Date 1206994209 14400
# Node ID 2f0920d1edd4c61cb1683cfc75a14ff92fa334db
# Parent  4fbaba9abec16cc2838a6ec3faaa7aed3b0291de
run.m: fix check for file existence

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-31  Dmitri A. Sergatskov  <dasergatskov@gmail.com>
+
+	* miscellaneous/run.m: Fix check for existence of file.
+
 2008-03-27  Jaroslav Hajek  <highegg@gmail.com>
 
 	* general/lookup.m: Remove (lookup moved to DLD-FUNCTIONS).
diff --git a/scripts/miscellaneous/run.m b/scripts/miscellaneous/run.m
--- a/scripts/miscellaneous/run.m
+++ b/scripts/miscellaneous/run.m
@@ -40,7 +40,7 @@
       wd = pwd ();
       unwind_protect
 	cd (d);
-	if (! exist (s, "file") ||  ! strcmp (ext, ".m"))
+	if (! exist (f, "file") || ! strcmp (ext, ".m"))
 	  error ("run: file must exist and be a valid Octave script file");
 	endif
 	evalin ("caller", [f, ";"], "rethrow (lasterror ())");