From b14b352a6416e29f2ca0db31fd32195bbcc384a9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 25 Feb 2014 00:43:21 -0800
Subject: * stream.c (getcwd_wrap): Implement correct test of getcwd's return
 value.

---
 ChangeLog | 5 +++++
 stream.c  | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 94ba515d..6b61e25a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-25  Kaz Kylheku  <kaz@kylheku.com>
+
+	* stream.c (getcwd_wrap): Implement correct test of getcwd's
+	return value.
+
 2014-02-25  Kaz Kylheku  <kaz@kylheku.com>
 
 	* configure: Use -Werror= on the missing prototypes and
diff --git a/stream.c b/stream.c
index 190932d8..68a1e772 100644
--- a/stream.c
+++ b/stream.c
@@ -2424,7 +2424,8 @@ val getcwd_wrap(void)
 
   for (;;) {
     char *u8buf = (char *) chk_malloc(guess);
-    if (getcwd(u8buf, 256) < 0) {
+
+    if (getcwd(u8buf, guess) == 0) {
       free(u8buf);
       if (errno != ERANGE) {
         uw_throwf(file_error_s, lit("getcwd: ~a/~s"),
-- 
cgit v1.2.3