From 5ef2a3c0465660b2c32f2304034ec93722425172 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 19 Sep 1994 00:17:55 +0000 Subject: [PATCH] (openp): Fix Lisp_Object vs. int problems. --- src/lread.c | 8 +++++--- 1 file 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; } -- 2.39.5