--- ray/src/cal/calc.c	2013/12/19 16:38:12	1.7
+++ ray/src/cal/calc.c	2013/12/19 16:56:31	1.8
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: calc.c,v 1.7 2013/12/19 16:38:12 greg Exp $";
+static const char	RCSid[] = "$Id: calc.c,v 1.8 2013/12/19 16:56:31 greg Exp $";
 #endif
 /*
  *  calc.c - simple algebraic desk calculator program.
@@ -33,7 +33,7 @@ char  *argv[];
 	char  *epos;
 	FILE  *fp;
 	int  i;
-	register char  *cp;
+	char  *cp;
 
 	esupport |= E_VARIABLE|E_INCHAN|E_FUNCTION;
 	esupport &= ~(E_REDEFW|E_RCONST|E_OUTCHAN);
@@ -43,15 +43,15 @@ char  *argv[];
 	varset("PI", ':', 3.14159265358979323846);
 
 	for (i = 1; i < argc; i++) {
-		char	*path = getpath(argv[i], getrlibpath(), 0);
-		if (path == NULL) {
+		cp = getpath(argv[i], getrlibpath(), 0);
+		if (cp == NULL) {
 			eputs(argv[0]);
 			eputs(": cannot find file '");
 			eputs(argv[i]);
 			eputs("'\n");
 			quit(1);
 		}
-		fcompile(path);
+		fcompile(cp);
 	}
 	setjmp(env);
 	recover = 1;
@@ -98,6 +98,11 @@ char  *argv[];
 				;
 			if (!*cp) {
 				eputs("file name required\n");
+				continue;
+			}
+			cp = getpath(cp, getrlibpath(), 0);
+			if (cp == NULL) {
+				eputs("cannot find file\n");
 				continue;
 			}
 			fcompile(cp);