# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779933875 0
# Node ID 93f3d6f5753c80ff548438b2fa7f4a1e4354fd43
# Parent  2ef3da79aabb99f3fb90b26f77019101ede45c6f
(openp): Fix Lisp_Object vs. int problems.

diff -r 2ef3da79aabb -r 93f3d6f5753c src/lread.c
--- a/src/lread.c	Mon Sep 19 00:17:26 1994 +0000
+++ b/src/lread.c	Mon Sep 19 00:17:55 1994 +0000
@@ -588,7 +588,8 @@
 		  /* We succeeded; return this descriptor and filename.  */
 		  if (storeptr)
 		    *storeptr = build_string (fn);
-		  RETURN_UNGCPRO (fd);
+		  UNGCPRO;
+		  return fd;
 		}
 	    }
 
@@ -598,10 +599,11 @@
 	  nsuffix += lsuffix + 1;
 	}
       if (absolute)
-	RETURN_UNGCPRO (-1);
+	break;
     }
 
-  RETURN_UNGCPRO (-1);
+  UNGCPRO;
+  return -1;
 }