From 73cfb5f1000662136012386fcbd9c92e09410866 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 26 Jun 2002 05:17:14 +0000
Subject: [PATCH] make cd/1 complain on finding a wrong directory.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@554 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/sysbits.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/C/sysbits.c b/C/sysbits.c
index aeb3d209b..b5e41face 100644
--- a/C/sysbits.c
+++ b/C/sysbits.c
@@ -1783,7 +1783,16 @@ p_cd (void)
 #if  __simplescalar__
   strncpy(yap_pwd,FileNameBuf2,YAP_FILENAME_MAX);
 #endif
-  return (!chdir (FileNameBuf2));
+  if (chdir (FileNameBuf2) < 0) {
+#if HAVE_STRERROR
+    Error(SYSTEM_ERROR, t1, 
+	"cd(%s): %s", FileNameBuf2, strerror(errno));
+#else
+    Error(SYSTEM_ERROR,t1,"cd(%s)", FileNameBuf2);
+#endif
+    return(FALSE);
+  }
+  return(TRUE);
 #else
 #ifdef MACYAP
   Term t1 = Deref (ARG1);