Only include ports.h where it is actually needed.

libguile/ChangeLog

@@ -1,3 +1,13 @@
+2000-03-17  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* _scm.h:  Don't include ports.h everywhere...
+
+	* arbiters.c backtrace.c debug.c dynl.c dynwind.c eval.c feature.c
+	fluids.c gc.c gdbint.c guardians.c hash.c keywords.c mallocs.c
+	numbers.c objects.c print.c read.c root.c smob.c srcprop.c
+	stackchk.c strports.c struct.c throw.c variable.c:  ... only
+	include it here.
+
 2000-03-17  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* _scm.h:  Don't include vectors.h everywhere...

libguile/_scm.h

@@ -72,7 +72,6 @@
 #include "boolean.h"		/* Everyone wonders about the truth.  */
 #include "strings.h"		/* Everyone loves string.  */
 #include "root.h"		/* Everyone uses these objects.  */
-#include "ports.h"		/* Everyone does I/O.  */
 #include "async.h"		/* Everyone allows/disallows ints.  */
 #ifdef USE_THREADS
 #include "threads.h"		/* The cooperative thread package does

libguile/arbiters.c

@@ -46,6 +46,7 @@
 
 #include <stdio.h>
 #include "_scm.h"
+#include "ports.h"
 #include "smob.h"
 
 #include "validate.h"

libguile/backtrace.c

@@ -62,6 +62,7 @@
 #include "strports.h"
 #include "throw.h"
 #include "fluids.h"
+#include "ports.h"
 
 #include "validate.h"
 #include "backtrace.h"

libguile/debug.c

@@ -63,6 +63,7 @@
 #include "feature.h"
 #include "dynwind.h"
 #include "modules.h"
+#include "ports.h"
 
 #include "validate.h"
 #include "debug.h"

libguile/dynl.c

@@ -69,6 +69,7 @@ maybe_drag_in_eprintf ()
 #include "dynl.h"
 #include "smob.h"
 #include "keywords.h"
+#include "ports.h"
 
 #include "validate.h"
 

libguile/dynwind.c

@@ -49,6 +49,7 @@
 #include "eval.h"
 #include "alist.h"
 #include "fluids.h"
+#include "ports.h"
 #include "smob.h"
 
 #include "dynwind.h"

libguile/eval.c

@@ -95,6 +95,7 @@ char *alloca ();
 #include "objects.h"
 #include "feature.h"
 #include "modules.h"
+#include "ports.h"
 #include "vectors.h"
 
 #include "validate.h"

libguile/feature.c

@@ -48,6 +48,7 @@
 #include "_scm.h"
 
 #include "eval.h"
+#include "ports.h"
 #include "procprop.h"
 #include "smob.h"
 

libguile/fluids.c

@@ -50,6 +50,7 @@
 #include "fluids.h"
 #include "alist.h"
 #include "eval.h"
+#include "ports.h"
 
 #define INITIAL_FLUIDS 10
 #include "validate.h"

libguile/gc.c

@@ -53,6 +53,7 @@
 #include "smob.h"
 #include "unif.h"
 #include "async.h"
+#include "ports.h"
 #include "vectors.h"
 
 #include "validate.h"

libguile/gdbint.c

@@ -60,6 +60,7 @@
 #include "eval.h"
 #include "chars.h"
 #include "modules.h"
+#include "ports.h"
 
 #include "gdbint.h"
 

libguile/guardians.c

@@ -58,6 +58,7 @@
 #include <assert.h>
 
 #include "_scm.h"
+#include "ports.h"
 #include "print.h"
 #include "smob.h"
 #include "vectors.h"

libguile/hash.c

@@ -47,6 +47,7 @@
 #include <stdio.h>
 #include "_scm.h"
 #include "chars.h"
+#include "ports.h"
 #include "vectors.h"
 
 #include "validate.h"

libguile/keywords.c

@@ -46,6 +46,7 @@
 
 #include <stdio.h>
 #include "_scm.h"
+#include "ports.h"
 #include "smob.h"
 #include "vectors.h"
 

libguile/mallocs.c

@@ -24,6 +24,7 @@
 
 #include <stdio.h>
 #include "_scm.h"
+#include "ports.h"
 #include "smob.h"
 
 #include "mallocs.h"

libguile/numbers.c

@@ -49,6 +49,7 @@
 #include "_scm.h"
 #include "unif.h"
 #include "feature.h"
+#include "ports.h"
 #include "smob.h"
 #include "vectors.h"
 

libguile/objects.c

@@ -58,6 +58,7 @@
 #include "smob.h"
 #include "eval.h"
 #include "alist.h"
+#include "ports.h"
 #include "vectors.h"
 
 #include "validate.h"

libguile/print.c

@@ -57,6 +57,7 @@
 #include "alist.h"
 #include "struct.h"
 #include "objects.h"
+#include "ports.h"
 #include "strports.h"
 #include "vectors.h"
 

libguile/read.c

@@ -54,6 +54,7 @@
 #include "srcprop.h"
 #include "hashtab.h"
 #include "hash.h"
+#include "ports.h"
 #include "vectors.h"
 
 #include "validate.h"

libguile/root.c

@@ -53,6 +53,7 @@
 #include "pairs.h"
 #include "throw.h"
 #include "fluids.h"
+#include "ports.h"
 
 #include "root.h"
 

libguile/smob.c

@@ -48,6 +48,7 @@
 #include "_scm.h"
 
 #include "objects.h"
+#include "ports.h"
 
 #ifdef HAVE_MALLOC_H
 #include <malloc.h>

libguile/srcprop.c

@@ -54,6 +54,7 @@
 #include "debug.h"
 #include "hashtab.h"
 #include "hash.h"
+#include "ports.h"
 #include "weaks.h"
 
 #include "validate.h"

libguile/stackchk.c

@@ -46,6 +46,7 @@
 
 #include <stdio.h>
 #include "_scm.h"
+#include "ports.h"
 
 #include "stackchk.h"
 

libguile/strports.c

@@ -53,6 +53,7 @@
 
 #include "unif.h"
 #include "eval.h"
+#include "ports.h"
 #include "read.h"
 #include "vectors.h"
 

libguile/struct.c

@@ -51,6 +51,7 @@
 #include "alist.h"
 #include "weaks.h"
 #include "hashtab.h"
+#include "ports.h"
 
 #include "validate.h"
 #include "struct.h"

libguile/throw.c

@@ -59,6 +59,7 @@
 #include "stackchk.h"
 #include "stacks.h"
 #include "fluids.h"
+#include "ports.h"
 
 #include "validate.h"
 #include "throw.h"

libguile/variable.c

@@ -47,6 +47,7 @@
 #include <stdio.h>
 #include "_scm.h"
 #include "eq.h"
+#include "ports.h"
 #include "smob.h"
 
 #include "validate.h"