HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
deprecated eval-when situations
[bpt/guile.git]
/
libguile
/
filesys.h
diff --git
a/libguile/filesys.h
b/libguile/filesys.h
index
776b263
..
fc66e40
100644
(file)
--- a/
libguile/filesys.h
+++ b/
libguile/filesys.h
@@
-4,7
+4,7
@@
#define SCM_FILESYS_H
/* Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2006, 2008, 2009,
#define SCM_FILESYS_H
/* Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2006, 2008, 2009,
- * 2010, 2013 Free Software Foundation, Inc.
+ * 2010, 201
1, 201
3 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@
-32,7
+32,7
@@
SCM_API scm_t_bits scm_tc16_dir;
#define SCM_DIR_FLAG_OPEN (1L << 0)
#define SCM_DIR_FLAG_OPEN (1L << 0)
-#define SCM_DIRP(x) (
!SCM_IMP (x) && (SCM_TYP16 (x) ==
scm_tc16_dir))
+#define SCM_DIRP(x) (
SCM_HAS_TYP16 (x,
scm_tc16_dir))
#define SCM_DIR_OPEN_P(x) (SCM_SMOB_FLAGS (x) & SCM_DIR_FLAG_OPEN)
\f
#define SCM_DIR_OPEN_P(x) (SCM_SMOB_FLAGS (x) & SCM_DIR_FLAG_OPEN)
\f