Use SCM_P instead of PROTO; the latter intrudes on the user's

namespace.
* params.h: Deleted; definition of SCM_P moved to...
* __scm.h: ... here, where it replaces PROTO macro.
* libguile.h, smob.h: Don't #include "params.h".
* continuations.c, error.h, feature.h, gc.c, gc.h, init.h, load.h,
smob.h: Fix prototypes accordingly.
* Makefile.in: Update dependencies.
(inner_h_files): Remove params.h.

diff --git a/libguile/Makefile.in b/libguile/Makefile.in
index b391b97..08f0264 100644 (file)
--- a/libguile/Makefile.in
+++ b/libguile/Makefile.in
@@ -193,7 +193,6 @@ inner_h_files= __scm.h \
                objprop.h \
                options.h \
                pairs.h \
-               params.h \
                ports.h \
                posix.h \
                print.h \
@@ -479,137 +478,131 @@ depends:
 
 ###
 alist.o: alist.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h eq.h alist.h alist.x
 append.o: append.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h append.h append.x
 appinit.o: appinit.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h
 arbiters.o: arbiters.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
- strings.h vectors.h root.h ports.h async.h smob.h \
- params.h ports.h genio.h \
- print.h options.h markers.h \
- arbiters.h arbiters.x
+ strings.h vectors.h root.h ports.h async.h smob.h ports.h \
+ genio.h print.h options.h \
+ markers.h arbiters.h arbiters.x
 async.o: async.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h eval.h throw.h smob.h \
- params.h ports.h genio.h \
- print.h options.h markers.h \
- async.x
+ ports.h genio.h print.h \
+ options.h markers.h async.x
 boolean.o: boolean.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h boolean.x
 chars.o: chars.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h chars.x
 continuations.o: continuations.c _scm.h __scm.h \
- scmconfig.h tags.h error.h pairs.h \
- __scm.h list.h gc.h marksweep.h gsubr.h \
- procs.h numbers.h symbols.h boolean.h strings.h vectors.h root.h \
- ports.h async.h stackchk.h continuations.h \
+ scmconfig.h tags.h error.h \
+ __scm.h pairs.h list.h gc.h marksweep.h \
+ gsubr.h procs.h numbers.h symbols.h boolean.h strings.h vectors.h \
+ root.h ports.h async.h stackchk.h continuations.h \
  debug.h options.h debug.h dynwind.h \
  continuations.h continuations.x
 debug.o: debug.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h eval.h throw.h genio.h \
- print.h options.h smob.h params.h \
- ports.h genio.h markers.h \
- procprop.h srcprop.h alist.h continuations.h strports.h read.h \
- feature.h debug.h debug.x
+ print.h options.h smob.h ports.h \
+ genio.h markers.h procprop.h srcprop.h \
+ alist.h continuations.h strports.h read.h feature.h debug.h debug.x
 dynwind.o: dynwind.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h eval.h alist.h dynwind.h \
  dynwind.x
 eq.o: eq.c _scm.h __scm.h scmconfig.h tags.h \
- error.h pairs.h __scm.h list.h gc.h \
+ error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h stackchk.h \
  continuations.h debug.h options.h \
- strorder.h smob.h params.h ports.h \
- genio.h print.h markers.h unif.h \
- eq.h eq.x
+ strorder.h smob.h ports.h genio.h \
+ print.h markers.h unif.h eq.h eq.x
 error.o: error.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
  print.h options.h throw.h error.x
 eval.o: eval.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h debug.h \
  options.h append.h alist.h sequences.h eq.h \
- continuations.h throw.h smob.h params.h \
- ports.h genio.h print.h \
- markers.h markers.h procprop.h hashtab.h srcprop.h \
- stackchk.h continuations.h debug.h eval.h \
- eval.c eval.x
+ continuations.h throw.h smob.h ports.h \
+ genio.h print.h markers.h \
+ markers.h procprop.h hashtab.h srcprop.h stackchk.h \
+ continuations.h debug.h eval.h eval.c eval.x
 extchrs.o: extchrs.c extchrs.h
 fdsocket.o: fdsocket.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h filesys.h unif.h \
  fdsocket.h fdsocket.x
 feature.o: feature.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h feature.h feature.x
 files.o: files.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h files.h files.x
 filesys.o: filesys.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
- print.h options.h smob.h params.h \
- ports.h genio.h markers.h \
- filesys.h filesys.x
+ print.h options.h smob.h ports.h \
+ genio.h markers.h filesys.h filesys.x
 fports.o: fports.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h markers.h fports.h \
  ports.h fports.x
 gc.o: gc.c _scm.h __scm.h scmconfig.h tags.h \
- error.h pairs.h __scm.h list.h gc.h \
+ error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h stime.h stackchk.h \
  continuations.h debug.h options.h \
  struct.h genio.h print.h weaks.h smob.h \
- params.h ports.h genio.h \
- markers.h unif.h gc.x
+ ports.h genio.h markers.h unif.h \
+ gc.x
 gdbint.o: gdbint.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h tag.h strports.h read.h \
  options.h print.h eval.h chars.h gdbint.h gdb_interface.h
 genio.o: genio.c extchrs.h _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h genio.h \
  print.h options.h
 gsubr.o: gsubr.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
  print.h options.h
 hash.o: hash.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h hash.h hash.x
 hashtab.o: hashtab.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h alist.h hash.h eval.h \
  hashtab.h hashtab.x
@@ -623,228 +616,226 @@ init.o: init.c _scm.h __scm.h scmconfig.h \
  ports.h gdbint.h hash.h hashtab.h ioext.h kw.h load.h \
  mallocs.h mbstrings.h symbols.h objprop.h options.h \
  posix.h print.h procprop.h ramap.h read.h scmsigs.h sequences.h \
- simpos.h smob.h params.h genio.h \
- print.h markers.h socket.h srcprop.h \
- stackchk.h continuations.h debug.h stime.h \
- strop.h strorder.h strports.h struct.h tag.h throw.h unif.h \
- variable.h version.h vports.h weaks.h init.h
+ simpos.h smob.h genio.h print.h \
+ markers.h socket.h srcprop.h stackchk.h \
+ continuations.h debug.h stime.h strop.h \
+ strorder.h strports.h struct.h tag.h throw.h unif.h variable.h \
+ version.h vports.h weaks.h init.h
 ioext.o: ioext.c fd.h _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h fports.h \
  ports.h ioext.h ioext.x
 kw.o: kw.c _scm.h __scm.h scmconfig.h tags.h \
- error.h pairs.h __scm.h list.h gc.h \
+ error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
  print.h options.h mbstrings.h \
- symbols.h smob.h params.h ports.h \
- genio.h markers.h kw.h kw.x
+ symbols.h smob.h ports.h genio.h \
+ markers.h kw.h kw.x
 list.o: list.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h eq.h list.x
 load.o: load.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h libpath.h fports.h \
  ports.h read.h options.h eval.h load.h load.x
 mallocs.o: mallocs.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
- print.h options.h smob.h params.h \
- ports.h genio.h markers.h \
- mallocs.h
+ print.h options.h smob.h ports.h \
+ genio.h markers.h mallocs.h
 markers.o: markers.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h markers.h
 marksweep.o: marksweep.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h
 mbstrings.o: mbstrings.c extchrs.h _scm.h __scm.h \
- scmconfig.h tags.h error.h pairs.h \
- __scm.h list.h gc.h marksweep.h gsubr.h \
- procs.h numbers.h symbols.h boolean.h strings.h vectors.h root.h \
- ports.h async.h chars.h unif.h genio.h print.h \
+ scmconfig.h tags.h error.h \
+ __scm.h pairs.h list.h gc.h marksweep.h \
+ gsubr.h procs.h numbers.h symbols.h boolean.h strings.h vectors.h \
+ root.h ports.h async.h chars.h unif.h genio.h print.h \
  options.h read.h mbstrings.h symbols.h \
  mbstrings.x
 numbers.o: numbers.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
  print.h options.h unif.h numbers.x
 objprop.o: objprop.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h hashtab.h alist.h weaks.h \
  objprop.h objprop.x
 options.o: options.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h options.h options.x
 pairs.o: pairs.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h pairs.x
 ports.o: ports.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
  print.h options.h chars.h markers.h fports.h \
  ports.h strports.h vports.h ports.x
 posix.o: posix.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h fports.h \
  ports.h genio.h print.h options.h \
  scmsigs.h read.h unif.h feature.h sequences.h posix.h posix.x
 print.o: print.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h genio.h \
  print.h options.h mbstrings.h \
- symbols.h smob.h params.h ports.h \
- genio.h markers.h eval.h procprop.h read.h \
- weaks.h unif.h print.h print.x
+ symbols.h smob.h ports.h genio.h \
+ markers.h eval.h procprop.h read.h weaks.h unif.h print.h \
+ print.x
 procprop.o: procprop.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h alist.h eval.h procprop.h \
  procprop.x
 procs.o: procs.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h procs.x
 ramap.o: ramap.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h unif.h smob.h \
- params.h ports.h genio.h \
- print.h options.h markers.h \
- chars.h eq.h eval.h feature.h ramap.h ramap.x
+ ports.h genio.h print.h \
+ options.h markers.h chars.h eq.h eval.h \
+ feature.h ramap.h ramap.x
 read.o: read.c extchrs.h _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h genio.h \
  print.h options.h eval.h unif.h mbstrings.h \
  symbols.h kw.h alist.h read.h read.x
 root.o: root.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h stackchk.h \
  continuations.h debug.h options.h
 scmsigs.o: scmsigs.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h scmsigs.h scmsigs.x
 sequences.o: sequences.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h sequences.h sequences.x
 simpos.o: simpos.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h scmsigs.h simpos.h \
  simpos.x
 smob.o: smob.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
- strings.h vectors.h root.h ports.h async.h smob.h \
- params.h ports.h genio.h \
- print.h options.h markers.h
+ strings.h vectors.h root.h ports.h async.h smob.h ports.h \
+ genio.h print.h options.h \
+ markers.h
 socket.o: socket.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h feature.h socket.h \
  socket.x
 srcprop.o: srcprop.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
- strings.h vectors.h root.h ports.h async.h smob.h \
- params.h ports.h genio.h \
- print.h options.h markers.h \
- alist.h debug.h hashtab.h weaks.h srcprop.h srcprop.x
+ strings.h vectors.h root.h ports.h async.h smob.h ports.h \
+ genio.h print.h options.h \
+ markers.h alist.h debug.h hashtab.h weaks.h srcprop.h \
+ srcprop.x
 stackchk.o: stackchk.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
  print.h options.h stackchk.h \
  continuations.h debug.h stackchk.x
 stime.o: stime.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h stime.h stime.x
 strerror.o: strerror.c
 strings.o: strings.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h strings.x
 strop.o: strop.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h strop.h strop.x
 strorder.o: strorder.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h strorder.h \
  strorder.x
 strports.o: strports.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h unif.h eval.h print.h \
  options.h strports.h strports.x
 struct.o: struct.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h struct.h struct.x
 symbols.o: symbols.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h eval.h variable.h \
  alist.h mbstrings.h symbols.h symbols.x
 tag.o: tag.c _scm.h __scm.h scmconfig.h tags.h \
- error.h pairs.h __scm.h list.h gc.h \
+ error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h struct.h tag.h \
  tag.x
 throw.o: throw.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
- print.h options.h smob.h params.h \
- ports.h genio.h markers.h alist.h \
- eval.h dynwind.h debug.h continuations.h throw.h throw.x
+ print.h options.h smob.h ports.h \
+ genio.h markers.h alist.h eval.h dynwind.h \
+ debug.h continuations.h throw.h throw.x
 unif.o: unif.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h chars.h eval.h genio.h \
- print.h options.h smob.h params.h \
- ports.h genio.h markers.h \
- sequences.h strop.h feature.h unif.h ramap.h unif.x
+ print.h options.h smob.h ports.h \
+ genio.h markers.h sequences.h strop.h \
+ feature.h unif.h ramap.h unif.x
 variable.o: variable.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h genio.h \
- print.h options.h smob.h params.h \
- ports.h genio.h markers.h \
- variable.h variable.x
+ print.h options.h smob.h ports.h \
+ genio.h markers.h variable.h variable.x
 vectors.o: vectors.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h eq.h vectors.x
 version.o: version.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h version.h version.x
 vports.o: vports.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h eval.h chars.h fports.h \
  ports.h vports.h vports.x
 weaks.o: weaks.c _scm.h __scm.h scmconfig.h \
- tags.h error.h pairs.h __scm.h list.h gc.h \
+ tags.h error.h __scm.h pairs.h list.h gc.h \
  marksweep.h gsubr.h procs.h numbers.h symbols.h boolean.h \
  strings.h vectors.h root.h ports.h async.h weaks.h weaks.x

diff --git a/libguile/__scm.h b/libguile/__scm.h
index 51560c4..7322a69 100644 (file)
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -123,14 +123,14 @@ typedef unsigned long ulong_long;
 
 \f
 /* Write prototype declarations like this:
-     int foo PROTO ((int a, int b));
+     int foo SCM_P ((int a, int b));
    At definitions, use K&R style declarations, but make sure there's a
    declarative prototype (as above) in scope.  This will give you
    argument type checking, when available, and be harmless otherwise.  */
 #ifdef __STDC__
-#  define PROTO(x) x
+#  define SCM_P(x) x
 #else
-#  define PROTO(x) (x)
+#  define SCM_P(x) (x)
 #endif
 
 \f

diff --git a/libguile/continuations.c b/libguile/continuations.c
index 6424baa..8548134 100644 (file)
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -124,7 +124,7 @@ scm_make_cont (answer)
 }
 
 
-void scm_dynthrow PROTO ((SCM *a));
+void scm_dynthrow SCM_P ((SCM *a));
 
 /* Grow the stack so that there is room */
 /* to copy in the continuation.  Then */

diff --git a/libguile/error.h b/libguile/error.h
index 6ada0c9..816d4f7 100644 (file)
--- a/libguile/error.h
+++ b/libguile/error.h
@@ -51,8 +51,8 @@ extern SCM system_error_sym;
 
 \f
 
-extern void scm_error PROTO ((SCM key, char *subr, char *message, SCM args, SCM rest));
-extern void (*scm_error_callback) PROTO ((SCM key, char *subr, char *message, SCM args, SCM rest));
+extern void scm_error SCM_P ((SCM key, char *subr, char *message, SCM args, SCM rest));
+extern void (*scm_error_callback) SCM_P ((SCM key, char *subr, char *message, SCM args, SCM rest));
 
 #ifdef __STDC__
 extern int scm_handle_it (int i);

diff --git a/libguile/feature.h b/libguile/feature.h
index 439f660..a45b394 100644 (file)
--- a/libguile/feature.h
+++ b/libguile/feature.h
@@ -49,8 +49,8 @@
 
 extern SCM *scm_loc_features;
 
-extern void scm_add_feature PROTO((char* str));
-extern SCM scm_program_arguments  PROTO((void));
-extern void scm_init_feature PROTO((void));
+extern void scm_add_feature SCM_P((char* str));
+extern SCM scm_program_arguments  SCM_P((void));
+extern void scm_init_feature SCM_P((void));
 
 #endif  /* FEATUREH */

diff --git a/libguile/gc.c b/libguile/gc.c
index c900d53..a9125e9 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -187,9 +187,9 @@ struct scm_heap_seg_data
 
 
 
-static void scm_mark_weak_vector_spines PROTO ((void));
-static scm_sizet init_heap_seg PROTO ((SCM_CELLPTR, scm_sizet, int, SCM *));
-static void alloc_some_heap PROTO ((int, SCM *));
+static void scm_mark_weak_vector_spines SCM_P ((void));
+static scm_sizet init_heap_seg SCM_P ((SCM_CELLPTR, scm_sizet, int, SCM *));
+static void alloc_some_heap SCM_P ((int, SCM *));
 
 
 \f

diff --git a/libguile/gc.h b/libguile/gc.h
index f0faa7b..4ea3534 100644 (file)
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -70,28 +70,28 @@ extern long scm_mtrigger;
 
 \f
 
-extern SCM scm_gc_stats PROTO ((void));
-extern void scm_gc_start PROTO ((char *what));
-extern void scm_gc_end PROTO ((void));
-extern SCM scm_gc PROTO ((void));
-extern void scm_gc_for_alloc PROTO ((int ncells, SCM * freelistp));
-extern SCM scm_gc_for_newcell PROTO ((void));
-extern void scm_igc PROTO ((char *what));
-extern void scm_gc_mark PROTO ((SCM p));
-extern void scm_mark_locations PROTO ((SCM_STACKITEM x[], scm_sizet n));
-extern int scm_cellp PROTO ((SCM value));
-extern void scm_gc_sweep PROTO ((void));
-extern char * scm_must_malloc PROTO ((long len, char *what));
-extern char * scm_must_realloc PROTO ((char *where, long olen, long len,
+extern SCM scm_gc_stats SCM_P ((void));
+extern void scm_gc_start SCM_P ((char *what));
+extern void scm_gc_end SCM_P ((void));
+extern SCM scm_gc SCM_P ((void));
+extern void scm_gc_for_alloc SCM_P ((int ncells, SCM * freelistp));
+extern SCM scm_gc_for_newcell SCM_P ((void));
+extern void scm_igc SCM_P ((char *what));
+extern void scm_gc_mark SCM_P ((SCM p));
+extern void scm_mark_locations SCM_P ((SCM_STACKITEM x[], scm_sizet n));
+extern int scm_cellp SCM_P ((SCM value));
+extern void scm_gc_sweep SCM_P ((void));
+extern char * scm_must_malloc SCM_P ((long len, char *what));
+extern char * scm_must_realloc SCM_P ((char *where, long olen, long len,
                                       char *what));
-extern void scm_must_free PROTO ((char *obj));
-extern void scm_remember PROTO ((SCM * ptr));
-extern SCM scm_return_first PROTO ((SCM elt, ...));
-extern SCM scm_permanent_object PROTO ((SCM obj));
-extern SCM scm_protect_object PROTO ((SCM obj));
-extern SCM scm_unprotect_object PROTO ((SCM obj));
-extern int scm_init_storage PROTO ((long init_heap_size));
-extern void scm_init_gc PROTO ((void));
+extern void scm_must_free SCM_P ((char *obj));
+extern void scm_remember SCM_P ((SCM * ptr));
+extern SCM scm_return_first SCM_P ((SCM elt, ...));
+extern SCM scm_permanent_object SCM_P ((SCM obj));
+extern SCM scm_protect_object SCM_P ((SCM obj));
+extern SCM scm_unprotect_object SCM_P ((SCM obj));
+extern int scm_init_storage SCM_P ((long init_heap_size));
+extern void scm_init_gc SCM_P ((void));
 
 #include "libguile/marksweep.h"
 #endif  /* GCH */

diff --git a/libguile/init.h b/libguile/init.h
index 9d4bb0f..0832596 100644 (file)
--- a/libguile/init.h
+++ b/libguile/init.h
@@ -58,10 +58,10 @@ enum scm_boot_status
 
 
 \f
-extern void scm_start_stack PROTO ((void *base,
+extern void scm_start_stack SCM_P ((void *base,
                                    FILE *in, FILE *out, FILE *err));
-extern void scm_restart_stack PROTO ((void * base));
-extern int scm_boot_guile PROTO ((char **result,
+extern void scm_restart_stack SCM_P ((void * base));
+extern int scm_boot_guile SCM_P ((char **result,
                                  int argc, char **argv,
                                  FILE *in, FILE *out, FILE *err,
                                  void (*init_func) (),

diff --git a/libguile/libguile.h b/libguile/libguile.h
index 083b018..1ba6d70 100644 (file)
--- a/libguile/libguile.h
+++ b/libguile/libguile.h
@@ -90,7 +90,6 @@
 #include "libguile/numbers.h"
 #include "libguile/objprop.h"
 #include "libguile/options.h"
-#include "libguile/params.h"
 #include "libguile/ports.h"
 #include "libguile/posix.h"
 #include "libguile/print.h"

diff --git a/libguile/load.h b/libguile/load.h
index aeb1ac7..a1d37ab 100644 (file)
--- a/libguile/load.h
+++ b/libguile/load.h
@@ -46,10 +46,10 @@
 #include "libguile/__scm.h"
 
 \f
-extern void scm_init_load_path PROTO ((void));
-extern SCM scm_sys_try_load PROTO ((SCM filename, SCM casep, SCM sharp));
-extern SCM scm_sys_search_load_path PROTO ((SCM filename));
-extern SCM scm_sys_try_load_path PROTO ((SCM filename, SCM casep, SCM sharp));
-extern void scm_init_load PROTO ((void));
+extern void scm_init_load_path SCM_P ((void));
+extern SCM scm_sys_try_load SCM_P ((SCM filename, SCM casep, SCM sharp));
+extern SCM scm_sys_search_load_path SCM_P ((SCM filename));
+extern SCM scm_sys_try_load_path SCM_P ((SCM filename, SCM casep, SCM sharp));
+extern void scm_init_load SCM_P ((void));
 
 #endif  /* LOADH */

diff --git a/libguile/smob.h b/libguile/smob.h
index 99d1bfd..ddd3cc4 100644 (file)
--- a/libguile/smob.h
+++ b/libguile/smob.h
@@ -44,12 +44,8 @@
  */
 \f
 #include "libguile/__scm.h"
-#include "libguile/params.h"
 
 \f
-
-
-
 typedef struct scm_smobfuns
 {
   SCM (*mark) SCM_P ((SCM));
@@ -77,7 +73,7 @@ extern scm_smobfuns *scm_smobs;
 #include "libguile/markers.h"
 
 \f
-extern long scm_newsmob PROTO ((scm_smobfuns *smob));
-extern void scm_smob_prehistory PROTO ((void));
+extern long scm_newsmob SCM_P ((scm_smobfuns *smob));
+extern void scm_smob_prehistory SCM_P ((void));
 
 #endif  /* SMOBH */