Devolve pairs.h

* libguile/_scm.h: Remove pairs.h.
* libguile/alist.c:
* libguile/array-handle.c:
* libguile/array-map.c:
* libguile/arrays.c:
* libguile/async.c:
* libguile/bitvectors.c:
* libguile/bytevectors.c:
* libguile/chars.c:
* libguile/continuations.c:
* libguile/control.c:
* libguile/debug.c:
* libguile/deprecation.c:
* libguile/dynwind.c:
* libguile/eq.c:
* libguile/eval.c:
* libguile/evalext.c:
* libguile/expand.c:
* libguile/fdes-finalizers.c:
* libguile/feature.c:
* libguile/filesys.c:
* libguile/fluids.c:
* libguile/foreign.c:
* libguile/fports.c:
* libguile/gc.c:
* libguile/generalized-arrays.c:
* libguile/goops.c:
* libguile/guardians.c:
* libguile/hash.c:
* libguile/hashtab.c:
* libguile/hooks.c:
* libguile/i18n.c:
* libguile/instructions.c:
* libguile/ioext.c:
* libguile/keywords.c:
* libguile/list.c:
* libguile/load.c:
* libguile/loader.c:
* libguile/memoize.c:
* libguile/modules.c:
* libguile/net_db.c:
* libguile/numbers.c:
* libguile/objprop.c:
* libguile/options.c:
* libguile/ports-internal.h:
* libguile/ports.c:
* libguile/posix.c:
* libguile/print.c:
* libguile/print.h:
* libguile/procprop.c:
* libguile/programs.c:
* libguile/random.c:
* libguile/rdelim.c:
* libguile/read.c:
* libguile/regex-posix.c:
* libguile/scmsigs.c:
* libguile/script.c:
* libguile/socket.c:
* libguile/sort.c:
* libguile/srcprop.c:
* libguile/srfi-1.c:
* libguile/srfi-13.c:
* libguile/srfi-14.c:
* libguile/srfi-60.c:
* libguile/stacks.c:
* libguile/stime.c:
* libguile/strings.c:
* libguile/strorder.c:
* libguile/struct.c:
* libguile/symbols.c:
* libguile/threads.c:
* libguile/throw.c:
* libguile/trees.c:
* libguile/values.c:
* libguile/vectors.c:
* libguile/vm.c:
* libguile/weak-list.h:
* libguile/weak-set.c:
* libguile/weak-table.c:
* libguile/weak-vector.c: Add pairs.h.

libguile/_scm.h

@@ -36,7 +36,6 @@
 
 /* Include headers for those files central to the implementation.  The
    rest should be explicitly #included in the C files themselves.  */
-#include "libguile/pairs.h"	/* Everyone conses.  */
 #include "libguile/gc.h"	/* Everyone allocates.  */
 #include "libguile/gsubr.h"	/* Everyone defines global functions.  */
 #include "libguile/procs.h"	/* Same.  */

libguile/alist.c

@@ -27,7 +27,6 @@
 #include "libguile/boolean.h"
 #include "libguile/eq.h"
 #include "libguile/list.h"
-
 #include "libguile/pairs.h"
 #include "libguile/numbers.h"
 #include "libguile/alist.h"

libguile/array-handle.c

@@ -29,6 +29,7 @@
 #include "libguile/bitvectors.h"
 #include "libguile/list.h"
 #include "libguile/arrays.h"
+#include "libguile/pairs.h"
 #include "libguile/array-handle.h"
 
 

libguile/array-map.c

@@ -27,6 +27,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/strings.h"
 #include "libguile/arrays.h"

libguile/arrays.c

@@ -31,6 +31,7 @@
 #include "verify.h"
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/__scm.h"
 #include "libguile/eq.h"

libguile/async.c

@@ -24,6 +24,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/atomics-internal.h"
 #include "libguile/eval.h"
 #include "libguile/throw.h"

libguile/bitvectors.c

@@ -26,6 +26,7 @@
 #include <string.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/__scm.h"
 #include "libguile/array-handle.h"

libguile/bytevectors.c

@@ -42,6 +42,7 @@
 #include "libguile/bytevectors.h"
 #include "libguile/generalized-vectors.h"
 #include "libguile/list.h"
+#include "libguile/pairs.h"
 #include "libguile/strings.h"
 #include "libguile/arrays.h"
 #include "libguile/array-handle.h"

libguile/chars.c

@@ -30,8 +30,8 @@
 
 #include "libguile/_scm.h"
 #include "libguile/boolean.h"
-
 #include "libguile/chars.h"
+#include "libguile/pairs.h"
 #include "libguile/srfi-14.h"
 
 

libguile/continuations.c

@@ -31,6 +31,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/async.h"
 #include "libguile/backtrace.h"

libguile/control.c

@@ -23,6 +23,7 @@
 #include <alloca.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/control.h"
 #include "libguile/extensions.h"
 #include "libguile/list.h"

libguile/debug.c

@@ -44,6 +44,7 @@
 #include "libguile/macros.h"
 #include "libguile/smob.h"
 #include "libguile/struct.h"
+#include "libguile/pairs.h"
 #include "libguile/procprop.h"
 #include "libguile/srcprop.h"
 #include "libguile/alist.h"

libguile/deprecation.c

@@ -28,6 +28,7 @@
 #include <stdarg.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 
 #include "libguile/deprecation.h"
 #include "libguile/list.h"

libguile/dynwind.c

@@ -30,6 +30,7 @@
 #include "libguile/boolean.h"
 #include "libguile/dynstack.h"
 #include "libguile/eval.h"
+#include "libguile/pairs.h"
 #include "libguile/ports.h"
 
 #include "libguile/dynwind.h"

libguile/eq.c

@@ -38,6 +38,7 @@
 #include "libguile/generalized-arrays.h"
 #include "libguile/goops.h"
 #include "libguile/hashtab.h"
+#include "libguile/pairs.h"
 #include "libguile/private-options.h"
 #include "libguile/smob.h"
 #include "libguile/stackchk.h"

libguile/eval.c

@@ -27,6 +27,7 @@
 #include <stdarg.h>
 
 #include "libguile/__scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/_scm.h"
 #include "libguile/alist.h"

libguile/evalext.c

@@ -28,6 +28,7 @@
 #include "libguile/list.h"
 #include "libguile/fluids.h"
 #include "libguile/modules.h"
+#include "libguile/pairs.h"
 
 #include "libguile/evalext.h"
 

libguile/expand.c

@@ -24,6 +24,7 @@
 #endif
 
 #include "libguile/__scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/_scm.h"
 #include "libguile/alist.h"

libguile/fdes-finalizers.c

@@ -22,6 +22,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/extensions.h"
 #include "libguile/eval.h"

libguile/feature.c

@@ -28,6 +28,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/strings.h"
 #include "libguile/fluids.h"
 

libguile/filesys.c

@@ -80,6 +80,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/async.h"
 #include "libguile/dynwind.h"

libguile/fluids.c

@@ -25,6 +25,7 @@
 #include <string.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/alist.h"
 #include "libguile/atomics-internal.h"
 #include "libguile/bdw-gc.h"

libguile/foreign.c

@@ -40,6 +40,7 @@
 #include "libguile/keywords.h"
 #include "libguile/list.h"
 #include "libguile/instructions.h"
+#include "libguile/pairs.h"
 #include "libguile/stacks.h"
 #include "libguile/threads.h"
 #include "libguile/weak-table.h"

libguile/fports.c

@@ -47,6 +47,7 @@
 #include <full-write.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/async.h"
 #include "libguile/dynwind.h"

libguile/gc.c

@@ -24,6 +24,7 @@
 #endif
 
 #include "libguile/gen-scmconfig.h"
+#include "libguile/pairs.h"
 
 #include <stdio.h>
 #include <errno.h>

libguile/generalized-arrays.c

@@ -28,6 +28,7 @@
 #include <string.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/__scm.h"
 #include "libguile/array-handle.h"
 #include "libguile/generalized-arrays.h"

libguile/goops.c

@@ -40,6 +40,7 @@
 #include "libguile/keywords.h"
 #include "libguile/macros.h"
 #include "libguile/modules.h"
+#include "libguile/pairs.h"
 #include "libguile/ports.h"
 #include "libguile/ports-internal.h"
 #include "libguile/procprop.h"

libguile/guardians.c

@@ -50,6 +50,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 
 #include "libguile/bdw-gc.h"

libguile/hash.c

@@ -32,6 +32,7 @@
 
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
+#include "libguile/pairs.h"
 #include "libguile/ports.h"
 #include "libguile/strings.h"
 #include "libguile/symbols.h"

libguile/hashtab.c

@@ -28,6 +28,7 @@
 #include <assert.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/alist.h"
 #include "libguile/boolean.h"
 #include "libguile/bdw-gc.h"

libguile/hooks.c

@@ -25,6 +25,7 @@
 
 #include <stdio.h>
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 
 #include "libguile/eval.h"

libguile/i18n.c

@@ -23,6 +23,7 @@
 #include <alloca.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/extensions.h"
 #include "libguile/feature.h"

libguile/instructions.c

@@ -25,6 +25,7 @@
 #include "_scm.h"
 #include "threads.h"
 #include "libguile/list.h"
+#include "libguile/pairs.h"
 #include "instructions.h"
 #include "extensions.h"
 

libguile/ioext.c

@@ -28,6 +28,7 @@
 #include <errno.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/async.h"
 #include "libguile/dynwind.h"
 #include "libguile/extensions.h"

libguile/keywords.c

@@ -29,6 +29,7 @@
 #include "libguile/_scm.h"
 #include "libguile/async.h"
 #include "libguile/list.h"
+#include "libguile/pairs.h"
 #include "libguile/ports.h"
 #include "libguile/smob.h"
 #include "libguile/dynwind.h"

libguile/list.c

@@ -24,6 +24,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/eq.h"
 

libguile/load.c

@@ -43,6 +43,7 @@
 #include "libguile/list.h"
 #include "libguile/loader.h"
 #include "libguile/modules.h"
+#include "libguile/pairs.h"
 #include "libguile/read.h"
 #include "libguile/srfi-13.h"
 #include "libguile/strings.h"

libguile/loader.c

@@ -44,6 +44,7 @@
 #include "elf.h"
 #include "eval.h"
 #include "extensions.h"
+#include "pairs.h"
 #include "programs.h"
 #include "loader.h"
 

libguile/memoize.c

@@ -25,6 +25,7 @@
 #endif
 
 #include "libguile/__scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/_scm.h"
 #include "libguile/alist.h"

libguile/modules.c

@@ -25,6 +25,7 @@
 #include <stdarg.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 
 #include "libguile/eval.h"

libguile/net_db.c

@@ -46,6 +46,7 @@
 #include <arpa/inet.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/feature.h"
 #include "libguile/list.h"

libguile/numbers.c

@@ -62,6 +62,7 @@
 #include "libguile/_scm.h"
 #include "libguile/boolean.h"
 #include "libguile/feature.h"
+#include "libguile/pairs.h"
 #include "libguile/ports.h"
 #include "libguile/finalizers.h"
 #include "libguile/smob.h"

libguile/objprop.c

@@ -27,6 +27,7 @@
 #include "libguile/async.h"
 #include "libguile/hashtab.h"
 #include "libguile/objprop.h"
+#include "libguile/pairs.h"
 #include "libguile/weak-table.h"
 
 

libguile/options.c

@@ -23,6 +23,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/list.h"
 #include "libguile/mallocs.h"

libguile/ports-internal.h

@@ -27,6 +27,7 @@
 
 #include "libguile/_scm.h"
 #include "libguile/list.h"
+#include "libguile/pairs.h"
 #include "libguile/ports.h"
 
 typedef enum scm_t_port_type_flags {

libguile/ports.c

@@ -39,6 +39,7 @@
 #include <striconveh.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/async.h"
 #include "libguile/atomics-internal.h"

libguile/posix.c

@@ -63,6 +63,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/async.h"
 #include "libguile/dynwind.h"
 #include "libguile/extensions.h"

libguile/print.c

@@ -31,6 +31,7 @@
 #include <unictype.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/chars.h"
 #include "libguile/continuations.h"
@@ -262,8 +263,8 @@ scm_i_port_with_print_state (SCM port, SCM print_state)
     }
   else
     port = SCM_COERCE_OUTPORT (port);
-  SCM_RETURN_NEWSMOB (scm_tc16_port_with_ps,
+  return scm_new_double_smob (scm_tc16_port_with_ps,
-		      SCM_UNPACK (scm_cons (port, print_state)));
+                              SCM_UNPACK (port), SCM_UNPACK (print_state), 0);
 }
 
 static void

libguile/print.h

@@ -49,8 +49,8 @@ do { \
 #define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); }
 
 #define SCM_PORT_WITH_PS_P(p)    SCM_TYP16_PREDICATE (scm_tc16_port_with_ps, p)
-#define SCM_PORT_WITH_PS_PORT(p) SCM_CAR (SCM_CELL_OBJECT_1 (p))
+#define SCM_PORT_WITH_PS_PORT(p) SCM_CELL_OBJECT_1 (p)
-#define SCM_PORT_WITH_PS_PS(p)   SCM_CDR (SCM_CELL_OBJECT_1 (p))
+#define SCM_PORT_WITH_PS_PS(p)   SCM_CELL_OBJECT_2 (p)
 
 #define SCM_COERCE_OUTPORT(p) \
   (SCM_PORT_WITH_PS_P (p) ? SCM_PORT_WITH_PS_PORT (p) : p)

libguile/procprop.c

@@ -24,6 +24,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 
 #include "libguile/alist.h"

libguile/programs.c

@@ -28,6 +28,7 @@
 #include "eval.h"
 #include "extensions.h"
 #include "modules.h"
+#include "pairs.h"
 #include "programs.h"
 #include "procprop.h" /* scm_sym_name */
 #include "vm.h"

libguile/random.c

@@ -39,6 +39,7 @@
 #include "libguile/list.h"
 #include "libguile/numbers.h"
 #include "libguile/feature.h"
+#include "libguile/pairs.h"
 #include "libguile/stime.h"
 #include "libguile/strings.h"
 #include "libguile/arrays.h"

libguile/rdelim.c

@@ -21,6 +21,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 
 #include <stdio.h>
 

libguile/read.c

@@ -34,6 +34,7 @@
 #include <alloca.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/bytevectors.h"
 #include "libguile/chars.h"

libguile/regex-posix.c

@@ -35,6 +35,7 @@
 #include <sys/types.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 
 #include <regex.h>
 

libguile/scmsigs.c

@@ -42,6 +42,7 @@
 #include <full-write.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 
 #include "libguile/async.h"

libguile/script.c

@@ -31,6 +31,7 @@
 #include <uniconv.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/eval.h"
 #include "libguile/feature.h"
 #include "libguile/fluids.h"

libguile/socket.c

@@ -47,6 +47,7 @@
 #include <gmp.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/async.h"
 #include "libguile/arrays.h"
 #include "libguile/feature.h"

libguile/sort.c

@@ -40,6 +40,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/eval.h"
 #include "libguile/arrays.h"

libguile/srcprop.c

@@ -25,6 +25,7 @@
 #include <errno.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/async.h"
 #include "libguile/smob.h"
 #include "libguile/alist.h"

libguile/srfi-1.c

@@ -25,6 +25,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/eq.h"
 

libguile/srfi-13.c

@@ -29,6 +29,7 @@
 #include <unictype.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include <libguile/deprecation.h>
 #include "libguile/eval.h"
 #include "libguile/error.h"

libguile/srfi-14.c

@@ -28,6 +28,7 @@
 #include <unictype.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/chars.h"
 #include "libguile/eval.h"

libguile/srfi-60.c

@@ -25,6 +25,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/eq.h"
 
 #include "libguile/extensions.h"

libguile/stacks.c

@@ -33,6 +33,7 @@
 #include "libguile/list.h"
 #include "libguile/struct.h"
 #include "libguile/macros.h"
+#include "libguile/pairs.h"
 #include "libguile/procprop.h"
 #include "libguile/modules.h"
 #include "libguile/strings.h"

libguile/stime.c

@@ -50,6 +50,7 @@
 #include <unistr.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/async.h"
 #include "libguile/feature.h"

libguile/strings.c

@@ -36,6 +36,7 @@
 #include "striconveh.h"
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/chars.h"
 #include "libguile/strings.h"
 #include "libguile/ports.h"

libguile/strorder.c

@@ -25,6 +25,7 @@
 #include "libguile/_scm.h"
 #include "libguile/boolean.h"
 #include "libguile/chars.h"
+#include "libguile/pairs.h"
 #include "libguile/strings.h"
 #include "libguile/symbols.h"
 

libguile/struct.c

@@ -37,6 +37,7 @@
 #include "libguile/goops.h"
 #include "libguile/alist.h"
 #include "libguile/hashtab.h"
+#include "libguile/pairs.h"
 #include "libguile/ports.h"
 #include "libguile/strings.h"
 #include "libguile/srfi-13.h"

libguile/symbols.c

@@ -26,6 +26,7 @@
 #include <unistr.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/chars.h"
 #include "libguile/eval.h"

libguile/threads.c

@@ -39,6 +39,7 @@
 #endif
 
 #include "libguile/bdw-gc.h"
+#include "libguile/pairs.h"
 #include <gc/gc_mark.h>
 
 #include "libguile/_scm.h"

libguile/throw.c

@@ -27,6 +27,7 @@
 #include <stdio.h>
 #include <unistdio.h>
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/boolean.h"
 #include "libguile/smob.h"
 #include "libguile/eval.h"

libguile/trees.c

@@ -24,6 +24,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/eq.h"
 
 #include "libguile/list.h"

libguile/values.c

@@ -22,6 +22,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/eval.h"
 #include "libguile/feature.h"
 #include "libguile/gc.h"

libguile/vectors.c

@@ -24,6 +24,7 @@
 #endif
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/eq.h"
 #include "libguile/list.h"
 

libguile/vm.c

@@ -34,6 +34,7 @@
 #endif
 
 #include "libguile/bdw-gc.h"
+#include "libguile/pairs.h"
 #include <gc/gc_mark.h>
 
 #include "libguile/_scm.h"

libguile/weak-list.h

@@ -3,7 +3,7 @@
 #ifndef SCM_WEAK_LIST_H
 #define SCM_WEAK_LIST_H
 
-/* 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
@@ -24,6 +24,7 @@
 
 
 #include "libguile/__scm.h"
+#include "libguile/pairs.h"
 #include "libguile/weak-vector.h"
 
 

libguile/weak-set.c

@@ -25,6 +25,7 @@
 #include <assert.h>
 
 #include "libguile/_scm.h"
+#include "libguile/pairs.h"
 #include "libguile/finalizers.h"
 #include "libguile/hash.h"
 #include "libguile/eval.h"

libguile/weak-table.c

@@ -25,6 +25,7 @@
 #include <assert.h>
 
 #include "libguile/bdw-gc.h"
+#include "libguile/pairs.h"
 #include <gc/gc_typed.h>
 
 #include "libguile/_scm.h"

libguile/weak-vector.c

@@ -28,6 +28,7 @@
 #include "libguile/_scm.h"
 #include "libguile/extensions.h"
 #include "libguile/list.h"
+#include "libguile/pairs.h"
 #include "libguile/weak-vector.h"