summaryrefslogtreecommitdiff
path: root/libguile/filesys.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-01-24 00:02:43 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-01-24 00:02:43 +0000
commit30ea841d0cdecb2e879e643726d94ce66bd14ddd (patch)
treeef4cabe23efec5ced667a4d7a0af8831d479fe01 /libguile/filesys.h
parent312ae976ad5bba1b62f18a3b7c0df514df563911 (diff)
downloadguile-30ea841d0cdecb2e879e643726d94ce66bd14ddd.tar.gz
* Separate the handling of OPEN flags between ports and directories.
Diffstat (limited to 'libguile/filesys.h')
-rw-r--r--libguile/filesys.h13
1 files changed, 12 insertions, 1 deletions
diff --git a/libguile/filesys.h b/libguile/filesys.h
index 67bbc74bf..c71d844f2 100644
--- a/libguile/filesys.h
+++ b/libguile/filesys.h
@@ -53,8 +53,11 @@
extern scm_bits_t scm_tc16_dir;
+
+#define SCM_DIR_FLAG_OPEN (1L << 16)
+
#define SCM_DIRP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_dir))
-#define SCM_OPDIRP(x) (!SCM_IMP (x) && (SCM_CELL_WORD_0 (x) == (scm_tc16_dir | SCM_OPN)))
+#define SCM_DIR_OPEN_P(x) (SCM_CELL_WORD_0 (x) & SCM_DIR_FLAG_OPEN)
@@ -90,6 +93,14 @@ extern SCM scm_basename (SCM filename, SCM suffix);
extern void scm_init_filesys (void);
+
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
+#define SCM_OPDIRP(x) (SCM_DIRP (x) && (SCM_DIR_OPEN_P (x)))
+
+#endif /* SCM_DEBUG_DEPRECATED == 0 */
+
#endif /* FILESYSH */
/*