diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-09-10 19:22:40 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-09-10 19:22:40 +0000 |
commit | 3e8a29f5f5c8afd927d04e1b9c1ee0ac6c259c1a (patch) | |
tree | 2b879981654c3b6324d9de3677626d5e4b090849 | |
parent | c5d5195418d269d73c12b0d46a1b6e5af7598ebf (diff) | |
download | guile-3e8a29f5f5c8afd927d04e1b9c1ee0ac6c259c1a.tar.gz |
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.
-rw-r--r-- | libguile/Makefile.in | 249 | ||||
-rw-r--r-- | libguile/__scm.h | 6 | ||||
-rw-r--r-- | libguile/continuations.c | 2 | ||||
-rw-r--r-- | libguile/error.h | 4 | ||||
-rw-r--r-- | libguile/feature.h | 6 | ||||
-rw-r--r-- | libguile/gc.c | 6 | ||||
-rw-r--r-- | libguile/gc.h | 42 | ||||
-rw-r--r-- | libguile/init.h | 6 | ||||
-rw-r--r-- | libguile/libguile.h | 1 | ||||
-rw-r--r-- | libguile/load.h | 10 | ||||
-rw-r--r-- | libguile/smob.h | 8 |
11 files changed, 163 insertions, 177 deletions
diff --git a/libguile/Makefile.in b/libguile/Makefile.in index b391b9786..08f026483 100644 --- 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 51560c4ea..7322a69fb 100644 --- a/libguile/__scm.h +++ b/libguile/__scm.h @@ -123,14 +123,14 @@ typedef unsigned long ulong_long; /* 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 diff --git a/libguile/continuations.c b/libguile/continuations.c index 6424baa1d..85481344d 100644 --- 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 6ada0c983..816d4f767 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -51,8 +51,8 @@ extern SCM system_error_sym; -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 439f660b1..a45b394bb 100644 --- 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 c900d53bb..a9125e96c 100644 --- 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 *)); diff --git a/libguile/gc.h b/libguile/gc.h index f0faa7b6d..4ea353431 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -70,28 +70,28 @@ extern long scm_mtrigger; -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 9d4bb0fc4..083259648 100644 --- a/libguile/init.h +++ b/libguile/init.h @@ -58,10 +58,10 @@ enum scm_boot_status -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 083b018c8..1ba6d7049 100644 --- 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 aeb1ac71a..a1d37ab39 100644 --- a/libguile/load.h +++ b/libguile/load.h @@ -46,10 +46,10 @@ #include "libguile/__scm.h" -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 99d1bfd72..ddd3cc4df 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -44,12 +44,8 @@ */ #include "libguile/__scm.h" -#include "libguile/params.h" - - - typedef struct scm_smobfuns { SCM (*mark) SCM_P ((SCM)); @@ -77,7 +73,7 @@ extern scm_smobfuns *scm_smobs; #include "libguile/markers.h" -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 */ |