(openp): Fix Lisp_Object vs. int problems.

5ef2a3c0 · Karl Heuer · 92992c7e · 5ef2a3c0
Commit 5ef2a3c0 authored Sep 19, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

src/lread.c src/lread.c +5 -3

No files found.
--- a/src/lread.c
+++ b/src/lread.c
@@ -588,7 +588,8 @@ openp (path, str, suffix, storeptr, exec_only)
 		  /* We succeeded; return this descriptor and filename.  */
 		  if (storeptr)
 		    *storeptr = build_string (fn);
-		  RETURN_UNGCPRO (fd);
+		  UNGCPRO;
+		  return fd;
 		}
 	    }

@@ -598,10 +599,11 @@ openp (path, str, suffix, storeptr, exec_only)
 	  nsuffix += lsuffix + 1;
 	}
      if (absolute)
-	RETURN_UNGCPRO (-1);
+	break;
    }

-  RETURN_UNGCPRO (-1);
+  UNGCPRO;
+  return -1;
 }