mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Fix libguile subcomponent headers not to include <libguile.h>

Browse source 
* libguile/bytevectors.h: Include uniform.h, for use in the macros.
* libguile/extensions.h: Include libpath.h, for the
  SCM_EFFECTIVE_VERSION, which is almost always used with these
  routines.
* libguile/frames.h:
* libguile/instructions.h:
* libguile/intrinsics.h:
* libguile/loader.h:
* libguile/programs.h:
* libguile/vm.h: Include <libguile/__scm.h> instead of <libguile.h>.
  Cuts a circular include, but also precipitates a lot of maintenance in
  the .c files.

* libguile/*.c: Update C files to add needed all needed includes that
  before were getting automatically pulled in by the indirect inclusion
  of libguile.h.
This commit is contained in:
Andy Wingo 2018-06-14 22:16:01 +02:00
parent ceaf782770
commit 83584ef231
77 changed files with 354 additions and 235 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/array-handle.c
View file

@ -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"

3
libguile/atomic.c
View file

@ -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"

30
libguile/backtrace.c
View file

@ -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/deprecation.h"
#include "libguile/stacks.h"
#include "libguile/srcprop.h"
#include "libguile/struct.h"
#include "libguile/strports.h"
#include "libguile/throw.h"
#include "libguile/fluids.h"
#include "libguile/ports.h"
#include "libguile/strings.h"
#include "libguile/dynwind.h"
#include "libguile/frames.h"
#include "libguile/validate.h"
#include "libguile/backtrace.h"
#include "libguile/deprecation.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/strports.h"
#include "libguile/struct.h"
#include "libguile/throw.h"
#include "libguile/validate.h"
/* {Error reporting and backtraces}
*

4
libguile/bitvectors.c
View file

@ -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.

25
libguile/bytevectors.c
View file

@ -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. */

3
libguile/bytevectors.h
View file

@ -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. */

10
libguile/continuations.c
View file

@ -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"

3
libguile/control.c
View file

@ -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"

3
libguile/deprecated.c
View file

@ -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)

42
libguile/eq.c
View file

@ -23,31 +23,29 @@
#include <math.h>
#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/bytevectors.h"
#include "libguile/syntax.h"
#include "libguile/struct.h"
#include "libguile/goops.h"
#include "libguile/validate.h"
#include "libguile/eq.h"
#include "libguile/private-options.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include "libguile/_scm.h"
#include "libguile/array-map.h"
#include "libguile/async.h"
#include "libguile/bitvectors.h"
#include "libguile/bytevectors.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"
static SCM scm_i_eq_p (SCM x, SCM y, SCM rest);

3
libguile/error.c
View file

@ -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"

11
libguile/eval.c
View file

@ -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"

9
libguile/expand.c
View file

@ -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"

5
libguile/extensions.c
View file

@ -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
{

3
libguile/extensions.h
View file

@ -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"

4
libguile/fdes-finalizers.c
View file

@ -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"

74
libguile/filesys.c
View file

@ -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 "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_IO_H
#include <io.h>
#endif
#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>
#ifdef HAVE_DIRECT_H
#include <direct.h>
#endif
#ifdef HAVE_IO_H
#include <io.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>

6
libguile/finalizers.c
View file

@ -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"

24
libguile/fluids.c
View file

@ -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/atomics-internal.h"
#include "libguile/cache-internal.h"
#include "libguile/print.h"
#include "libguile/dynwind.h"
#include "libguile/fluids.h"
#include "libguile/alist.h"
#include "libguile/eval.h"
#include "libguile/ports.h"
#include "libguile/deprecation.h"
#include "libguile/validate.h"
#include "libguile/atomics-internal.h"
#include "libguile/bdw-gc.h"
#include "libguile/cache-internal.h"
#include "libguile/deprecation.h"
#include "libguile/dynwind.h"
#include "libguile/eval.h"
#include "libguile/fluids.h"
#include "libguile/hashtab.h"
#include "libguile/ports.h"
#include "libguile/print.h"
#include "libguile/validate.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

7
libguile/foreign-object.c
View file

@ -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"

14
libguile/foreign.c
View file

@ -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/instructions.h"
#include "libguile/threads.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/weak-table.h"

23
libguile/fports.c
View file

@ -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/fluids.h"
#include "libguile/filesys.h"
#include "libguile/fports.h"
#include "libguile/gc.h"
#include "libguile/hashtab.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"
#include "libguile/gc.h"
#include "libguile/posix.h"
#include "libguile/dynwind.h"
#include "libguile/hashtab.h"
#include "libguile/fports.h"
#include "libguile/ports-internal.h"
#if SIZEOF_OFF_T == SIZEOF_INT
#define OFF_T_MAX INT_MAX

4
libguile/frames.c
View file

@ -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"

4
libguile/frames.h
View file

@ -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"

4
libguile/goops.c
View file

@ -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"

11
libguile/gsubr.c
View file

@ -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/programs.h"
#include "libguile/private-options.h"
#include "libguile/programs.h"
#include "libguile/srfi-4.h"
/*
* gsubr.c

17
libguile/guardians.c
View file

@ -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;

18
libguile/hashtab.c
View file

@ -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/eval.h"
#include "libguile/vectors.h"
#include "libguile/ports.h"
#include "libguile/boolean.h"
#include "libguile/bdw-gc.h"
#include "libguile/validate.h"
#include "libguile/eq.h"
#include "libguile/eval.h"
#include "libguile/hash.h"
#include "libguile/hashtab.h"
#include "libguile/ports.h"
#include "libguile/validate.h"
#include "libguile/vectors.h"
#include "libguile/weak-table.h"

5
libguile/init.c
View file

@ -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"

1
libguile/instructions.c
View file

@ -25,6 +25,7 @@
#include "_scm.h"
#include "threads.h"
#include "instructions.h"
#include "extensions.h"
SCM_SYMBOL (sym_left_arrow, "<-");

4
libguile/instructions.h
View file

@ -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

6
libguile/intrinsics.c
View file

@ -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"

2
libguile/intrinsics.h
View file

@ -19,7 +19,7 @@
#ifndef _SCM_VM_INTRINSICS_H_
#define _SCM_VM_INTRINSICS_H_
#include <libguile.h>
#include <libguile/__scm.h>
#ifdef BUILDING_LIBGUILE

7
libguile/ioext.c
View file

@ -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>

3
libguile/keywords.c
View file

@ -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"

7
libguile/load.c
View file

@ -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"

4
libguile/loader.c
View file

@ -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"

4
libguile/loader.h
View file

@ -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);

3
libguile/macros.c
View file

@ -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"

3
libguile/memoize.c
View file

@ -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"

1
libguile/modules.c
View file

@ -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"

5
libguile/numbers.c
View file

@ -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"

6
libguile/objprop.c
View file

@ -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}

4
libguile/poll.c
View file

@ -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"

6
libguile/ports.c
View file

@ -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"

8
libguile/posix.c
View file

@ -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"

12
libguile/print.c
View file

@ -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"

5
libguile/procs.c
View file

@ -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"

5
libguile/programs.c
View file

@ -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 */

4
libguile/programs.h
View file

@ -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

3
libguile/r6rs-ports.c
View file

@ -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"

6
libguile/random.c
View file

@ -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"

4
libguile/rdelim.c
View file

@ -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"

4
libguile/read.c
View file

@ -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"

3
libguile/rw.c
View file

@ -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"

6
libguile/scmsigs.c
View file

@ -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"

3
libguile/script.c
View file

@ -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"

3
libguile/smob.c
View file

@ -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"

3
libguile/socket.c
View file

@ -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"

3
libguile/sort.c
View file

@ -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"

5
libguile/srcprop.c
View file

@ -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"

4
libguile/srfi-1.c
View file

@ -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>

3
libguile/srfi-4.c
View file

@ -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"

3
libguile/srfi-60.c
View file

@ -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"

3
libguile/stacks.c
View file

@ -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"

5
libguile/strports.c
View file

@ -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"

2
libguile/struct.c
View file

@ -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"

5
libguile/symbols.c
View file

@ -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"

3
libguile/syntax.c
View file

@ -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"

6
libguile/threads.c
View file

@ -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>

3
libguile/unicode.c
View file

@ -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"

7
libguile/vectors.c
View file

@ -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))
{

9
libguile/vm.c
View file

@ -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"

5
libguile/vm.h
View file

@ -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 {

3
libguile/weak-set.c
View file

@ -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"

4
libguile/weak-table.c
View file

@ -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"

5
libguile/weak-vector.c
View file

@ -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"