summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/array-handle.c7
-rw-r--r--libguile/atomic.c3
-rw-r--r--libguile/backtrace.c26
-rw-r--r--libguile/bitvectors.c4
-rw-r--r--libguile/bytevectors.c25
-rw-r--r--libguile/bytevectors.h3
-rw-r--r--libguile/continuations.c10
-rw-r--r--libguile/control.c3
-rw-r--r--libguile/deprecated.c3
-rw-r--r--libguile/eq.c34
-rw-r--r--libguile/error.c3
-rw-r--r--libguile/eval.c11
-rw-r--r--libguile/expand.c9
-rw-r--r--libguile/extensions.c5
-rw-r--r--libguile/extensions.h3
-rw-r--r--libguile/fdes-finalizers.c4
-rw-r--r--libguile/filesys.c72
-rw-r--r--libguile/finalizers.c6
-rw-r--r--libguile/fluids.c16
-rw-r--r--libguile/foreign-object.c7
-rw-r--r--libguile/foreign.c12
-rw-r--r--libguile/fports.c21
-rw-r--r--libguile/frames.c4
-rw-r--r--libguile/frames.h4
-rw-r--r--libguile/goops.c4
-rw-r--r--libguile/gsubr.c9
-rw-r--r--libguile/guardians.c17
-rw-r--r--libguile/hashtab.c16
-rw-r--r--libguile/init.c5
-rw-r--r--libguile/instructions.c1
-rw-r--r--libguile/instructions.h4
-rw-r--r--libguile/intrinsics.c6
-rw-r--r--libguile/intrinsics.h2
-rw-r--r--libguile/ioext.c7
-rw-r--r--libguile/keywords.c3
-rw-r--r--libguile/load.c7
-rw-r--r--libguile/loader.c4
-rw-r--r--libguile/loader.h4
-rw-r--r--libguile/macros.c3
-rw-r--r--libguile/memoize.c3
-rw-r--r--libguile/modules.c1
-rw-r--r--libguile/numbers.c5
-rw-r--r--libguile/objprop.c6
-rw-r--r--libguile/poll.c4
-rw-r--r--libguile/ports.c6
-rw-r--r--libguile/posix.c8
-rw-r--r--libguile/print.c12
-rw-r--r--libguile/procs.c5
-rw-r--r--libguile/programs.c5
-rw-r--r--libguile/programs.h4
-rw-r--r--libguile/r6rs-ports.c3
-rw-r--r--libguile/random.c6
-rw-r--r--libguile/rdelim.c4
-rw-r--r--libguile/read.c4
-rw-r--r--libguile/rw.c3
-rw-r--r--libguile/scmsigs.c6
-rw-r--r--libguile/script.c3
-rw-r--r--libguile/smob.c3
-rw-r--r--libguile/socket.c3
-rw-r--r--libguile/sort.c3
-rw-r--r--libguile/srcprop.c5
-rw-r--r--libguile/srfi-1.c4
-rw-r--r--libguile/srfi-4.c3
-rw-r--r--libguile/srfi-60.c3
-rw-r--r--libguile/stacks.c3
-rw-r--r--libguile/strports.c5
-rw-r--r--libguile/struct.c2
-rw-r--r--libguile/symbols.c5
-rw-r--r--libguile/syntax.c3
-rw-r--r--libguile/threads.c6
-rw-r--r--libguile/unicode.c3
-rw-r--r--libguile/vectors.c7
-rw-r--r--libguile/vm.c9
-rw-r--r--libguile/vm.h5
-rw-r--r--libguile/weak-set.c3
-rw-r--r--libguile/weak-table.c4
-rw-r--r--libguile/weak-vector.c5
77 files changed, 339 insertions, 220 deletions
diff --git a/libguile/array-handle.c b/libguile/array-handle.c
index 947462a59..a69bdbe5e 100644
--- a/libguile/array-handle.c
+++ b/libguile/array-handle.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005,
- * 2006, 2009, 2011, 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1998,2000-2006,2009,2011,2013-2014,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
@@ -26,7 +26,8 @@
#include "libguile/_scm.h"
#include "libguile/__scm.h"
-
+#include "libguile/bitvectors.h"
+#include "libguile/arrays.h"
#include "libguile/array-handle.h"
diff --git a/libguile/atomic.c b/libguile/atomic.c
index 950874030..5efa08861 100644
--- a/libguile/atomic.c
+++ b/libguile/atomic.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2016 Free Software Foundation, Inc.
+/* Copyright (C) 2016, 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
@@ -23,6 +23,7 @@
#endif
#include "libguile/_scm.h"
+#include "libguile/extensions.h"
#include "libguile/ports.h"
#include "libguile/validate.h"
#include "libguile/atomics-internal.h"
diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index 6eb7454ce..c430630de 100644
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -1,6 +1,6 @@
/* Printing of backtraces and error messages
* Copyright (C) 1996,1997,1998,1999,2000,2001, 2003, 2004, 2006, 2009,
- * 2010, 2011, 2014 Free Software Foundation
+ * 2010, 2011, 2014, 2018 Free Software Foundation
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -32,22 +32,24 @@
#include <io.h>
#endif
+#include "libguile/backtrace.h"
#include "libguile/deprecation.h"
-#include "libguile/stacks.h"
-#include "libguile/srcprop.h"
-#include "libguile/struct.h"
-#include "libguile/strports.h"
-#include "libguile/throw.h"
+#include "libguile/dynwind.h"
+#include "libguile/eval.h"
+#include "libguile/filesys.h"
#include "libguile/fluids.h"
+#include "libguile/frames.h"
+#include "libguile/keywords.h"
#include "libguile/ports.h"
+#include "libguile/posix.h"
+#include "libguile/private-options.h"
+#include "libguile/srcprop.h"
+#include "libguile/stacks.h"
#include "libguile/strings.h"
-#include "libguile/dynwind.h"
-#include "libguile/frames.h"
-
+#include "libguile/strports.h"
+#include "libguile/struct.h"
+#include "libguile/throw.h"
#include "libguile/validate.h"
-#include "libguile/backtrace.h"
-#include "libguile/filesys.h"
-#include "libguile/private-options.h"
/* {Error reporting and backtraces}
*
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c
index a6527f56e..cc3f73d30 100644
--- a/libguile/bitvectors.c
+++ b/libguile/bitvectors.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005, 2006, 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1998,2000-2006, 2009-2014, 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
@@ -29,7 +29,9 @@
#include "libguile/__scm.h"
#include "libguile/array-handle.h"
#include "libguile/bitvectors.h"
+#include "libguile/generalized-vectors.h"
#include "libguile/arrays.h"
+#include "libguile/srfi-4.h"
/* Bit vectors. Would be nice if they were implemented on top of bytevectors,
* but alack, all we have is this crufty C.
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index 7cd753009..2f49d4c04 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2009-2015 Free Software Foundation, Inc.
+/* Copyright (C) 2009-2015, 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
@@ -21,14 +21,25 @@
# include <config.h>
#endif
+#ifdef HAVE_LIMITS_H
+# include <limits.h>
+#endif
+
+#include <byteswap.h>
+#include <striconveh.h>
+#include <uniconv.h>
+#include <unistr.h>
+#include <string.h>
#include <alloca.h>
#include <assert.h>
#include <gmp.h>
#include "libguile/_scm.h"
+#include "libguile/dynwind.h"
#include "libguile/extensions.h"
#include "libguile/bytevectors.h"
+#include "libguile/generalized-vectors.h"
#include "libguile/strings.h"
#include "libguile/validate.h"
#include "libguile/arrays.h"
@@ -36,18 +47,6 @@
#include "libguile/uniform.h"
#include "libguile/srfi-4.h"
-#include <byteswap.h>
-#include <striconveh.h>
-#include <uniconv.h>
-#include <unistr.h>
-
-#ifdef HAVE_LIMITS_H
-# include <limits.h>
-#endif
-
-#include <string.h>
-
-
/* Utilities. */
diff --git a/libguile/bytevectors.h b/libguile/bytevectors.h
index 77f0006a4..c3d6c69e9 100644
--- a/libguile/bytevectors.h
+++ b/libguile/bytevectors.h
@@ -1,7 +1,7 @@
#ifndef SCM_BYTEVECTORS_H
#define SCM_BYTEVECTORS_H
-/* Copyright (C) 2009, 2011 Free Software Foundation, Inc.
+/* Copyright (C) 2009, 2011, 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
@@ -22,6 +22,7 @@
#include "libguile/__scm.h"
+#include "libguile/uniform.h"
/* R6RS bytevectors. */
diff --git a/libguile/continuations.c b/libguile/continuations.c
index 80914bc04..b917f6097 100644
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1998,2000,2001,2004, 2006, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1996,1998,2000-2001,2004,2006,2008-2014,2017-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
@@ -22,16 +22,18 @@
# include <config.h>
#endif
-#include "libguile/_scm.h"
-
#include <assert.h>
#include <string.h>
#include <stdio.h>
+#include "libguile/_scm.h"
#include "libguile/async.h"
+#include "libguile/backtrace.h"
#include "libguile/debug.h"
-#include "libguile/stackchk.h"
+#include "libguile/init.h"
#include "libguile/smob.h"
+#include "libguile/stackchk.h"
+#include "libguile/stacks.h"
#include "libguile/ports.h"
#include "libguile/dynstack.h"
#include "libguile/eval.h"
diff --git a/libguile/control.c b/libguile/control.c
index 636718d02..968876823 100644
--- a/libguile/control.c
+++ b/libguile/control.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
+/* Copyright (C) 2010-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
@@ -24,6 +24,7 @@
#include "libguile/_scm.h"
#include "libguile/control.h"
+#include "libguile/extensions.h"
#include "libguile/programs.h"
#include "libguile/instructions.h"
#include "libguile/vm.h"
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index acf9b198f..d47a0c59f 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2003-2004, 2006, 2008-2017 Free Software Foundation, Inc.
+/* Copyright (C) 2003-2004, 2006, 2008-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
@@ -24,6 +24,7 @@
#include "libguile/_scm.h"
#include "libguile/deprecation.h"
+#include "libguile/deprecated.h"
#if (SCM_ENABLE_DEPRECATED == 1)
diff --git a/libguile/eq.c b/libguile/eq.c
index f1153f2cc..492d43b68 100644
--- a/libguile/eq.c
+++ b/libguile/eq.c
@@ -23,33 +23,31 @@
#include <math.h>
+#ifdef HAVE_STRING_H
+#include <string.h>
+#endif
+
#include "libguile/_scm.h"
#include "libguile/array-map.h"
-#include "libguile/stackchk.h"
-#include "libguile/strorder.h"
#include "libguile/async.h"
-#include "libguile/smob.h"
-#include "libguile/arrays.h"
-#include "libguile/vectors.h"
-#include "libguile/hashtab.h"
+#include "libguile/bitvectors.h"
#include "libguile/bytevectors.h"
-#include "libguile/syntax.h"
-
-#include "libguile/struct.h"
-#include "libguile/goops.h"
-
-#include "libguile/validate.h"
#include "libguile/eq.h"
-
+#include "libguile/eval.h"
+#include "libguile/generalized-arrays.h"
+#include "libguile/goops.h"
+#include "libguile/hashtab.h"
#include "libguile/private-options.h"
+#include "libguile/smob.h"
+#include "libguile/stackchk.h"
+#include "libguile/strorder.h"
+#include "libguile/struct.h"
+#include "libguile/syntax.h"
+#include "libguile/validate.h"
+#include "libguile/vectors.h"
-#ifdef HAVE_STRING_H
-#include <string.h>
-#endif
-
-
static SCM scm_i_eq_p (SCM x, SCM y, SCM rest);
SCM_DEFINE (scm_i_eq_p, "eq?", 0, 2, 1,
(SCM x, SCM y, SCM rest),
diff --git a/libguile/error.c b/libguile/error.c
index ff84f41d8..51bf65a2a 100644
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995-1998, 2000, 2001, 2004, 2006, 2010, 2012-2014
+/* Copyright (C) 1995-1998, 2000-2001, 2004, 2006, 2010, 2012-2014, 2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -29,6 +29,7 @@
#include <errno.h>
#include "libguile/_scm.h"
+#include "libguile/async.h"
#include "libguile/dynwind.h"
#include "libguile/pairs.h"
#include "libguile/strings.h"
diff --git a/libguile/eval.c b/libguile/eval.c
index e9ff02a8b..8f71b87d2 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1,5 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,
- * 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014
+/* Copyright (C) 1995-1996,1997-2014,2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -28,7 +27,6 @@
#include <stdarg.h>
#include "libguile/__scm.h"
-
#include "libguile/_scm.h"
#include "libguile/alist.h"
#include "libguile/async.h"
@@ -38,17 +36,21 @@
#include "libguile/deprecation.h"
#include "libguile/dynwind.h"
#include "libguile/eq.h"
+#include "libguile/eval.h"
#include "libguile/expand.h"
#include "libguile/feature.h"
+#include "libguile/fluids.h"
#include "libguile/goops.h"
#include "libguile/hash.h"
#include "libguile/hashtab.h"
+#include "libguile/keywords.h"
#include "libguile/list.h"
#include "libguile/macros.h"
#include "libguile/memoize.h"
#include "libguile/modules.h"
#include "libguile/ports.h"
#include "libguile/print.h"
+#include "libguile/private-options.h"
#include "libguile/procprop.h"
#include "libguile/programs.h"
#include "libguile/smob.h"
@@ -62,9 +64,6 @@
#include "libguile/vectors.h"
#include "libguile/vm.h"
-#include "libguile/eval.h"
-#include "libguile/private-options.h"
-
diff --git a/libguile/expand.c b/libguile/expand.c
index fc7da54a8..c1f557ce5 100644
--- a/libguile/expand.c
+++ b/libguile/expand.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014
+/* Copyright (C) 1995-1996,1997-2014,2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -25,15 +25,18 @@
#include "libguile/__scm.h"
#include "libguile/_scm.h"
+#include "libguile/alist.h"
#include "libguile/continuations.h"
#include "libguile/eq.h"
+#include "libguile/expand.h"
+#include "libguile/hashtab.h"
+#include "libguile/keywords.h"
#include "libguile/list.h"
#include "libguile/macros.h"
-#include "libguile/expand.h"
#include "libguile/modules.h"
-#include "libguile/srcprop.h"
#include "libguile/ports.h"
#include "libguile/print.h"
+#include "libguile/srcprop.h"
#include "libguile/strings.h"
#include "libguile/throw.h"
#include "libguile/validate.h"
diff --git a/libguile/extensions.c b/libguile/extensions.c
index 1c3d28f4a..5bca00871 100644
--- a/libguile/extensions.c
+++ b/libguile/extensions.c
@@ -25,12 +25,11 @@
#include <string.h>
#include "libguile/_scm.h"
-#include "libguile/strings.h"
-#include "libguile/gc.h"
#include "libguile/dynl.h"
#include "libguile/dynwind.h"
-
#include "libguile/extensions.h"
+#include "libguile/gc.h"
+#include "libguile/strings.h"
typedef struct extension_t
{
diff --git a/libguile/extensions.h b/libguile/extensions.h
index 765f9bee1..03622cacd 100644
--- a/libguile/extensions.h
+++ b/libguile/extensions.h
@@ -3,7 +3,7 @@
#ifndef SCM_EXTENSIONS_H
#define SCM_EXTENSIONS_H
-/* Copyright (C) 2001, 2006, 2008 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2006, 2008, 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
@@ -24,6 +24,7 @@
#include "libguile/__scm.h"
+#include "libguile/libpath.h"
diff --git a/libguile/fdes-finalizers.c b/libguile/fdes-finalizers.c
index fd4689e13..74e42f645 100644
--- a/libguile/fdes-finalizers.c
+++ b/libguile/fdes-finalizers.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2016 Free Software Foundation, Inc.
+/* Copyright (C) 2016, 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
@@ -22,6 +22,8 @@
#endif
#include "libguile/_scm.h"
+#include "libguile/extensions.h"
+#include "libguile/eval.h"
#include "libguile/hashtab.h"
#include "libguile/numbers.h"
#include "libguile/fdes-finalizers.h"
diff --git a/libguile/filesys.c b/libguile/filesys.c
index e39dc4a0d..f235ebb97 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004, 2006,
- * 2009, 2010, 2011, 2012, 2013, 2014, 2016, 2017 Free Software Foundation, Inc.
+ * 2009, 2010, 2011, 2012, 2013, 2014, 2016, 2017, 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
@@ -32,37 +32,26 @@
#endif
#include <alloca.h>
+#include <dirent.h>
#include <dirname.h>
-
-#include <stdlib.h>
-#include <stdio.h>
#include <errno.h>
+#include <fcntl.h>
+#include <full-read.h>
+#include <full-write.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <unistd.h>
-#include "libguile/_scm.h"
-#include "libguile/smob.h"
-#include "libguile/fdes-finalizers.h"
-#include "libguile/feature.h"
-#include "libguile/fports.h"
-#include "libguile/strings.h"
-#include "libguile/iselect.h"
-#include "libguile/vectors.h"
-#include "libguile/dynwind.h"
-#include "libguile/ports.h"
-#include "libguile/ports-internal.h"
-
-#include "libguile/validate.h"
-#include "libguile/filesys.h"
-#include "libguile/load.h" /* for scm_i_mirror_backslashes */
+#ifdef HAVE_DIRECT_H
+#include <direct.h>
+#endif
-
#ifdef HAVE_IO_H
#include <io.h>
#endif
-#ifdef HAVE_DIRECT_H
-#include <direct.h>
-#endif
-
#ifdef TIME_WITH_SYS_TIME
# include <sys/time.h>
# include <time.h>
@@ -74,8 +63,6 @@
# endif
#endif
-#include <unistd.h>
-
#ifdef LIBC_H_WITH_UNISTD_H
#include <libc.h>
#endif
@@ -84,29 +71,40 @@
#include <string.h>
#endif
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-
#ifdef HAVE_PWD_H
#include <pwd.h>
#endif
-#include <dirent.h>
-
-#define NAMLEN(dirent) strlen ((dirent)->d_name)
-
#ifdef HAVE_SYS_SENDFILE_H
# include <sys/sendfile.h>
#endif
+#include "libguile/_scm.h"
+#include "libguile/async.h"
+#include "libguile/dynwind.h"
+#include "libguile/fdes-finalizers.h"
+#include "libguile/feature.h"
+#include "libguile/filesys.h"
+#include "libguile/fports.h"
+#include "libguile/iselect.h"
+#include "libguile/load.h" /* for scm_i_mirror_backslashes */
+#include "libguile/ports-internal.h"
+#include "libguile/ports.h"
+#include "libguile/posix.h"
+#include "libguile/smob.h"
+#include "libguile/srfi-13.h"
+#include "libguile/strings.h"
+#include "libguile/validate.h"
+#include "libguile/vectors.h"
+
+
+
+#define NAMLEN(dirent) strlen ((dirent)->d_name)
+
/* Glibc's `sendfile' function. */
#define sendfile_or_sendfile64 \
CHOOSE_LARGEFILE (sendfile, sendfile64)
-#include <full-read.h>
-#include <full-write.h>
-
diff --git a/libguile/finalizers.c b/libguile/finalizers.c
index c5d69e8e3..3c5d6af46 100644
--- a/libguile/finalizers.c
+++ b/libguile/finalizers.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2012, 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 2012-2014, 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
@@ -28,10 +28,12 @@
#include <full-write.h>
-#include "libguile/bdw-gc.h"
#include "libguile/_scm.h"
+#include "libguile/async.h"
+#include "libguile/bdw-gc.h"
#include "libguile/finalizers.h"
#include "libguile/gc.h"
+#include "libguile/init.h"
#include "libguile/threads.h"
diff --git a/libguile/fluids.c b/libguile/fluids.c
index c3dd1c9ea..88d1fd16e 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1996,1997,2000,2001, 2004, 2006, 2007, 2008, 2009, 2010,
- * 2011, 2012, 2013, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 1996-1997,2000-2001,2004,2006-2013, 2017-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,17 +25,19 @@
#include <string.h>
#include "libguile/_scm.h"
+#include "libguile/alist.h"
#include "libguile/atomics-internal.h"
+#include "libguile/bdw-gc.h"
#include "libguile/cache-internal.h"
-#include "libguile/print.h"
+#include "libguile/deprecation.h"
#include "libguile/dynwind.h"
-#include "libguile/fluids.h"
-#include "libguile/alist.h"
#include "libguile/eval.h"
+#include "libguile/fluids.h"
+#include "libguile/hashtab.h"
#include "libguile/ports.h"
-#include "libguile/deprecation.h"
+#include "libguile/print.h"
#include "libguile/validate.h"
-#include "libguile/bdw-gc.h"
+#include "libguile/weak-table.h"
/* A dynamic state associates fluids with values. There are two
representations of a dynamic state in Guile: the active
diff --git a/libguile/foreign-object.c b/libguile/foreign-object.c
index 34b9f22ca..94917e075 100644
--- a/libguile/foreign-object.c
+++ b/libguile/foreign-object.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2014, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 2014, 2017-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
@@ -23,8 +23,11 @@
#endif
#include "libguile/_scm.h"
-#include "libguile/goops.h"
+#include "libguile/eval.h"
+#include "libguile/extensions.h"
+#include "libguile/finalizers.h"
#include "libguile/foreign-object.h"
+#include "libguile/goops.h"
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 927c46fad..1b7d3451a 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2010-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2010-2016, 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
@@ -30,9 +30,17 @@
#include "libguile/_scm.h"
#include "libguile/bytevectors.h"
+#include "libguile/dynwind.h"
+#include "libguile/eq.h"
+#include "libguile/eval.h"
+#include "libguile/extensions.h"
+#include "libguile/finalizers.h"
+#include "libguile/foreign.h"
+#include "libguile/keywords.h"
#include "libguile/instructions.h"
+#include "libguile/stacks.h"
#include "libguile/threads.h"
-#include "libguile/foreign.h"
+#include "libguile/weak-table.h"
diff --git a/libguile/fports.c b/libguile/fports.c
index ee6ac0bf1..3f976d411 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -1,6 +1,4 @@
-/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
- * 2004, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013,
- * 2014, 2015, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2004, 2006-2015, 2017-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
@@ -49,16 +47,21 @@
#include <full-write.h>
#include "libguile/_scm.h"
+#include "libguile/async.h"
+#include "libguile/dynwind.h"
+#include "libguile/extensions.h"
#include "libguile/fdes-finalizers.h"
-#include "libguile/strings.h"
-#include "libguile/validate.h"
+#include "libguile/fluids.h"
+#include "libguile/filesys.h"
+#include "libguile/fports.h"
#include "libguile/gc.h"
-#include "libguile/posix.h"
-#include "libguile/dynwind.h"
#include "libguile/hashtab.h"
-
-#include "libguile/fports.h"
+#include "libguile/keywords.h"
#include "libguile/ports-internal.h"
+#include "libguile/posix.h"
+#include "libguile/read.h"
+#include "libguile/strings.h"
+#include "libguile/validate.h"
#if SIZEOF_OFF_T == SIZEOF_INT
#define OFF_T_MAX INT_MAX
diff --git a/libguile/frames.c b/libguile/frames.c
index 11d4f12ee..8d8ffee23 100644
--- a/libguile/frames.c
+++ b/libguile/frames.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 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
@@ -23,6 +23,8 @@
#include <stdlib.h>
#include <string.h>
#include "_scm.h"
+#include "eval.h"
+#include "extensions.h"
#include "frames.h"
#include "vm.h"
diff --git a/libguile/frames.h b/libguile/frames.h
index ef2db3df5..76e655744 100644
--- a/libguile/frames.h
+++ b/libguile/frames.h
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009-2015, 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
@@ -19,7 +19,7 @@
#ifndef _SCM_FRAMES_H_
#define _SCM_FRAMES_H_
-#include <libguile.h>
+#include <libguile/__scm.h>
#include "programs.h"
diff --git a/libguile/goops.c b/libguile/goops.c
index 40a93b1a4..a51307bde 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998-2004,2008-2015,2017 Free Software Foundation, Inc.
+/* Copyright (C) 1998-2004,2008-2015,2017-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
@@ -33,6 +33,7 @@
#include "libguile/chars.h"
#include "libguile/dynwind.h"
#include "libguile/eval.h"
+#include "libguile/extensions.h"
#include "libguile/gsubr.h"
#include "libguile/hashtab.h"
#include "libguile/keywords.h"
@@ -46,6 +47,7 @@
#include "libguile/strings.h"
#include "libguile/strports.h"
#include "libguile/vectors.h"
+#include "libguile/weak-table.h"
#include "libguile/validate.h"
#include "libguile/goops.h"
diff --git a/libguile/gsubr.c b/libguile/gsubr.c
index e22d16363..7eab772ff 100644
--- a/libguile/gsubr.c
+++ b/libguile/gsubr.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995-2001, 2006, 2008-2011, 2013, 2015
+/* Copyright (C) 1995-2001, 2006, 2008-2011, 2013, 2015, 2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -26,13 +26,14 @@
#include <stdarg.h>
#include "libguile/_scm.h"
-#include "libguile/gsubr.h"
#include "libguile/foreign.h"
+#include "libguile/frames.h"
+#include "libguile/gsubr.h"
#include "libguile/instructions.h"
-#include "libguile/srfi-4.h"
+#include "libguile/private-options.h"
#include "libguile/programs.h"
+#include "libguile/srfi-4.h"
-#include "libguile/private-options.h"
/*
* gsubr.c
diff --git a/libguile/guardians.c b/libguile/guardians.c
index cd4d9f3e2..f5a931cf0 100644
--- a/libguile/guardians.c
+++ b/libguile/guardians.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1998,1999,2000,2001, 2006, 2008, 2009, 2011,
- * 2012, 2013 Free Software Foundation, Inc.
+ * 2012, 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
@@ -50,18 +50,17 @@
#endif
#include "libguile/_scm.h"
+
+#include "libguile/bdw-gc.h"
+#include "libguile/deprecation.h"
+#include "libguile/eval.h"
+#include "libguile/guardians.h"
+#include "libguile/hashtab.h"
#include "libguile/ports.h"
#include "libguile/print.h"
#include "libguile/smob.h"
#include "libguile/validate.h"
-#include "libguile/hashtab.h"
-#include "libguile/deprecation.h"
-#include "libguile/eval.h"
-
-#include "libguile/guardians.h"
-#include "libguile/bdw-gc.h"
-
-
+#include "libguile/weak-vector.h"
static scm_t_bits tc16_guardian;
diff --git a/libguile/hashtab.c b/libguile/hashtab.c
index 8920e08a6..095ebca36 100644
--- a/libguile/hashtab.c
+++ b/libguile/hashtab.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2003, 2004, 2006,
- * 2008, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1996, 1998-2001, 2003-2004, 2006,
+ * 2008-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
@@ -29,14 +29,16 @@
#include "libguile/_scm.h"
#include "libguile/alist.h"
-#include "libguile/hash.h"
+#include "libguile/boolean.h"
+#include "libguile/bdw-gc.h"
+#include "libguile/eq.h"
#include "libguile/eval.h"
-#include "libguile/vectors.h"
+#include "libguile/hash.h"
+#include "libguile/hashtab.h"
#include "libguile/ports.h"
-#include "libguile/bdw-gc.h"
-
#include "libguile/validate.h"
-#include "libguile/hashtab.h"
+#include "libguile/vectors.h"
+#include "libguile/weak-table.h"
diff --git a/libguile/init.c b/libguile/init.c
index 9b3accb34..146e8416a 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -140,6 +140,11 @@
#include "libguile/extensions.h"
#include "libguile/uniform.h"
#include "libguile/deprecated.h"
+#include "libguile/weak-set.h"
+#include "libguile/weak-table.h"
+#include "libguile/weak-vector.h"
+#include "libguile/foreign-object.h"
+#include "libguile/r6rs-ports.h"
#include "libguile/init.h"
#include "libguile/private-options.h"
diff --git a/libguile/instructions.c b/libguile/instructions.c
index 15ea94c0d..594dc4375 100644
--- a/libguile/instructions.c
+++ b/libguile/instructions.c
@@ -25,6 +25,7 @@
#include "_scm.h"
#include "threads.h"
#include "instructions.h"
+#include "extensions.h"
SCM_SYMBOL (sym_left_arrow, "<-");
diff --git a/libguile/instructions.h b/libguile/instructions.h
index ad058cd9d..c2945b0e2 100644
--- a/libguile/instructions.h
+++ b/libguile/instructions.h
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2012, 2013 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009, 2012-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
@@ -19,7 +19,7 @@
#ifndef _SCM_INSTRUCTIONS_H_
#define _SCM_INSTRUCTIONS_H_
-#include <libguile.h>
+#include <libguile/__scm.h>
#include <libguile/vm-operations.h>
#ifdef BUILDING_LIBGUILE
diff --git a/libguile/intrinsics.c b/libguile/intrinsics.c
index 0655c2aa8..39e8186b2 100644
--- a/libguile/intrinsics.c
+++ b/libguile/intrinsics.c
@@ -21,6 +21,12 @@
#endif
#include "_scm.h"
+#include "alist.h"
+#include "cache-internal.h"
+#include "extensions.h"
+#include "fluids.h"
+#include "goops.h"
+#include "keywords.h"
#include "intrinsics.h"
diff --git a/libguile/intrinsics.h b/libguile/intrinsics.h
index 04caceaec..64f998111 100644
--- a/libguile/intrinsics.h
+++ b/libguile/intrinsics.h
@@ -19,7 +19,7 @@
#ifndef _SCM_VM_INTRINSICS_H_
#define _SCM_VM_INTRINSICS_H_
-#include <libguile.h>
+#include <libguile/__scm.h>
#ifdef BUILDING_LIBGUILE
diff --git a/libguile/ioext.c b/libguile/ioext.c
index 4038fd54f..1528eee62 100644
--- a/libguile/ioext.c
+++ b/libguile/ioext.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2006,
- * 2011, 2014 Free Software Foundation, Inc.
+ * 2011, 2014, 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
@@ -28,16 +28,19 @@
#include <errno.h>
#include "libguile/_scm.h"
+#include "libguile/async.h"
#include "libguile/dynwind.h"
+#include "libguile/extensions.h"
#include "libguile/fdes-finalizers.h"
#include "libguile/feature.h"
#include "libguile/fports.h"
#include "libguile/hashtab.h"
#include "libguile/ioext.h"
-#include "libguile/ports.h"
#include "libguile/ports-internal.h"
+#include "libguile/ports.h"
#include "libguile/strings.h"
#include "libguile/validate.h"
+#include "libguile/weak-set.h"
#include <fcntl.h>
diff --git a/libguile/keywords.c b/libguile/keywords.c
index 087042b84..f46e7a40e 100644
--- a/libguile/keywords.c
+++ b/libguile/keywords.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004,
- * 2006, 2008, 2009, 2011, 2013, 2015 Free Software Foundation, Inc.
+ * 2006, 2008, 2009, 2011, 2013, 2015, 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
@@ -30,6 +30,7 @@
#include "libguile/async.h"
#include "libguile/ports.h"
#include "libguile/smob.h"
+#include "libguile/dynwind.h"
#include "libguile/hashtab.h"
#include "libguile/validate.h"
diff --git a/libguile/load.c b/libguile/load.c
index 3747dd9ad..859e12472 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2004, 2006, 2008,
- * 2009, 2010, 2011, 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
+ * 2009, 2010, 2011, 2012, 2013, 2014, 2017, 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
@@ -31,7 +31,12 @@
#include "libguile/alist.h"
#include "libguile/chars.h"
#include "libguile/dynwind.h"
+#include "libguile/eq.h"
+#include "libguile/strports.h"
+#include "libguile/backtrace.h"
+#include "libguile/keywords.h"
#include "libguile/eval.h"
+#include "libguile/filesys.h"
#include "libguile/fports.h"
#include "libguile/libpath.h"
#include "libguile/loader.h"
diff --git a/libguile/loader.c b/libguile/loader.c
index d8816abcd..0d427b5e5 100644
--- a/libguile/loader.c
+++ b/libguile/loader.c
@@ -1,5 +1,5 @@
/* Copyright (C) 2001, 2009, 2010, 2011, 2012
- * 2013, 2014, 2015 Free Software Foundation, Inc.
+ * 2013, 2014, 2015, 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
@@ -40,6 +40,8 @@
#include "_scm.h"
#include "elf.h"
+#include "eval.h"
+#include "extensions.h"
#include "programs.h"
#include "loader.h"
diff --git a/libguile/loader.h b/libguile/loader.h
index 5c719cbce..44cee5610 100644
--- a/libguile/loader.h
+++ b/libguile/loader.h
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009-2015, 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
@@ -19,7 +19,7 @@
#ifndef _SCM_LOADER_H_
#define _SCM_LOADER_H_
-#include <libguile.h>
+#include <libguile/__scm.h>
SCM_API SCM scm_load_thunk_from_file (SCM filename);
SCM_API SCM scm_load_thunk_from_memory (SCM bv);
diff --git a/libguile/macros.c b/libguile/macros.c
index 94421c17a..1e0af72c3 100644
--- a/libguile/macros.c
+++ b/libguile/macros.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003, 2006, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003, 2006, 2008, 2009, 2010, 2011, 2012, 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/ports.h"
#include "libguile/print.h"
+#include "libguile/random.h"
#include "libguile/smob.h"
#include "libguile/validate.h"
#include "libguile/macros.h"
diff --git a/libguile/memoize.c b/libguile/memoize.c
index 58abeb110..e07381845 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
- * 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015
+ * 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -26,6 +26,7 @@
#include "libguile/__scm.h"
#include "libguile/_scm.h"
+#include "libguile/alist.h"
#include "libguile/continuations.h"
#include "libguile/eq.h"
#include "libguile/expand.h"
diff --git a/libguile/modules.c b/libguile/modules.c
index b5fdbf6ef..9589e9af4 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -30,6 +30,7 @@
#include "libguile/smob.h"
#include "libguile/procprop.h"
#include "libguile/vectors.h"
+#include "libguile/keywords.h"
#include "libguile/hashtab.h"
#include "libguile/struct.h"
#include "libguile/variable.h"
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 39e2d622c..094c1a9e3 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995-2016 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2016, 2018 Free Software Foundation, Inc.
*
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories
* and Bellcore. See scm_divide.
@@ -62,9 +62,12 @@
#include "libguile/_scm.h"
#include "libguile/feature.h"
#include "libguile/ports.h"
+#include "libguile/finalizers.h"
#include "libguile/smob.h"
#include "libguile/strings.h"
#include "libguile/bdw-gc.h"
+#include "libguile/goops.h"
+#include "libguile/values.h"
#include "libguile/validate.h"
#include "libguile/numbers.h"
diff --git a/libguile/objprop.c b/libguile/objprop.c
index e9ddbe4d9..f79f1ddd0 100644
--- a/libguile/objprop.c
+++ b/libguile/objprop.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996, 2000, 2001, 2003, 2006, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996, 2000, 2001, 2003, 2006, 2008, 2009, 2010, 2011, 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
@@ -23,11 +23,11 @@
#endif
#include "libguile/_scm.h"
+#include "libguile/alist.h"
#include "libguile/async.h"
#include "libguile/hashtab.h"
-#include "libguile/alist.h"
-
#include "libguile/objprop.h"
+#include "libguile/weak-table.h"
/* {Object Properties}
diff --git a/libguile/poll.c b/libguile/poll.c
index a17ca4148..5dae64ac0 100644
--- a/libguile/poll.c
+++ b/libguile/poll.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2010, 2013 Free Software Foundation, Inc.
+/* Copyright (C) 2010, 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
@@ -28,8 +28,10 @@
#include <poll.h>
#include "libguile/_scm.h"
+#include "libguile/async.h"
#include "libguile/bytevectors.h"
#include "libguile/error.h"
+#include "libguile/extensions.h"
#include "libguile/numbers.h"
#include "libguile/ports-internal.h"
#include "libguile/validate.h"
diff --git a/libguile/ports.c b/libguile/ports.c
index 72bb73a01..92aea3f32 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995-2001, 2003-2004, 2006-2017
+/* Copyright (C) 1995-2001, 2003-2004, 2006-2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -48,7 +48,8 @@
#include "libguile/smob.h"
#include "libguile/chars.h"
#include "libguile/dynwind.h"
-
+#include "libguile/extensions.h"
+#include "libguile/finalizers.h"
#include "libguile/keywords.h"
#include "libguile/hashtab.h"
#include "libguile/strings.h"
@@ -56,6 +57,7 @@
#include "libguile/validate.h"
#include "libguile/ports.h"
#include "libguile/ports-internal.h"
+#include "libguile/private-options.h"
#include "libguile/vectors.h"
#include "libguile/weak-set.h"
#include "libguile/fluids.h"
diff --git a/libguile/posix.c b/libguile/posix.c
index 041b8b129..3e6d50a78 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1,6 +1,4 @@
-/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
- * 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013,
- * 2014, 2016 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2014, 2016, 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
@@ -65,8 +63,12 @@
#endif
#include "libguile/_scm.h"
+#include "libguile/async.h"
#include "libguile/dynwind.h"
+#include "libguile/extensions.h"
+#include "libguile/finalizers.h"
#include "libguile/fports.h"
+#include "libguile/bitvectors.h"
#include "libguile/scmsigs.h"
#include "libguile/feature.h"
#include "libguile/strings.h"
diff --git a/libguile/print.c b/libguile/print.c
index 24c532f29..5af49e7ca 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995-1999, 2000, 2001, 2002, 2003, 2004, 2006, 2008,
- * 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
+ * 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2017, 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
@@ -36,6 +36,16 @@
#include "libguile/smob.h"
#include "libguile/control.h"
#include "libguile/eval.h"
+#include "libguile/goops.h"
+#include "libguile/hashtab.h"
+#include "libguile/weak-set.h"
+#include "libguile/weak-table.h"
+#include "libguile/fluids.h"
+#include "libguile/keywords.h"
+#include "libguile/atomic.h"
+#include "libguile/bitvectors.h"
+#include "libguile/arrays.h"
+#include "libguile/weak-vector.h"
#include "libguile/macros.h"
#include "libguile/procprop.h"
#include "libguile/read.h"
diff --git a/libguile/procs.c b/libguile/procs.c
index 2329f4a1b..2651b2dfe 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1995, 1996, 1997, 1999, 2000, 2001, 2006, 2008, 2009,
- * 2010, 2011, 2012, 2013, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1997, 1999-2001, 2006, 2008-2013, 2017-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/goops.h"
#include "libguile/strings.h"
#include "libguile/vectors.h"
#include "libguile/smob.h"
diff --git a/libguile/programs.c b/libguile/programs.c
index 237d282ec..0cf799e59 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009-2014, 2017-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
@@ -23,6 +23,9 @@
#include <string.h>
#include "_scm.h"
#include "instructions.h"
+#include "alist.h"
+#include "eval.h"
+#include "extensions.h"
#include "modules.h"
#include "programs.h"
#include "procprop.h" /* scm_sym_name */
diff --git a/libguile/programs.h b/libguile/programs.h
index c962995eb..d260a4b52 100644
--- a/libguile/programs.h
+++ b/libguile/programs.h
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 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
@@ -19,7 +19,7 @@
#ifndef _SCM_PROGRAMS_H_
#define _SCM_PROGRAMS_H_
-#include <libguile.h>
+#include <libguile/__scm.h>
/*
* Programs
diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c
index e944c7aab..15646be72 100644
--- a/libguile/r6rs-ports.c
+++ b/libguile/r6rs-ports.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2009, 2010, 2011, 2013-2015 Free Software Foundation, Inc.
+/* Copyright (C) 2009, 2010, 2011, 2013-2015, 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
@@ -29,6 +29,7 @@
#include "libguile/bytevectors.h"
#include "libguile/chars.h"
#include "libguile/eval.h"
+#include "libguile/extensions.h"
#include "libguile/r6rs-ports.h"
#include "libguile/strings.h"
#include "libguile/validate.h"
diff --git a/libguile/random.c b/libguile/random.c
index 6dae7f3ed..75eb53b6a 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1999, 2000, 2001, 2003, 2005, 2006, 2009, 2010,
- * 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 1999-2001, 2003, 2005-2006, 2009-2010,
+ * 2012-2014, 2017-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
@@ -35,8 +35,10 @@
#include <unistd.h>
#include "libguile/smob.h"
+#include "libguile/generalized-arrays.h"
#include "libguile/numbers.h"
#include "libguile/feature.h"
+#include "libguile/stime.h"
#include "libguile/strings.h"
#include "libguile/arrays.h"
#include "libguile/srfi-4.h"
diff --git a/libguile/rdelim.c b/libguile/rdelim.c
index 80962bc5e..f01ddf1e8 100644
--- a/libguile/rdelim.c
+++ b/libguile/rdelim.c
@@ -1,5 +1,4 @@
-/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2006,
- * 2011 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2001, 2006, 2011, 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
@@ -34,6 +33,7 @@
#include "libguile/ports.h"
#include "libguile/rdelim.h"
#include "libguile/strings.h"
+#include "libguile/srfi-13.h"
#include "libguile/strports.h"
#include "libguile/validate.h"
diff --git a/libguile/read.c b/libguile/read.c
index 0946ff379..4b0fab022 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995-1997, 1999-2001, 2003, 2004, 2006-2012, 2014, 2015
+/* Copyright (C) 1995-1997, 1999-2001, 2003-2004, 2006-2012, 2014-2015, 2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -44,6 +44,8 @@
#include "libguile/srcprop.h"
#include "libguile/hashtab.h"
#include "libguile/hash.h"
+#include "libguile/eq.h"
+#include "libguile/fluids.h"
#include "libguile/ports.h"
#include "libguile/ports-internal.h"
#include "libguile/fports.h"
diff --git a/libguile/rw.c b/libguile/rw.c
index 70bcd81a0..3b0c4bd68 100644
--- a/libguile/rw.c
+++ b/libguile/rw.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2006, 2009, 2011, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2006, 2009, 2011, 2014, 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
@@ -28,6 +28,7 @@
#include <string.h>
#include "libguile/_scm.h"
+#include "libguile/async.h"
#include "libguile/fports.h"
#include "libguile/ports.h"
#include "libguile/rw.h"
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index 21b2a9529..ece81e6e1 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2004, 2006,
- * 2007, 2008, 2009, 2011, 2013, 2014, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2002, 2004, 2006-2009, 2011, 2013-2014, 2017-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
@@ -44,6 +44,8 @@
#include "libguile/_scm.h"
#include "libguile/async.h"
+#include "libguile/dynwind.h"
+#include "libguile/feature.h"
#include "libguile/eval.h"
#include "libguile/vectors.h"
#include "libguile/threads.h"
diff --git a/libguile/script.c b/libguile/script.c
index 63fbb0f3f..f59ad1eef 100644
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1994-1998, 2000-2011, 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 1994-1998, 2000-2011, 2013-2014, 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
@@ -33,6 +33,7 @@
#include "libguile/_scm.h"
#include "libguile/eval.h"
#include "libguile/feature.h"
+#include "libguile/fluids.h"
#include "libguile/load.h"
#include "libguile/read.h"
#include "libguile/script.h"
diff --git a/libguile/smob.c b/libguile/smob.c
index 43ea613de..a9f041196 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2003, 2004, 2006,
- * 2009, 2010, 2011, 2012, 2013, 2015 Free Software Foundation, Inc.
+ * 2009, 2010, 2011, 2012, 2013, 2015, 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
@@ -31,6 +31,7 @@
#include "libguile/async.h"
#include "libguile/goops.h"
+#include "libguile/finalizers.h"
#include "libguile/instructions.h"
#include "libguile/programs.h"
diff --git a/libguile/socket.c b/libguile/socket.c
index b28e01bca..2a30890ab 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1996-1998, 2000-2007, 2009, 2011-2015
+/* Copyright (C) 1996-1998, 2000-2007, 2009, 2011-2015, 2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -47,6 +47,7 @@
#include <gmp.h>
#include "libguile/_scm.h"
+#include "libguile/async.h"
#include "libguile/arrays.h"
#include "libguile/feature.h"
#include "libguile/fports.h"
diff --git a/libguile/sort.c b/libguile/sort.c
index ff7d6634d..1e56b39f7 100644
--- a/libguile/sort.c
+++ b/libguile/sort.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1999, 2000, 2001, 2002, 2004, 2006, 2007, 2008, 2009,
- * 2010, 2011, 2012, 2014 Free Software Foundation, Inc.
+ * 2010, 2011, 2012, 2014, 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
@@ -44,6 +44,7 @@
#include "libguile/arrays.h"
#include "libguile/array-map.h"
#include "libguile/feature.h"
+#include "libguile/generalized-arrays.h"
#include "libguile/vectors.h"
#include "libguile/async.h"
#include "libguile/dynwind.h"
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 14e56bd1c..118c9da7c 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -1,5 +1,4 @@
-/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2006,
- * 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2002, 2006, 2008-2012, 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
@@ -30,10 +29,12 @@
#include "libguile/smob.h"
#include "libguile/alist.h"
#include "libguile/debug.h"
+#include "libguile/keywords.h"
#include "libguile/hashtab.h"
#include "libguile/hash.h"
#include "libguile/ports.h"
#include "libguile/gc.h"
+#include "libguile/weak-table.h"
#include "libguile/validate.h"
#include "libguile/srcprop.h"
diff --git a/libguile/srfi-1.c b/libguile/srfi-1.c
index 08a4b22e2..b176f6afd 100644
--- a/libguile/srfi-1.c
+++ b/libguile/srfi-1.c
@@ -1,7 +1,7 @@
/* srfi-1.c --- SRFI-1 procedures for Guile
*
* Copyright (C) 1995-1997, 2000-2003, 2005, 2006, 2008-2011, 2013
- * 2014 Free Software Foundation, Inc.
+ * 2014, 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
@@ -31,6 +31,8 @@
#include "libguile/list.h"
#include "libguile/eval.h"
#include "libguile/srfi-1.h"
+#include "libguile/values.h"
+#include "libguile/extensions.h"
#include <stdarg.h>
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c
index b0ed0ce17..55bacf9f6 100644
--- a/libguile/srfi-4.c
+++ b/libguile/srfi-4.c
@@ -1,6 +1,6 @@
/* srfi-4.c --- Uniform numeric vector datatypes.
*
- * Copyright (C) 2001, 2004, 2006, 2009, 2010, 2011, 2014 Free Software Foundation, Inc.
+ * Copyright (C) 2001, 2004, 2006, 2009, 2010, 2011, 2014, 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
@@ -30,6 +30,7 @@
#include "libguile/error.h"
#include "libguile/eval.h"
#include "libguile/extensions.h"
+#include "libguile/generalized-vectors.h"
#include "libguile/uniform.h"
#include "libguile/validate.h"
diff --git a/libguile/srfi-60.c b/libguile/srfi-60.c
index de97cbc60..5b4f23796 100644
--- a/libguile/srfi-60.c
+++ b/libguile/srfi-60.c
@@ -1,6 +1,6 @@
/* srfi-60.c --- Integers as Bits
*
- * Copyright (C) 2005, 2006, 2008, 2010, 2014 Free Software Foundation, Inc.
+ * Copyright (C) 2005, 2006, 2008, 2010, 2014, 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
@@ -28,6 +28,7 @@
#include "libguile/eq.h"
#include "libguile/validate.h"
+#include "libguile/extensions.h"
#include "libguile/numbers.h"
#include "libguile/srfi-60.h"
diff --git a/libguile/stacks.c b/libguile/stacks.c
index 76e10faf3..a529e594f 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -1,5 +1,5 @@
/* A stack holds a frame chain
- * Copyright (C) 1996,1997,2000,2001, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2017 Free Software Foundation
+ * Copyright (C) 1996,1997,2000-2001,2006-2014,2017-2018 Free Software Foundation
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -28,6 +28,7 @@
#include "libguile/eval.h"
#include "libguile/debug.h"
#include "libguile/continuations.h"
+#include "libguile/fluids.h"
#include "libguile/struct.h"
#include "libguile/macros.h"
#include "libguile/procprop.h"
diff --git a/libguile/strports.c b/libguile/strports.c
index 5f78785d1..e99ceb8f3 100644
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2005, 2006,
- * 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 1996, 1998-2003, 2005-2006,
+ * 2009-2014, 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
@@ -31,6 +31,7 @@
#include "libguile/bytevectors.h"
#include "libguile/eval.h"
+#include "libguile/keywords.h"
#include "libguile/ports.h"
#include "libguile/read.h"
#include "libguile/strings.h"
diff --git a/libguile/struct.c b/libguile/struct.c
index 957776b28..6cbfde5ee 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -32,6 +32,8 @@
#include "libguile/chars.h"
#include "libguile/deprecation.h"
#include "libguile/eval.h"
+#include "libguile/finalizers.h"
+#include "libguile/goops.h"
#include "libguile/alist.h"
#include "libguile/hashtab.h"
#include "libguile/ports.h"
diff --git a/libguile/symbols.c b/libguile/symbols.c
index ab4b2cdd1..4fb26eb84 100644
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -1,5 +1,5 @@
-/* Copyright (C) 1995-1998, 2000, 2001, 2003, 2004, 2006, 2009, 2011,
- * 2013, 2015 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1998, 2000-2001, 2003-2004, 2006, 2009, 2011,
+ * 2013, 2015, 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
@@ -30,6 +30,7 @@
#include "libguile/eval.h"
#include "libguile/hash.h"
#include "libguile/smob.h"
+#include "libguile/strorder.h"
#include "libguile/variable.h"
#include "libguile/alist.h"
#include "libguile/fluids.h"
diff --git a/libguile/syntax.c b/libguile/syntax.c
index df12c69c4..900182873 100644
--- a/libguile/syntax.c
+++ b/libguile/syntax.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2017 Free Software Foundation, Inc.
+/* Copyright (C) 2017-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
@@ -24,6 +24,7 @@
#include "libguile/_scm.h"
#include "libguile/keywords.h"
+#include "libguile/eval.h"
#include "libguile/ports.h"
#include "libguile/syntax.h"
#include "libguile/validate.h"
diff --git a/libguile/threads.c b/libguile/threads.c
index 770f62c44..7fa75dd5a 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -1,6 +1,4 @@
-/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, 2004,
- * 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013,
- * 2014 Free Software Foundation, Inc.
+/* Copyright (C) 1995-1998, 2000-2014, 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
@@ -28,6 +26,8 @@
#include <gc/gc_mark.h>
#include "libguile/_scm.h"
#include "libguile/deprecation.h"
+#include "libguile/extensions.h"
+#include "libguile/hashtab.h"
#include <stdlib.h>
#include <unistd.h>
diff --git a/libguile/unicode.c b/libguile/unicode.c
index 65d319a1d..50c96dac7 100644
--- a/libguile/unicode.c
+++ b/libguile/unicode.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2014 Free Software Foundation, Inc.
+/* Copyright (C) 2014, 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 as
@@ -27,6 +27,7 @@
#include <uniname.h>
#include "libguile/_scm.h"
+#include "libguile/extensions.h"
#include "libguile/validate.h"
#include "libguile/unicode.h"
diff --git a/libguile/vectors.c b/libguile/vectors.c
index d18302258..706db91bb 100644
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2006, 2008, 2009, 2010,
- * 2011, 2012, 2014 Free Software Foundation, Inc.
+ * 2011, 2012, 2014, 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
@@ -29,6 +29,7 @@
#include "libguile/validate.h"
#include "libguile/vectors.h"
#include "libguile/array-handle.h"
+#include "libguile/generalized-vectors.h"
#include "libguile/bdw-gc.h"
@@ -59,10 +60,6 @@ const SCM *
scm_vector_elements (SCM vec, scm_t_array_handle *h,
size_t *lenp, ssize_t *incp)
{
- /* it's unsafe to access the memory of a weak vector */
- if (SCM_I_WVECTP (vec))
- scm_wrong_type_arg_msg (NULL, 0, vec, "non-weak vector");
-
scm_array_get_handle (vec, h);
if (1 != scm_array_handle_rank (h))
{
diff --git a/libguile/vm.c b/libguile/vm.c
index 0e824380b..629b69eab 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -40,6 +40,15 @@
#include "libguile/atomics-internal.h"
#include "libguile/cache-internal.h"
#include "libguile/control.h"
+#include "libguile/eval.h"
+#include "libguile/values.h"
+#include "libguile/async.h"
+#include "libguile/keywords.h"
+#include "libguile/dynwind.h"
+#include "libguile/extensions.h"
+#include "libguile/alist.h"
+#include "libguile/procprop.h"
+#include "libguile/stackchk.h"
#include "libguile/frames.h"
#include "libguile/gc-inline.h"
#include "libguile/instructions.h"
diff --git a/libguile/vm.h b/libguile/vm.h
index d9e54309f..3bc1eae5a 100644
--- a/libguile/vm.h
+++ b/libguile/vm.h
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009-2015, 2017-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
@@ -19,7 +19,8 @@
#ifndef _SCM_VM_H_
#define _SCM_VM_H_
-#include <libguile.h>
+#include <libguile/__scm.h>
+#include <libguile/frames.h>
#include <libguile/programs.h>
enum {
diff --git a/libguile/weak-set.c b/libguile/weak-set.c
index 1576e20b0..8f98e99d5 100644
--- a/libguile/weak-set.c
+++ b/libguile/weak-set.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2011, 2012, 2013 Free Software Foundation, Inc.
+/* Copyright (C) 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 <assert.h>
#include "libguile/_scm.h"
+#include "libguile/finalizers.h"
#include "libguile/hash.h"
#include "libguile/eval.h"
#include "libguile/ports.h"
diff --git a/libguile/weak-table.c b/libguile/weak-table.c
index 461d4a47c..9f2451170 100644
--- a/libguile/weak-table.c
+++ b/libguile/weak-table.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2011, 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 2011-2014, 2017-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
@@ -28,6 +28,8 @@
#include <gc/gc_typed.h>
#include "libguile/_scm.h"
+#include "libguile/alist.h"
+#include "libguile/finalizers.h"
#include "libguile/hash.h"
#include "libguile/eval.h"
#include "libguile/ports.h"
diff --git a/libguile/weak-vector.c b/libguile/weak-vector.c
index 082cdde01..4b7354011 100644
--- a/libguile/weak-vector.c
+++ b/libguile/weak-vector.c
@@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1998, 2000, 2001, 2003, 2006, 2008, 2009,
- * 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+ * 2010, 2011, 2012, 2013, 2014, 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
@@ -26,7 +26,8 @@
#include <stdio.h>
#include "libguile/_scm.h"
-#include "libguile/vectors.h"
+#include "libguile/extensions.h"
+#include "libguile/weak-vector.h"
#include "libguile/validate.h"