(openp): Fix Lisp_Object vs. int problems.

1 files changed, 5 insertions, 3 deletions

diff --git a/src/lread.c b/src/lread.c
index 9afeec0192e..4ae0fcbf21b 100644
--- 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;
 }