summaryrefslogtreecommitdiff
path: root/libguile/filesys.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/filesys.h')
-rw-r--r--libguile/filesys.h8
1 files changed, 6 insertions, 2 deletions
diff --git a/libguile/filesys.h b/libguile/filesys.h
index fc66e40b2..39a917f56 100644
--- a/libguile/filesys.h
+++ b/libguile/filesys.h
@@ -3,8 +3,8 @@
#ifndef SCM_FILESYS_H
#define SCM_FILESYS_H
-/* Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2006, 2008, 2009,
- * 2010, 2011, 2013 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1997-2001,2006,2008-2011,2013,2018
+ * 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
@@ -25,6 +25,7 @@
#include "libguile/__scm.h"
+#include <libguile/error.h>
@@ -35,6 +36,9 @@ SCM_API scm_t_bits 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)
+#define SCM_VALIDATE_DIR(pos, port) \
+ SCM_MAKE_VALIDATE_MSG (pos, port, DIRP, "directory port")
+
SCM_API SCM scm_chown (SCM object, SCM owner, SCM group);