Mercurial > emacs

changeset 8906:93f3d6f5753c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(openp): Fix Lisp_Object vs. int problems.
author Karl Heuer <kwzh@gnu.org>
date Mon, 19 Sep 1994 00:17:55 +0000
parents 2ef3da79aabb
children f7de8b4cb1b8
files src/lread.c
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }