From 013788b6b11d05933c0348114fff1d8a1a8baff5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sun, 8 Jul 2001 21:00:42 +0000 Subject: [PATCH 01/30] Removed --- libltdl/.cvsignore | 0 1 file changed, 0 insertions(+), 0 deletions(-) delete mode 100644 libltdl/.cvsignore diff --git a/libltdl/.cvsignore b/libltdl/.cvsignore deleted file mode 100644 index e69de29bb..000000000 From 601275cdda30b9a71d866558e249acfd32b17ba3 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sun, 8 Jul 2001 21:04:03 +0000 Subject: [PATCH 02/30] mention scm_read_0str and scm_eval_0str, corrections to file names. --- TODO | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/TODO b/TODO index 60d8fad5b..273d5140b 100644 --- a/TODO +++ b/TODO @@ -1,4 +1,4 @@ -[ID: $Id: TODO,v 1.18 2001-07-07 06:31:26 ttn Exp $] +[ID: $Id: TODO,v 1.19 2001-07-08 21:04:03 mvo Exp $] These TODO items are grouped by target release version. The first group is the "Eventually" group, which is not associated w/ any particular version. @@ -69,12 +69,15 @@ See also file HACKING. === In release 1.8.0: +- remove deprecated functions scm_read_0str, scm_eval_0str. + - remove deprecated "scm_*_t" type names in libguile.h. - remove re-exporting behaviour of `export'. in boot-9.scm, remove begin-deprecated part of `module-export!' in format.scm, remove kluge at top - in srfi13.scm, likewise + in srfi-13.scm, likewise + in srfi-1.scm, likewise - remove deprecated subr and gsubr functions in procs.h, procs.c: scm_make_subr, scm_make_subr_opt, From 2c105c26152940da465ea085a64477e0f1d72da3 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Sun, 8 Jul 2001 23:15:56 +0000 Subject: [PATCH 03/30] * RELEASE: add a note that the RELEASE instructions are out of date now that we're using branches. --- RELEASE | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/RELEASE b/RELEASE index 6996d7a2b..cbd264cf8 100644 --- a/RELEASE +++ b/RELEASE @@ -56,7 +56,8 @@ The "Spiffing" phase you might go through several times as you discover problems. The "Punting" phase you do only once. -Spiffing checklist: +Spiffing checklist (NOTE: these instructions are out of date now that +we're using cvs branches for stable vs unstable). * Do a `cvs update -A', to get rid of any sticky tags in your working directory. From a96b27eadf9b38e8744a8cf3f9d345448ee28bac Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Sun, 8 Jul 2001 23:16:04 +0000 Subject: [PATCH 04/30] * TODO: updated to include relevant itemized post-1.6-RELEASE tasks that are distributable so we can check them off as they are done, and delete 1.6.0 tasks. --- TODO | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/TODO b/TODO index 273d5140b..db2903ad4 100644 --- a/TODO +++ b/TODO @@ -1,4 +1,4 @@ -[ID: $Id: TODO,v 1.19 2001-07-08 21:04:03 mvo Exp $] +-*-text-*- These TODO items are grouped by target release version. The first group is the "Eventually" group, which is not associated w/ any particular version. @@ -61,13 +61,17 @@ See also file HACKING. - eliminate argument checking for closures - Implement a thread-safe alternative to SCM's environment caches +=== Before releasing 1.8.0: -=== In release 1.6.0: +- Make sure we have appropriate interface numbers for shared + libraries, and that we document and use the libtool + conventions. [rlb]. -- Make sure that the deprecation mechanism explained in INSTALL and - README is completed and works. +- Update the version numbers in GUILE-VERSION and README. [rlb] -=== In release 1.8.0: +- Start a new section of the NEWS file. + +- Start a new THANKS file. - remove deprecated functions scm_read_0str, scm_eval_0str. From 04860df734637ca294b02737977516d05161347c Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Sun, 8 Jul 2001 23:16:16 +0000 Subject: [PATCH 05/30] *** empty log message *** --- ChangeLog | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ChangeLog b/ChangeLog index 572301ef0..f907a4dab 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 2001-07-08 Rob Browning + * TODO: updated to include relevant itemized post-1.6-RELEASE + tasks that are distributable so we can check them off as they are + done, and delete 1.6.0 tasks. + + * RELEASE: add a note that the RELEASE instructions are out of + date now that we're using branches. + * AUTHORS: add "many files throughout" for myself. 2001-06-28 Thien-Thi Nguyen From a06e3a75b298d2335d134cfec97ee893b29aea33 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 9 Jul 2001 07:36:48 +0000 Subject: [PATCH 06/30] Remove "face-lift" comment. --- guile-readline/readline.c | 2 -- libguile/alist.c | 2 -- libguile/alloca.c | 2 -- libguile/arbiters.c | 2 -- libguile/async.c | 2 -- libguile/async.h | 2 -- libguile/backtrace.c | 2 -- libguile/boolean.c | 2 -- libguile/chars.c | 2 -- libguile/continuations.c | 2 -- libguile/coop-defs.h | 2 -- libguile/coop-threads.c | 2 -- libguile/debug-malloc.h | 2 -- libguile/debug.c | 2 -- libguile/debug.h | 2 -- libguile/dynl.c | 2 -- libguile/dynwind.c | 2 -- libguile/eq.c | 2 -- libguile/error.c | 2 -- libguile/eval.c | 2 -- libguile/evalext.c | 2 -- libguile/feature.c | 2 -- libguile/feature.h | 2 -- libguile/filesys.c | 2 -- libguile/filesys.h | 2 -- libguile/fluids.c | 2 -- libguile/fluids.h | 2 -- libguile/fports.c | 2 -- libguile/fports.h | 2 -- libguile/gc.c | 2 -- libguile/gc.h | 2 -- libguile/gdbint.c | 2 -- libguile/gsubr.c | 2 -- libguile/guardians.c | 2 -- libguile/hash.c | 2 -- libguile/hashtab.c | 2 -- libguile/hooks.c | 2 -- libguile/hooks.h | 2 -- libguile/inet_aton.c | 2 -- libguile/init.c | 2 -- libguile/ioext.c | 2 -- libguile/keywords.c | 2 -- libguile/keywords.h | 2 -- libguile/lang.c | 2 -- libguile/list.c | 2 -- libguile/load.c | 2 -- libguile/macros.c | 2 -- libguile/mallocs.c | 2 -- libguile/memmove.c | 2 -- libguile/modules.c | 2 -- libguile/net_db.c | 2 -- libguile/numbers.c | 2 -- libguile/numbers.h | 2 -- libguile/objects.c | 2 -- libguile/objprop.c | 2 -- libguile/options.c | 2 -- libguile/pairs.c | 2 -- libguile/pairs.h | 2 -- libguile/ports.c | 2 -- libguile/ports.h | 2 -- libguile/posix.c | 2 -- libguile/print.c | 2 -- libguile/print.h | 2 -- libguile/procprop.c | 2 -- libguile/procs.c | 2 -- libguile/procs.h | 2 -- libguile/properties.c | 2 -- libguile/putenv.c | 2 -- libguile/ramap.c | 2 -- libguile/random.c | 2 -- libguile/random.h | 2 -- libguile/read.c | 2 -- libguile/regex-posix.c | 2 -- libguile/regex-posix.h | 2 -- libguile/root.c | 2 -- libguile/root.h | 2 -- libguile/scmsigs.c | 2 -- libguile/script.c | 2 -- libguile/simpos.c | 2 -- libguile/smob.c | 2 -- libguile/snarf.h | 2 -- libguile/socket.c | 2 -- libguile/sort.c | 2 -- libguile/srcprop.c | 2 -- libguile/srcprop.h | 2 -- libguile/stackchk.c | 2 -- libguile/stacks.c | 2 -- libguile/stacks.h | 2 -- libguile/stime.c | 2 -- libguile/strerror.c | 2 -- libguile/strings.c | 2 -- libguile/strings.h | 2 -- libguile/strop.c | 2 -- libguile/strorder.c | 2 -- libguile/strports.c | 2 -- libguile/struct.c | 2 -- libguile/struct.h | 2 -- libguile/symbols-deprecated.c | 2 -- libguile/symbols.c | 2 -- libguile/symbols.h | 2 -- libguile/tags.h | 2 -- libguile/threads.c | 2 -- libguile/threads.h | 2 -- libguile/throw.c | 2 -- libguile/unif.c | 2 -- libguile/unif.h | 2 -- libguile/variable.c | 2 -- libguile/variable.h | 2 -- libguile/vectors.c | 2 -- libguile/vectors.h | 2 -- libguile/version.c | 2 -- libguile/vports.c | 2 -- libguile/weaks.c | 2 -- libguile/weaks.h | 2 -- 114 files changed, 228 deletions(-) diff --git a/guile-readline/readline.c b/guile-readline/readline.c index 0d2403384..c9245caff 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -19,8 +19,6 @@ * */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/alist.c b/libguile/alist.c index 5e75c8e95..0b2e81557 100644 --- a/libguile/alist.c +++ b/libguile/alist.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/_scm.h" diff --git a/libguile/alloca.c b/libguile/alloca.c index 8173cb6bc..e814ed43f 100644 --- a/libguile/alloca.c +++ b/libguile/alloca.c @@ -21,8 +21,6 @@ allocating any. It is a good idea to use alloca(0) in your main control loop, etc. to force garbage collection. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #ifdef HAVE_CONFIG_H #include "libguile/scmconfig.h" diff --git a/libguile/arbiters.c b/libguile/arbiters.c index d655abfcd..7bd92caa8 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/async.c b/libguile/async.c index e5946393c..b5c1f9e92 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/async.h b/libguile/async.h index ca5b7efce..4a5afd59f 100644 --- a/libguile/async.h +++ b/libguile/async.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/backtrace.c b/libguile/backtrace.c index c1d42dc6c..f391a32e8 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -43,8 +43,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include diff --git a/libguile/boolean.c b/libguile/boolean.c index 7bda2139f..cea294c62 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/chars.c b/libguile/chars.c index c47705645..a8967b99f 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/continuations.c b/libguile/continuations.c index ae936fe78..d3fbd6b93 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/coop-defs.h b/libguile/coop-defs.h index ad2deb1d4..6a54c5ca0 100644 --- a/libguile/coop-defs.h +++ b/libguile/coop-defs.h @@ -44,8 +44,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ # ifdef TIME_WITH_SYS_TIME diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c index fda74aa6d..d126f67f6 100644 --- a/libguile/coop-threads.c +++ b/libguile/coop-threads.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/debug-malloc.h b/libguile/debug-malloc.h index 49ee82269..b31b3191e 100644 --- a/libguile/debug-malloc.h +++ b/libguile/debug-malloc.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/debug.c b/libguile/debug.c index c4c738009..49cce42c7 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -43,8 +43,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/_scm.h" diff --git a/libguile/debug.h b/libguile/debug.h index 0954e3329..06a3133cb 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -46,8 +46,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/dynl.c b/libguile/dynl.c index 006bbff6a..1e9d2718a 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -41,8 +41,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* "dynl.c" dynamically link&load object files. diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 9c6ab1069..6a32797cc 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/eq.c b/libguile/eq.c index 73658cfad..515d786b1 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/_scm.h" diff --git a/libguile/error.c b/libguile/error.c index 74e0a5f75..052d07e06 100644 --- a/libguile/error.c +++ b/libguile/error.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/eval.c b/libguile/eval.c index 337c52a8c..ef80bfbf7 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/evalext.c b/libguile/evalext.c index aa44cc502..e7c95aec1 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/feature.c b/libguile/feature.c index 43073e91d..108cfdd61 100644 --- a/libguile/feature.c +++ b/libguile/feature.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/feature.h b/libguile/feature.h index 81baa9011..c22325917 100644 --- a/libguile/feature.h +++ b/libguile/feature.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/filesys.c b/libguile/filesys.c index 4f7a5d09e..f86f790f9 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include diff --git a/libguile/filesys.h b/libguile/filesys.h index 0dbf8c2e2..e0820044b 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/fluids.c b/libguile/fluids.c index ea6c16069..4ce9b8860 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/_scm.h" diff --git a/libguile/fluids.h b/libguile/fluids.h index aa11610d9..60c7a879f 100644 --- a/libguile/fluids.h +++ b/libguile/fluids.h @@ -44,8 +44,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" #include "libguile/root.h" diff --git a/libguile/fports.c b/libguile/fports.c index bc90db6bf..8ccfeab70 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/fports.h b/libguile/fports.h index 1feab7edc..a63699fe3 100644 --- a/libguile/fports.h +++ b/libguile/fports.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/gc.c b/libguile/gc.c index 0d5177912..65316bbb2 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* #define DEBUGINFO */ diff --git a/libguile/gc.h b/libguile/gc.h index 0f0b5a8a3..07a11481b 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/gdbint.c b/libguile/gdbint.c index afb649e0d..54e594e51 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -43,8 +43,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/_scm.h" diff --git a/libguile/gsubr.c b/libguile/gsubr.c index e7513ba00..9b3e1fbff 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/guardians.c b/libguile/guardians.c index db9574635..c54395a20 100644 --- a/libguile/guardians.c +++ b/libguile/guardians.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/hash.c b/libguile/hash.c index 9cb0d7411..70c12546f 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/hashtab.c b/libguile/hashtab.c index fa2840bb8..ca06b2030 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/hooks.c b/libguile/hooks.c index f7945b02c..2d32db31a 100644 --- a/libguile/hooks.c +++ b/libguile/hooks.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/hooks.h b/libguile/hooks.h index 572330eef..c475bb07e 100644 --- a/libguile/hooks.h +++ b/libguile/hooks.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/inet_aton.c b/libguile/inet_aton.c index ec00b5a0d..f8e92541f 100644 --- a/libguile/inet_aton.c +++ b/libguile/inet_aton.c @@ -31,8 +31,6 @@ * SUCH DAMAGE. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)inet_addr.c 8.1 (Berkeley) 6/17/93"; diff --git a/libguile/init.c b/libguile/init.c index 9aefedcd5..2c7901f50 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* Include the headers for just about everything. diff --git a/libguile/ioext.c b/libguile/ioext.c index f7d4232b1..759e78c38 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/keywords.c b/libguile/keywords.c index 0730979b2..e2eb11437 100644 --- a/libguile/keywords.c +++ b/libguile/keywords.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/keywords.h b/libguile/keywords.h index ac35f294a..9112abb45 100644 --- a/libguile/keywords.h +++ b/libguile/keywords.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/lang.c b/libguile/lang.c index 82378e0ff..8ec52f74e 100644 --- a/libguile/lang.c +++ b/libguile/lang.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/list.c b/libguile/list.c index 0da225596..b1465fa78 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/_scm.h" diff --git a/libguile/load.c b/libguile/load.c index 641f152ca..f8c9b76ec 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/macros.c b/libguile/macros.c index 43ea53888..8f011c055 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/mallocs.c b/libguile/mallocs.c index 1801fbb7c..accdcce36 100644 --- a/libguile/mallocs.c +++ b/libguile/mallocs.c @@ -40,8 +40,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/memmove.c b/libguile/memmove.c index adc7bd725..a62083f0f 100644 --- a/libguile/memmove.c +++ b/libguile/memmove.c @@ -1,8 +1,6 @@ /* Wrapper to implement ANSI C's memmove using BSD's bcopy. */ /* This function is in the public domain. --Per Bothner. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include diff --git a/libguile/modules.c b/libguile/modules.c index 55d63d75f..062e3f9ee 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/net_db.c b/libguile/net_db.c index 8bf5a312a..bcb920708 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -40,8 +40,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* Written in 1994 by Aubrey Jaffer. diff --git a/libguile/numbers.c b/libguile/numbers.c index 2c7ebf447..9b5c6a61f 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/numbers.h b/libguile/numbers.h index 6b33ff1e9..7a6d6d7f1 100644 --- a/libguile/numbers.h +++ b/libguile/numbers.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/objects.c b/libguile/objects.c index 888da56dd..e920ac78d 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/objprop.c b/libguile/objprop.c index 41a766c1a..0e3eee7bc 100644 --- a/libguile/objprop.c +++ b/libguile/objprop.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/options.c b/libguile/options.c index 84dbd369c..327f0aa5d 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -42,8 +42,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/pairs.c b/libguile/pairs.c index 0a77e2baf..88ce017c4 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/pairs.h b/libguile/pairs.h index 2614cf37e..6b808f886 100644 --- a/libguile/pairs.h +++ b/libguile/pairs.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/ports.c b/libguile/ports.c index a62c4236e..ddcc4b9a6 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* Headers. */ diff --git a/libguile/ports.h b/libguile/ports.h index e25419849..866b74d23 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/posix.c b/libguile/posix.c index 4eb679eb2..2fe0d4af2 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/print.c b/libguile/print.c index 37eddea02..82c619586 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/print.h b/libguile/print.h index 5591d382b..5d8e3e06d 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/procprop.c b/libguile/procprop.c index 4186a8142..d3d63a3dd 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/procs.c b/libguile/procs.c index 5f23d43ed..576ca91e6 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/procs.h b/libguile/procs.h index 9eba0d635..9e0f34eba 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/properties.c b/libguile/properties.c index b95c5d3da..2b829fcad 100644 --- a/libguile/properties.c +++ b/libguile/properties.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/putenv.c b/libguile/putenv.c index bb7eb0bb1..ccfaaa2d8 100644 --- a/libguile/putenv.c +++ b/libguile/putenv.c @@ -39,8 +39,6 @@ whether to permit this exception to apply to your modifications. If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #ifdef HAVE_CONFIG_H #include "libguile/scmconfig.h" diff --git a/libguile/ramap.c b/libguile/ramap.c index e21d7b8b3..4e0e712c8 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* HWN:FIXME:: diff --git a/libguile/random.c b/libguile/random.c index f367332e5..4883ff16f 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -38,8 +38,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* Author: Mikael Djurfeldt */ diff --git a/libguile/random.h b/libguile/random.h index 50625e20d..020a745bc 100644 --- a/libguile/random.h +++ b/libguile/random.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/read.c b/libguile/read.c index f93fa70c4..131999f46 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index 71cb3b0f3..1a232d59f 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -40,8 +40,6 @@ * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/regex-posix.h b/libguile/regex-posix.h index 718e651c4..23416738f 100644 --- a/libguile/regex-posix.h +++ b/libguile/regex-posix.h @@ -45,8 +45,6 @@ * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/root.c b/libguile/root.c index 793103f49..150d66dc0 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/root.h b/libguile/root.h index 49f3604e1..e5a680e84 100644 --- a/libguile/root.h +++ b/libguile/root.h @@ -44,8 +44,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index ea75a7216..62a0cd99f 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/script.c b/libguile/script.c index e16e65d77..ebd38c1e8 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -41,8 +41,6 @@ /* "script.c" argv tricks for `#!' scripts. Authors: Aubrey Jaffer and Jim Blandy */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include #include diff --git a/libguile/simpos.c b/libguile/simpos.c index 882088b40..7f55c07ee 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/smob.c b/libguile/smob.c index 6d3c586e1..16fef9fcb 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/snarf.h b/libguile/snarf.h index d242e958d..36eea885e 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -46,8 +46,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/socket.c b/libguile/socket.c index a0b852b77..9c22c215a 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/sort.c b/libguile/sort.c index f2edb5a17..70de17505 100644 --- a/libguile/sort.c +++ b/libguile/sort.c @@ -38,8 +38,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* Written in December 1998 by Roland Orre diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 697698298..9f2c89b31 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -42,8 +42,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/srcprop.h b/libguile/srcprop.h index abfbc1709..5da2e1282 100644 --- a/libguile/srcprop.h +++ b/libguile/srcprop.h @@ -46,8 +46,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/stackchk.c b/libguile/stackchk.c index e8971e322..abf6a5a55 100644 --- a/libguile/stackchk.c +++ b/libguile/stackchk.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/stacks.c b/libguile/stacks.c index 3b6387b1f..c49924a38 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -43,8 +43,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/stacks.h b/libguile/stacks.h index 58b83ff80..bea51ce7a 100644 --- a/libguile/stacks.h +++ b/libguile/stacks.h @@ -46,8 +46,6 @@ * The author can be reached at djurfeldt@nada.kth.se * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/stime.c b/libguile/stime.c index fae4beeb8..d90e9798d 100644 --- a/libguile/stime.c +++ b/libguile/stime.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/strerror.c b/libguile/strerror.c index 44ffca628..ba43e8e6b 100644 --- a/libguile/strerror.c +++ b/libguile/strerror.c @@ -42,8 +42,6 @@ If you write modifications of your own for GUILE, it is your choice whether to permit this exception to apply to your modifications. If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ char * strerror (int errnum) diff --git a/libguile/strings.c b/libguile/strings.c index f0d162d43..acb53be8d 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/strings.h b/libguile/strings.h index d6495e615..9307a1742 100644 --- a/libguile/strings.h +++ b/libguile/strings.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/strop.c b/libguile/strop.c index 9e637bfa6..a173cacea 100644 --- a/libguile/strop.c +++ b/libguile/strop.c @@ -41,8 +41,6 @@ If you write modifications of your own for GUILE, it is your choice whether to permit this exception to apply to your modifications. If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/strorder.c b/libguile/strorder.c index c50a2469b..8c7737abf 100644 --- a/libguile/strorder.c +++ b/libguile/strorder.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/_scm.h" diff --git a/libguile/strports.c b/libguile/strports.c index 17dd64c67..66fc7b52c 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/struct.c b/libguile/struct.c index e241a3f35..e4014a9d5 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/struct.h b/libguile/struct.h index 0e7c29f2e..659052501 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/symbols-deprecated.c b/libguile/symbols-deprecated.c index 6151a4494..6157966f0 100644 --- a/libguile/symbols-deprecated.c +++ b/libguile/symbols-deprecated.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/symbols.c b/libguile/symbols.c index 7ce74a20b..3093a6484 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/symbols.h b/libguile/symbols.h index 81a616e31..f1417b4b5 100644 --- a/libguile/symbols.h +++ b/libguile/symbols.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/tags.h b/libguile/tags.h index b3cd66a0b..7d45c66c5 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/threads.c b/libguile/threads.c index f3334b49a..c8a09941d 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/threads.h b/libguile/threads.h index d6ac1c484..408ce1734 100644 --- a/libguile/threads.h +++ b/libguile/threads.h @@ -44,8 +44,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/throw.c b/libguile/throw.c index 62468437b..04c5263e1 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/unif.c b/libguile/unif.c index 4fd7882a7..5b2af435c 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ /* This file has code for arrays in lots of variants (double, integer, diff --git a/libguile/unif.h b/libguile/unif.h index 4f0d4e484..9b5b61d6c 100644 --- a/libguile/unif.h +++ b/libguile/unif.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/variable.c b/libguile/variable.c index 7e61680eb..4037e51be 100644 --- a/libguile/variable.c +++ b/libguile/variable.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/variable.h b/libguile/variable.h index 300e40220..014fc821f 100644 --- a/libguile/variable.h +++ b/libguile/variable.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" #include "libguile/smob.h" diff --git a/libguile/vectors.c b/libguile/vectors.c index 7f4cdaa88..8280b113e 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/vectors.h b/libguile/vectors.h index 6ffa3f9b2..83ef491b4 100644 --- a/libguile/vectors.h +++ b/libguile/vectors.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" diff --git a/libguile/version.c b/libguile/version.c index 8b7808a57..a3ac0d920 100644 --- a/libguile/version.c +++ b/libguile/version.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/vports.c b/libguile/vports.c index 50c3b76fb..68ed74c15 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/weaks.c b/libguile/weaks.c index 4debbb499..d8eb065cd 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -39,8 +39,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ diff --git a/libguile/weaks.h b/libguile/weaks.h index da86bfd1c..4e561eec2 100644 --- a/libguile/weaks.h +++ b/libguile/weaks.h @@ -43,8 +43,6 @@ * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ #include "libguile/__scm.h" From dbb640bd08cdbe6bc3e7e1c3b7e5f325e2c30dfa Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 9 Jul 2001 07:43:48 +0000 Subject: [PATCH 07/30] *** empty log message *** --- guile-readline/ChangeLog | 18 +++++++++++------- libguile/ChangeLog | 24 +++++++++++++++++++++++- 2 files changed, 34 insertions(+), 8 deletions(-) diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog index 61375034f..1c56ddff2 100644 --- a/guile-readline/ChangeLog +++ b/guile-readline/ChangeLog @@ -1,3 +1,7 @@ +2001-07-09 Thien-Thi Nguyen + + * readline.c: Remove "face-lift" comment. + 2001-06-30 Dirk Herrmann * readline.c (completion_function): Use scm_list_n instead of @@ -19,7 +23,7 @@ when _RL_FUNCTION_TYPEDEF is defined. * readline.h (scm_clear_history): New prototype. - + 2001-06-07 Dirk Herrmann * readline.c (current_input_getc): Mark unused parameters with @@ -143,7 +147,7 @@ in addition to ncurses and termcap. Check for `readline' in libreadline, not for `main'. Thanks to Albert Chin! - + 2000-07-17 Marius Vollmer * configure.in (rl_pre_input_hook): Don't check for this with @@ -195,7 +199,7 @@ 2000-06-01 Michael Livshin * autogen.sh: call ../guile-aclocal.sh instead of aclocal - + 2000-05-01 Gary Houston * readline.c: include libguile.h, not libguile/libguile.h. @@ -209,7 +213,7 @@ and we don't want that. (INCLUDES): Removed all -I options except for the root source directory and the root build directory. - + 2000-04-04 Dirk Herrmann * readline.c (scm_readline): Must unpack SCM values to access @@ -249,7 +253,7 @@ Tue Jan 11 17:51:40 2000 Greg J. Badros * readline.c (scm_init_readline): Drop extra argument to scm_mutex_init as that argument should not exist. I do not know how this escaped detection for so long. - + 2000-01-09 Mikael Djurfeldt * readline.c (match_paren): Changed return type to int (this is @@ -319,7 +323,7 @@ Sun Dec 12 19:56:52 1999 Greg J. Badros so this works. See below. (activate-readline): New function which contains the readline activation code formerly found in top-repl. - + * readline.c (scm_readline): Export it to Scheme as "%readline". * configure.in: Get version from ../GUILE-VERSION and use it for @@ -343,7 +347,7 @@ Sun Dec 12 19:56:52 1999 Greg J. Badros (Thanks to Anders Holst.) * Makefile.am: Install guile-readline/readline.h. - + 1999-08-20 James Blandy * Makefile.in, aclocal.m4, configure: Regenerated. diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 285e7a42b..129503036 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,25 @@ +2001-07-09 Thien-Thi Nguyen + + * alist.c, alloca.c, arbiters.c, async.c, async.h, backtrace.c, + boolean.c, chars.c, continuations.c, coop-defs.h, coop-threads.c, + debug-malloc.h, debug.c, debug.h, dynl.c, dynwind.c, eq.c, + error.c, eval.c, evalext.c, feature.c, feature.h, filesys.c, + filesys.h, fluids.c, fluids.h, fports.c, fports.h, gc.c, gc.h, + gdbint.c, gsubr.c, guardians.c, hash.c, hashtab.c, hooks.c, + hooks.h, inet_aton.c, init.c, ioext.c, keywords.c, keywords.h, + lang.c, list.c, load.c, macros.c, mallocs.c, memmove.c, modules.c, + net_db.c, numbers.c, numbers.h, objects.c, objprop.c, options.c, + pairs.c, pairs.h, ports.c, ports.h, posix.c, print.c, print.h, + procprop.c, procs.c, procs.h, properties.c, putenv.c, ramap.c, + random.c, random.h, read.c, regex-posix.c, regex-posix.h, root.c, + root.h, scmsigs.c, script.c, simpos.c, smob.c, snarf.h, socket.c, + sort.c, srcprop.c, srcprop.h, stackchk.c, stacks.c, stacks.h, + stime.c, strerror.c, strings.c, strings.h, strop.c, strorder.c, + strports.c, struct.c, struct.h, symbols-deprecated.c, symbols.c, + symbols.h, tags.h, threads.c, threads.h, throw.c, unif.c, unif.h, + variable.c, variable.h, vectors.c, vectors.h, version.c, vports.c, + weaks.c, weaks.h: Remove "face-lift" comment. + 2001-07-08 Rob Browning * .cvsignore: add stamp-h.in. @@ -11,7 +33,7 @@ 2001-07-03 Martin Grabmueller Some more compatibility patches for Windows. - + * posix.c (getlogin): getlogin() implementation for Windows. * backtrace.c, ioext.c: Include . From 71335c0d9da4faf8e08371de5bc8394acbeeac83 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Mon, 9 Jul 2001 14:28:03 +0000 Subject: [PATCH 08/30] * boot-9.scm: Fixed the sense of the error message when read-eval? is #f. Thanks to Matthias for catching this. --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 8d00cd988..d0bd11c58 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -787,7 +787,7 @@ (if (fluid-ref read-eval?) (eval (read port) (interaction-environment)) (error - "#. read expansion found and read-eval? is not #f.")))) + "#. read expansion found and read-eval? is #f.")))) ;;; {Command Line Options} From 4aea9e7b4db77e46f426c49a0e5f5d20a127d10d Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Mon, 9 Jul 2001 14:28:30 +0000 Subject: [PATCH 09/30] *** empty log message *** --- ice-9/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 20b0a25e6..ed434d630 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2001-07-09 Rob Browning + + * boot-9.scm: Fixed the sense of the error message when read-eval? + is #f. Thanks to Matthias for catching this. + 2001-07-06 Rob Browning * boot-9.scm: added fix suggested by Matthias for #. read From 4b1ef000a51f0c6f900a7ac85a216045cfd280af Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 9 Jul 2001 15:02:11 +0000 Subject: [PATCH 10/30] Updated snapshot location. --- SNAPSHOTS | 37 ------------------------------------- 1 file changed, 37 deletions(-) diff --git a/SNAPSHOTS b/SNAPSHOTS index 459b07c0c..e69de29bb 100644 --- a/SNAPSHOTS +++ b/SNAPSHOTS @@ -1,37 +0,0 @@ -FTP Snapshots ======================================================== - -Each night, we make the current Guile sources available via anonymous -FTP. Please keep in mind that these sources are strictly -experimental; they will usually not be well-tested, and may not even -compile on some systems. They may contain interfaces which will -change. They will usually not be of sufficient quality for use by -people not comfortable hacking the innards of Guile. Caveat! - -However, we're providing them anyway for several reasons. We'd like -to encourage people to get involved in developing Guile. People -willing to use the bleeding edge of development can get earlier access -to new, experimental features. Patches submitted relative to recent -snapshots will be easier for us to evaluate and install, since the -patch's original sources will be closer to what we're working with. -And it allows us to start testing features earlier. - -Nightly snapshots of the Guile development sources are available via -anonymous FTP from ftp.red-bean.com, as -/pub/guile/snapshots/guile-core-snap.tar.gz. - -Via the web, that's: - ftp://ftp.red-bean.com/pub/guile/snapshots/guile-core-snap.tar.gz -For getit, that's: - ftp.red-bean.com:/pub/guile/snapshots/guile-core-snap.tar.gz - -The snapshot FTP site is mirrored at the following location: - Japan: ftp://ftp.jaist.ac.jp/pub/lang/scheme/guile - - -To build the snapshot, you will need to have autoconf, automake, and -libtool installed on your system; the recommended versions are listed -in HACKING. - -After you have unpacked the tar file, run the command `./autogen.sh'. -This builds the configure script, Makefile.in, and other derived files -used by the build system. From ee85583a3755cd445a58ed0c250c36e8e0cbafb2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= Date: Mon, 9 Jul 2001 19:12:27 +0000 Subject: [PATCH 11/30] 2001-07-09 Martin Grabmueller * README: Cleanup. --- srfi/ChangeLog | 4 ++++ srfi/README | 7 ++----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/srfi/ChangeLog b/srfi/ChangeLog index f4a5dc01f..ba518e45c 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,7 @@ +2001-07-09 Martin Grabmueller + + * README: Cleanup. + 2001-07-06 Gary Houston * srfi-1.scm (iota, map, for-each, list-index, member, delete, diff --git a/srfi/README b/srfi/README index a96a822e5..c9d47ee54 100644 --- a/srfi/README +++ b/srfi/README @@ -5,8 +5,6 @@ stand for, please refer to the SRFI homepage at http://srfi.schemers.org -The following SRFIs are supported (as of 2001-06-06 -- 'martin): - SRFI-0: cond-expand Supported by default, no module needs to get used. @@ -73,7 +71,6 @@ SRFI-19: Time Data Types and Procedures A lot of data types and procedures for dealing with times and dates. (use-modules (srfi srfi-19)) loads the procedures. -SRFI-23: Error reporting mechanism (draft) +SRFI-23: Error reporting mechanism - This SRFI is still in draft status, but Guile fully supports it - already. No need to load any module. + Guile fully supports this SRFI. No need to load any module. From 9bf806445c03bd0476fa8050d95954104805cb16 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= Date: Mon, 9 Jul 2001 19:13:21 +0000 Subject: [PATCH 12/30] * box-dynamic/README: Corrected sample session. * box-module/box.c, box-dynamic-module/box.c, box-dynamic/box.c * box/box.c: scm_bits_t -> scm_t_bits. --- examples/ChangeLog | 7 +++++++ examples/box-dynamic-module/box.c | 2 +- examples/box-dynamic/README | 2 +- examples/box-dynamic/box.c | 2 +- examples/box-module/box.c | 2 +- examples/box/box.c | 2 +- 6 files changed, 12 insertions(+), 5 deletions(-) diff --git a/examples/ChangeLog b/examples/ChangeLog index 678830aa8..e907b87b5 100644 --- a/examples/ChangeLog +++ b/examples/ChangeLog @@ -1,3 +1,10 @@ +2001-07-09 Martin Grabmueller + + * box-dynamic/README: Corrected sample session. + + * box-module/box.c, box-dynamic-module/box.c, box-dynamic/box.c + * box/box.c: scm_bits_t -> scm_t_bits. + 2001-06-18 Martin Grabmueller * box-dynamic-module/README: Use a better example for box-map, as diff --git a/examples/box-dynamic-module/box.c b/examples/box-dynamic-module/box.c index c159a8f82..180190e9e 100644 --- a/examples/box-dynamic-module/box.c +++ b/examples/box-dynamic-module/box.c @@ -25,7 +25,7 @@ /* The type code for the newly created smob type will be stored into this variable. It has the prefix `scm_tc16_' to make it usable with the SCM_VALIDATE_SMOB macro below. */ -static scm_bits_t scm_tc16_box; +static scm_t_bits scm_tc16_box; /* This function is responsible for marking all SCM objects included diff --git a/examples/box-dynamic/README b/examples/box-dynamic/README index bb87b5db7..7acc9f432 100644 --- a/examples/box-dynamic/README +++ b/examples/box-dynamic/README @@ -37,7 +37,7 @@ Extend your LD_LIBRARY_PATH variable (or equivalent) to include . and ** Example Session -$ ./guile +$ guile guile> (load-extension "libbox" "scm_init_box") guile> (define b (make-box)) guile> b diff --git a/examples/box-dynamic/box.c b/examples/box-dynamic/box.c index 8872a6163..9379b86a5 100644 --- a/examples/box-dynamic/box.c +++ b/examples/box-dynamic/box.c @@ -25,7 +25,7 @@ /* The type code for the newly created smob type will be stored into this variable. It has the prefix `scm_tc16_' to make it usable with the SCM_VALIDATE_SMOB macro below. */ -static scm_bits_t scm_tc16_box; +static scm_t_bits scm_tc16_box; /* This function is responsible for marking all SCM objects included diff --git a/examples/box-module/box.c b/examples/box-module/box.c index cf6542593..90f6881dd 100644 --- a/examples/box-module/box.c +++ b/examples/box-module/box.c @@ -25,7 +25,7 @@ /* The type code for the newly created smob type will be stored into this variable. It has the prefix `scm_tc16_' to make it usable with the SCM_VALIDATE_SMOB macro below. */ -static scm_bits_t scm_tc16_box; +static scm_t_bits scm_tc16_box; /* This function is responsible for marking all SCM objects included diff --git a/examples/box/box.c b/examples/box/box.c index 6c972b86b..e526fa880 100644 --- a/examples/box/box.c +++ b/examples/box/box.c @@ -25,7 +25,7 @@ /* The type code for the newly created smob type will be stored into this variable. It has the prefix `scm_tc16_' to make it usable with the SCM_VALIDATE_SMOB macro below. */ -static scm_bits_t scm_tc16_box; +static scm_t_bits scm_tc16_box; /* This function is responsible for marking all SCM objects included From aa3eb769a8455eacce6cf49f5404d0a79205d275 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 9 Jul 2001 19:37:05 +0000 Subject: [PATCH 13/30] Remove authorship comment. --- scripts/PROGRAM | 2 -- scripts/display-commentary | 2 -- scripts/doc-snarf | 2 -- scripts/generate-autoload | 2 -- scripts/punify | 2 -- scripts/read-scheme-source | 2 -- scripts/snarf-check-and-output-texi | 46 ++++++++++++++--------------- scripts/use2dot | 2 -- 8 files changed, 22 insertions(+), 38 deletions(-) diff --git a/scripts/PROGRAM b/scripts/PROGRAM index 3511ccdfc..74a4f3cff 100755 --- a/scripts/PROGRAM +++ b/scripts/PROGRAM @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: J.R.Hacker - ;;; Commentary: ;; Usage: PROGRAM [ARGS] diff --git a/scripts/display-commentary b/scripts/display-commentary index 1eeb842d8..4d1b17f0a 100755 --- a/scripts/display-commentary +++ b/scripts/display-commentary @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: Thien-Thi Nguyen - ;;; Commentary: ;; Usage: display-commentary FILE1 FILE2 ... diff --git a/scripts/doc-snarf b/scripts/doc-snarf index 941682e78..6279c9c68 100755 --- a/scripts/doc-snarf +++ b/scripts/doc-snarf @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: Martin Grabmueller - ;;; Commentary: ;; Usage: doc-snarf FILE diff --git a/scripts/generate-autoload b/scripts/generate-autoload index eef2b88c5..d1e5ba3b9 100755 --- a/scripts/generate-autoload +++ b/scripts/generate-autoload @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: Thien-Thi Nguyen - ;;; Commentary: ;; Usage: generate-autoload [OPTIONS] FILE1 FILE2 ... diff --git a/scripts/punify b/scripts/punify index 1cc318fb6..8101550f2 100755 --- a/scripts/punify +++ b/scripts/punify @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: Thien-Thi Nguyen - ;;; Commentary: ;; Usage: punify FILE1 FILE2 ... diff --git a/scripts/read-scheme-source b/scripts/read-scheme-source index 48e96058a..6a82938e4 100755 --- a/scripts/read-scheme-source +++ b/scripts/read-scheme-source @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: Thien-Thi Nguyen - ;;; Commentary: ;; Usage: read-scheme-source FILE1 FILE2 ... diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi index 7b4df63fd..6a1888917 100755 --- a/scripts/snarf-check-and-output-texi +++ b/scripts/snarf-check-and-output-texi @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: Michael Livshin - ;;; Code: (define-module (scripts snarf-check-and-output-texi) @@ -65,7 +63,7 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (loop (stream-cdr s))) (else (cons (stream-car s) (stream-cdr s)))))) (port->stream port read))))) - + (unless (stream-null? input) (let ((token (stream-car input))) (if (eq? (car token) 'snarf_cookie) @@ -74,10 +72,10 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (loop (stream-cdr input))))))) (define (dispatch-top-cookie input cont) - + (when (stream-null? input) (error 'syntax "premature end of file")) - + (let ((token (stream-car input))) (cond ((eq? (car token) 'brace_open) @@ -90,10 +88,10 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (define (consume-upto-cookie process input cont) (let loop ((acc '()) (input input)) - + (when (stream-null? input) (error 'syntax "premature end of file in directive context")) - + (let ((token (stream-car input))) (cond ((eq? (car token) 'snarf_cookie) @@ -109,13 +107,13 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (when (stream-null? input) (error 'syntax "premature end of file in multiline context")) - + (let ((token (stream-car input))) (cond ((eq? (car token) 'brace_close) (end-multiline) (cont (stream-cdr input))) - + (else (consume-upto-cookie process-multiline-directive input loop)))))) @@ -136,7 +134,7 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (set! *args* #f) (set! *sig* #f) (set! *docstring* #f)) - + (define (end-multiline) (let* ((req (car *sig*)) (opt (cadr *sig*)) @@ -196,13 +194,13 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (define do-args (match-lambda - + (('(paren_close . paren_close)) '()) - + (('(comma . comma) rest ...) (do-args rest)) - + (('(id . SCM) ('id . name) rest ...) (cons name (do-args rest))) @@ -210,21 +208,21 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (define do-arglist (match-lambda - + (('(paren_open . paren_open) '(id . void) '(paren_close . paren_close)) '()) - + (('(paren_open . paren_open) rest ...) (do-args rest)) - + (x (error (format #f "invalid arglist syntax: ~A" (map cdr x)))))) (define do-command (match-lambda - + (('fname ('string . name)) (set! *function-name* (texi-quote name))) - + (('type ('id . type)) (set! *snarf-type* type)) @@ -245,19 +243,19 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (define do-directive (match-lambda - + ((('id . command) rest ...) (do-command (cons command rest))) - + ((('string . string) ...) (set! *docstring* string)) - + (x (error (format #f "unknown doc attribute syntax: ~A" x))))) (do-directive l)) (define (process-singleline l) - + (define do-argpos (match-lambda ((('id . name) ('int . pos) ('int . line)) @@ -267,13 +265,13 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (display (format #f "~A:~A: wrong position for argument ~A: ~A (should be ~A)\n" *file* line name pos (+ idx 1))))))) (x #f))) - + (define do-command (match-lambda (('(id . argpos) rest ...) (do-argpos rest)) (x (error (format #f "unknown check: ~A" x))))) - + (when *function-name* (do-command l))) diff --git a/scripts/use2dot b/scripts/use2dot index 2f1b58d04..b52276a38 100755 --- a/scripts/use2dot +++ b/scripts/use2dot @@ -22,8 +22,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;; Boston, MA 02111-1307 USA -;;; Author: Thien-Thi Nguyen based on PERL script by Keisuke Nishida - ;;; Commentary: ;; Usage: use2dot [OPTIONS] [FILE ...] From cffdf820c65675daf0638e1f8fb638326eb974b8 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 9 Jul 2001 19:40:08 +0000 Subject: [PATCH 14/30] *** empty log message *** --- scripts/ChangeLog | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/scripts/ChangeLog b/scripts/ChangeLog index d7a8910d4..f385cfdcf 100644 --- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,9 @@ +2001-07-09 Thien-Thi Nguyen + + * PROGRAM, generate-autoload, use2dot, punify, display-commentary, + doc-snarf, read-scheme-source, snarf-check-and-output-texi: + Remove authorship info. + 2001-06-25 Michael Livshin * snarf-check-and-output-texi: rewrite. From 4973b813cc30f5126d30ad6df2da8cd46678541b Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 10 Jul 2001 15:09:59 +0000 Subject: [PATCH 15/30] Point to HACKING for tool versions. --- INSTALL | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/INSTALL b/INSTALL index 302065803..7e8d40d2b 100644 --- a/INSTALL +++ b/INSTALL @@ -83,7 +83,7 @@ switches specific to Guile you may find useful in some circumstances. If you have automake, autoconf, and libtool installed on your system, this switch causes configure to generate Makefiles which know how to automatically regenerate configure scripts, makefiles, - and headers, when they are out of date. The README file says which + and headers, when they are out of date. The HACKING file says which versions of those tools you will need. From d76852e37c2089449ea209b3d88025144d9d0b23 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 10 Jul 2001 15:11:27 +0000 Subject: [PATCH 16/30] *** empty log message *** --- ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ChangeLog b/ChangeLog index f907a4dab..1b7ae7702 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2001-07-10 Thien-Thi Nguyen + + * INSTALL: Point to HACKING for tool versions. + 2001-07-08 Rob Browning * TODO: updated to include relevant itemized post-1.6-RELEASE From 3b0eb5fd6ba0ee6bebd182cab596ee8c60086f48 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 10 Jul 2001 20:49:48 +0000 Subject: [PATCH 17/30] (display-version, display-help): Fix comment; nfc. --- examples/scripts/hello | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/scripts/hello b/examples/scripts/hello index afeb64781..01f9a6c3b 100755 --- a/examples/scripts/hello +++ b/examples/scripts/hello @@ -20,12 +20,12 @@ '((version (single-char #\v) (value #f)) (help (single-char #\h) (value #f)))) -;; Display version information and exit. +;; Display version information. ;; (define (display-version) (display "hello 0.0.1\n")) -;; Display the usage help message and exit. +;; Display the usage help message. ;; (define (display-help) (display "Usage: hello [options...]\n") From 4ffdd2663a90d3f9fefcc445395a348d1f629951 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 10 Jul 2001 20:50:54 +0000 Subject: [PATCH 18/30] *** empty log message *** --- examples/ChangeLog | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/examples/ChangeLog b/examples/ChangeLog index e907b87b5..99e51f89c 100644 --- a/examples/ChangeLog +++ b/examples/ChangeLog @@ -1,3 +1,7 @@ +2001-07-10 Thien-Thi Nguyen + + * scripts/hello (display-version, display-help): Fix comment; nfc. + 2001-07-09 Martin Grabmueller * box-dynamic/README: Corrected sample session. @@ -27,7 +31,7 @@ procedures from the library. Thanks to Thomas Wawrzinek for the idea and example code! - + * box-dynamic-module/box-module.scm: Add comments, export make-box, box-ref, box-set!. @@ -44,7 +48,7 @@ shared library and places the definitions in a C-only module. Thanks to Thomas Wawrzinek for this, too! - + * box-dynamic/box.c, box/box.c, box-dynamic-module/box.c, box-module/box.c (mark_box): Fixed typo in comment. @@ -59,7 +63,7 @@ library (aka extension) Thanks to Thomas Wawrzinek for patching box.c into an extension! - + 2001-05-30 Martin Grabmueller * box-module: New directory, similar to box, but defines the From 4b8ec619621a08653ae1742e62e36dc41ab1ef58 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Wed, 11 Jul 2001 17:37:53 +0000 Subject: [PATCH 19/30] * strports.c (st_write): use memcpy, not strncpy. thanks to Dale P. Smith. --- libguile/ChangeLog | 5 +++++ libguile/strports.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 129503036..0ec078395 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2001-07-11 Gary Houston + + * strports.c (st_write): use memcpy, not strncpy. thanks to + Dale P. Smith. + 2001-07-09 Thien-Thi Nguyen * alist.c, alloca.c, arbiters.c, async.c, async.h, backtrace.c, diff --git a/libguile/strports.c b/libguile/strports.c index 66fc7b52c..969d2b79b 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -155,7 +155,7 @@ st_write (SCM port, const void *data, size_t size) int space = pt->write_end - pt->write_pos; int write_len = (size > space) ? space : size; - strncpy ((char *) pt->write_pos, input, write_len); + memcpy ((char *) pt->write_pos, input, write_len); pt->write_pos += write_len; size -= write_len; input += write_len; From a7c0d85cb6e65e187e3b58dde65903244096ace1 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Wed, 11 Jul 2001 18:13:53 +0000 Subject: [PATCH 20/30] * scheme-evaluation.texi: Added `load-from-path'. Updated `load': it doesn't use the load paths. --- doc/ChangeLog | 5 +++++ doc/scheme-evaluation.texi | 15 ++++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/doc/ChangeLog b/doc/ChangeLog index ef0012f8d..618f754bd 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,3 +1,8 @@ +2001-07-11 Gary Houston + + * scheme-evaluation.texi: Added `load-from-path'. Corrected `load': + it doesn't use the load paths. + 2001-07-04 Martin Grabmueller * scheme-data.texi (Hook Reference): Removed documentation for diff --git a/doc/scheme-evaluation.texi b/doc/scheme-evaluation.texi index d3b3f6eea..5a0f861ff 100644 --- a/doc/scheme-evaluation.texi +++ b/doc/scheme-evaluation.texi @@ -245,11 +245,16 @@ signalled. @rnindex load @deffn procedure load filename -Load @var{file} and evaluate its contents in the top-level environment. -The load paths are searched. If the variable @code{%load-hook} is -defined, it should be bound to a procedure that will be called before -any code is loaded. See documentation for @code{%load-hook} later in -this section. +Load @var{filename} and evaluate its contents in the top-level +environment. The load paths are not searched. If the variable +@code{%load-hook} is defined, it should be bound to a procedure that +will be called before any code is loaded. See documentation for +@code{%load-hook} later in this section. +@end deffn + +@deffn procedure load-from-path filename +Similar to @code{load}, but searches for @var{filename} in the load +paths. @end deffn @deffn primitive primitive-load filename From dd84cd4d1fd4f216b9c473c37eeeef790867c925 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Wed, 11 Jul 2001 20:47:07 +0000 Subject: [PATCH 21/30] * srfi-14.c (s_scm_char_set_eq): bug fix: (char-set=) should return #t instead of giving wrong-number-of-arguments . take a single "rest" argument. use memcmp instead of a loop to compare the values. srfi-14.h: update the declaration. --- srfi/ChangeLog | 8 ++++++++ srfi/srfi-14.c | 35 +++++++++++++++-------------------- srfi/srfi-14.h | 2 +- 3 files changed, 24 insertions(+), 21 deletions(-) diff --git a/srfi/ChangeLog b/srfi/ChangeLog index ba518e45c..f9e8287d5 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,11 @@ +2001-07-11 Gary Houston + + * srfi-14.c (s_scm_char_set_eq): bug fix: (char-set=) should + return #t instead of giving wrong-number-of-arguments . take a + single "rest" argument. use memcmp instead of a loop to compare + the values. + srfi-14.h: update the declaration. + 2001-07-09 Martin Grabmueller * README: Cleanup. diff --git a/srfi/srfi-14.c b/srfi/srfi-14.c index 3ee4ea8a2..a0fc6615a 100644 --- a/srfi/srfi-14.c +++ b/srfi/srfi-14.c @@ -111,33 +111,28 @@ SCM_DEFINE (scm_char_set_p, "char-set?", 1, 0, 0, #undef FUNC_NAME -SCM_DEFINE (scm_char_set_eq, "char-set=", 1, 0, 1, - (SCM cs1, SCM csr), +SCM_DEFINE (scm_char_set_eq, "char-set=", 0, 0, 1, + (SCM char_sets), "Return @code{#t} if all given character sets are equal.") #define FUNC_NAME s_scm_char_set_eq { - int argnum = 2; + int argnum = 1; + long *cs1_data = NULL; - SCM_VALIDATE_SMOB (1, cs1, charset); - SCM_VALIDATE_REST_ARGUMENT (csr); + SCM_VALIDATE_REST_ARGUMENT (char_sets); - while (!SCM_NULLP (csr)) + while (!SCM_NULLP (char_sets)) { - long * p1, * p2; - SCM cs2 = SCM_CAR (csr); - int k; + SCM csn = SCM_CAR (char_sets); + long *csn_data; - SCM_VALIDATE_SMOB (argnum++, cs2, charset); - p1 = (long *) SCM_SMOB_DATA (cs1); - p2 = (long *) SCM_SMOB_DATA (cs2); - for (k = 0; k < SCM_CHARSET_SIZE / sizeof (long); k++) - { - if (p1[k] != p2[k]) - return SCM_BOOL_F; - } - - csr = SCM_CDR (csr); - cs1 = cs2; + SCM_VALIDATE_SMOB (argnum++, csn, charset); + csn_data = (long *) SCM_SMOB_DATA (csn); + if (cs1_data == NULL) + cs1_data = csn_data; + else if (memcmp (cs1_data, csn_data, SCM_CHARSET_SIZE) != 0) + return SCM_BOOL_F; + char_sets = SCM_CDR (char_sets); } return SCM_BOOL_T; } diff --git a/srfi/srfi-14.h b/srfi/srfi-14.h index 48bb88337..2ddc9c83c 100644 --- a/srfi/srfi-14.h +++ b/srfi/srfi-14.h @@ -60,7 +60,7 @@ void scm_c_init_srfi_14 (void); void scm_init_srfi_14 (void); SCM scm_char_set_p (SCM obj); -SCM scm_char_set_eq (SCM cs1, SCM csr); +SCM scm_char_set_eq (SCM char_sets); SCM scm_char_set_leq (SCM cs1, SCM csr); SCM scm_char_set_hash (SCM cs, SCM bound); SCM scm_char_set_cursor (SCM cs); From be390de2baddbe5361bfc99da3f402b1e8d19225 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Wed, 11 Jul 2001 22:00:52 +0000 Subject: [PATCH 22/30] (s_scm_char_set_leq): similarly, (char-set<=) should return #t. take a single "rest" argument. --- srfi/ChangeLog | 4 +++- srfi/srfi-14.c | 50 ++++++++++++++++++++++++++------------------------ srfi/srfi-14.h | 2 +- 3 files changed, 30 insertions(+), 26 deletions(-) diff --git a/srfi/ChangeLog b/srfi/ChangeLog index f9e8287d5..dc6ee8cf0 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -4,7 +4,9 @@ return #t instead of giving wrong-number-of-arguments . take a single "rest" argument. use memcmp instead of a loop to compare the values. - srfi-14.h: update the declaration. + (s_scm_char_set_leq): similarly, (char-set<=) should return #t. + take a single "rest" argument. + srfi-14.h: update the declarations. 2001-07-09 Martin Grabmueller diff --git a/srfi/srfi-14.c b/srfi/srfi-14.c index a0fc6615a..b18cb1251 100644 --- a/srfi/srfi-14.c +++ b/srfi/srfi-14.c @@ -123,14 +123,14 @@ SCM_DEFINE (scm_char_set_eq, "char-set=", 0, 0, 1, while (!SCM_NULLP (char_sets)) { - SCM csn = SCM_CAR (char_sets); - long *csn_data; + SCM csi = SCM_CAR (char_sets); + long *csi_data; - SCM_VALIDATE_SMOB (argnum++, csn, charset); - csn_data = (long *) SCM_SMOB_DATA (csn); + SCM_VALIDATE_SMOB (argnum++, csi, charset); + csi_data = (long *) SCM_SMOB_DATA (csi); if (cs1_data == NULL) - cs1_data = csn_data; - else if (memcmp (cs1_data, csn_data, SCM_CHARSET_SIZE) != 0) + cs1_data = csi_data; + else if (memcmp (cs1_data, csi_data, SCM_CHARSET_SIZE) != 0) return SCM_BOOL_F; char_sets = SCM_CDR (char_sets); } @@ -139,34 +139,36 @@ SCM_DEFINE (scm_char_set_eq, "char-set=", 0, 0, 1, #undef FUNC_NAME -SCM_DEFINE (scm_char_set_leq, "char-set<=", 1, 0, 1, - (SCM cs1, SCM csr), +SCM_DEFINE (scm_char_set_leq, "char-set<=", 0, 0, 1, + (SCM char_sets), "Return @code{#t} if every character set @var{cs}i is a subset\n" "of character set @var{cs}i+1.") #define FUNC_NAME s_scm_char_set_leq { - int argnum = 2; + int argnum = 1; + long *prev_data = NULL; - SCM_VALIDATE_SMOB (1, cs1, charset); - SCM_VALIDATE_REST_ARGUMENT (csr); + SCM_VALIDATE_REST_ARGUMENT (char_sets); - while (!SCM_NULLP (csr)) + while (!SCM_NULLP (char_sets)) { - long * p1, * p2; - SCM cs2 = SCM_CAR (csr); - int k; + SCM csi = SCM_CAR (char_sets); + long *csi_data; - SCM_VALIDATE_SMOB (argnum++, cs2, charset); - p1 = (long *) SCM_SMOB_DATA (cs1); - p2 = (long *) SCM_SMOB_DATA (cs2); - for (k = 0; k < SCM_CHARSET_SIZE / sizeof (long); k++) + SCM_VALIDATE_SMOB (argnum++, csi, charset); + csi_data = (long *) SCM_SMOB_DATA (csi); + if (prev_data) { - if ((p1[k] & p2[k]) != p1[k]) - return SCM_BOOL_F; + int k; + + for (k = 0; k < SCM_CHARSET_SIZE / sizeof (long); k++) + { + if ((prev_data[k] & csi_data[k]) != prev_data[k]) + return SCM_BOOL_F; + } } - - csr = SCM_CDR (csr); - cs1 = cs2; + prev_data = csi_data; + char_sets = SCM_CDR (char_sets); } return SCM_BOOL_T; } diff --git a/srfi/srfi-14.h b/srfi/srfi-14.h index 2ddc9c83c..40b355236 100644 --- a/srfi/srfi-14.h +++ b/srfi/srfi-14.h @@ -61,7 +61,7 @@ void scm_init_srfi_14 (void); SCM scm_char_set_p (SCM obj); SCM scm_char_set_eq (SCM char_sets); -SCM scm_char_set_leq (SCM cs1, SCM csr); +SCM scm_char_set_leq (SCM char_sets); SCM scm_char_set_hash (SCM cs, SCM bound); SCM scm_char_set_cursor (SCM cs); SCM scm_char_set_ref (SCM cs, SCM cursor); From 4d6aae71833bd104fe6b3515f68f44c727d6ba2e Mon Sep 17 00:00:00 2001 From: Michael Livshin Date: Wed, 11 Jul 2001 22:14:11 +0000 Subject: [PATCH 23/30] * strings.c (s_scm_string): fix arg position in assert. --- libguile/ChangeLog | 4 ++++ libguile/strings.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 0ec078395..a78276fbb 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,7 @@ +2001-07-12 Michael Livshin + + * strings.c (s_scm_string): fix arg position in assert. + 2001-07-11 Gary Houston * strports.c (st_write): use memcpy, not strncpy. thanks to diff --git a/libguile/strings.c b/libguile/strings.c index acb53be8d..7c9d548e9 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -98,7 +98,7 @@ SCM_DEFINE (scm_string, "string", 0, 0, 1, { long i = scm_ilength (chrs); - SCM_ASSERT (i >= 0, chrs, SCM_ARGn, FUNC_NAME); + SCM_ASSERT (i >= 0, chrs, SCM_ARG1, FUNC_NAME); result = scm_allocate_string (i); } From 4d772ae2157d4c9f554f53b71c0514a7d666ec8f Mon Sep 17 00:00:00 2001 From: Michael Livshin Date: Wed, 11 Jul 2001 22:14:49 +0000 Subject: [PATCH 24/30] * snarf-check-and-output-texi (do-argpos): complain to the stderr, not stdout. thanks to Dale P. Smith! (nice-sig): cosmetic fix. --- scripts/ChangeLog | 6 ++++++ scripts/snarf-check-and-output-texi | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/scripts/ChangeLog b/scripts/ChangeLog index f385cfdcf..a4f4f8195 100644 --- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,9 @@ +2001-07-12 Michael Livshin + + * snarf-check-and-output-texi (do-argpos): complain to the stderr, + not stdout. thanks to Dale P. Smith! + (nice-sig): cosmetic fix. + 2001-07-09 Thien-Thi Nguyen * PROGRAM, generate-autoload, use2dot, punify, display-commentary, diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi index 6a1888917..b61e77d34 100755 --- a/scripts/snarf-check-and-output-texi +++ b/scripts/snarf-check-and-output-texi @@ -168,7 +168,7 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (if (> opt 0) (format #t "]")) (if (> var 0) - (format #t "~A. ~A" (if (< var all) " " "") + (format #t " . ~A" (car (last-pair *args*))))))))))))))) (format #t "\n ~A\n" *function-name*) (format #t "@c snarfed from ~A:~A\n" *file* *line*) @@ -263,7 +263,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" (when idx (unless (= (+ idx 1) pos) (display (format #f "~A:~A: wrong position for argument ~A: ~A (should be ~A)\n" - *file* line name pos (+ idx 1))))))) + *file* line name pos (+ idx 1)) + (current-error-port)))))) (x #f))) (define do-command From 065509a51b6862a8f11f8ad37e68b2960ba9d41c Mon Sep 17 00:00:00 2001 From: Keisuke Nishida Date: Thu, 12 Jul 2001 18:34:39 +0000 Subject: [PATCH 25/30] autogen.sh: Call libtoolize with --force. --- ChangeLog | 4 ++++ autogen.sh | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1b7ae7702..88b76cccf 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2001-07-13 Keisuke Nishida + + * autogen.sh: Call libtoolize with --force. + 2001-07-10 Thien-Thi Nguyen * INSTALL: Point to HACKING for tool versions. diff --git a/autogen.sh b/autogen.sh index 1e92ab4b9..10bf34a30 100755 --- a/autogen.sh +++ b/autogen.sh @@ -7,7 +7,7 @@ ./guile-aclocal.sh -libtoolize --copy --automake --ltdl +libtoolize --copy --force --automake --ltdl autoheader autoconf automake --add-missing From 6672871b9e9e7a908b22d72d6805b4a2cafe126e Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 12 Jul 2001 23:26:52 +0000 Subject: [PATCH 26/30] (compile-interface-spec): Bug fix: the keyword argument is "renamer" not "rename". --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index d0bd11c58..d1ac9a7f1 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2652,7 +2652,7 @@ (define keys ;; sym key quote? '((:select #:select #t) - (:rename #:rename #f))) + (:renamer #:renamer #f))) (if (not (pair? (car spec))) `(',spec) `(',(car spec) From 521194715d667d4d7e75788d1273f69f37f4f3ab Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 12 Jul 2001 23:27:07 +0000 Subject: [PATCH 27/30] Use `re-export' instead of `export' for re-exported core bindings. Do not export `unquote' and `unquote-splicing' since there aren't definitions for them. --- ice-9/null.scm | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/ice-9/null.scm b/ice-9/null.scm index 6875a438e..594f3d79f 100644 --- a/ice-9/null.scm +++ b/ice-9/null.scm @@ -45,18 +45,17 @@ (define-module (ice-9 null) :use-module (ice-9 syncase)) -(export define quote lambda if set! +(re-export define quote lambda if set! - cond case and or - - let let* letrec - - begin do - - delay - - quasiquote unquote unquote-splicing - - define-syntax - let-syntax letrec-syntax - ) + cond case and or + + let let* letrec + + begin do + + delay + + quasiquote + + define-syntax + let-syntax letrec-syntax) From e9965e8fb7ddf507661b9969f750b3230e619fa0 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 12 Jul 2001 23:27:23 +0000 Subject: [PATCH 28/30] Use `re-export' instead of `export' for re-exported core bindings. Do not re-export `numerator', `denominator' and `rationalize' since Guile does not have them. Continue to use `export' for `null-environment'. --- ice-9/safe-r5rs.scm | 209 ++++++++++++++++++++++---------------------- 1 file changed, 105 insertions(+), 104 deletions(-) diff --git a/ice-9/safe-r5rs.scm b/ice-9/safe-r5rs.scm index 1ebec99b5..0221bd1b9 100644 --- a/ice-9/safe-r5rs.scm +++ b/ice-9/safe-r5rs.scm @@ -48,113 +48,114 @@ (module-use! %module-public-interface null-interface) -(export eqv? eq? equal? - number? complex? real? rational? integer? - exact? inexact? - = < > <= >= - zero? positive? negative? odd? even? - max min - + * - / - abs - quotient remainder modulo - gcd lcm - numerator denominator - floor ceiling truncate round - rationalize - exp log sin cos tan asin acos atan - sqrt - expt - make-rectangular make-polar real-part imag-part magnitude angle - exact->inexact inexact->exact +(re-export eqv? eq? equal? + number? complex? real? rational? integer? + exact? inexact? + = < > <= >= + zero? positive? negative? odd? even? + max min + + * - / + abs + quotient remainder modulo + gcd lcm + ;;numerator denominator XXX + ;;rationalize XXX + floor ceiling truncate round + exp log sin cos tan asin acos atan + sqrt + expt + make-rectangular make-polar real-part imag-part magnitude angle + exact->inexact inexact->exact + + number->string string->number + + boolean? + not + + pair? + cons car cdr + set-car! set-cdr! + caar cadr cdar cddr + caaar caadr cadar caddr cdaar cdadr cddar cdddr + caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr + cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr + null? + list? + list + length + append + reverse + list-tail list-ref + memq memv member + assq assv assoc + + symbol? + symbol->string string->symbol + + char? + char=? char? char<=? char>=? + char-ci=? char-ci? char-ci<=? char-ci>=? + char-alphabetic? char-numeric? char-whitespace? + char-upper-case? char-lower-case? + char->integer integer->char + char-upcase + char-downcase + + string? + make-string + string + string-length + string-ref string-set! + string=? string-ci=? + string? string<=? string>=? + string-ci? string-ci<=? string-ci>=? + substring + string-length + string-append + string->list list->string + string-copy string-fill! + + vector? + make-vector + vector + vector-length + vector-ref vector-set! + vector->list list->vector + vector-fill! + + procedure? + apply + map + for-each + force + + call-with-current-continuation + + values + call-with-values + dynamic-wind + + eval - number->string string->number + input-port? output-port? + current-input-port current-output-port + + read + read-char + peek-char + eof-object? + char-ready? + + write + display + newline + write-char - boolean? - not + ;;transcript-on + ;;transcript-off + ) - pair? - cons car cdr - set-car! set-cdr! - caar cadr cdar cddr - caaar caadr cadar caddr cdaar cdadr cddar cdddr - caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr - cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr - null? - list? - list - length - append - reverse - list-tail list-ref - memq memv member - assq assv assoc - - symbol? - symbol->string string->symbol - - char? - char=? char? char<=? char>=? - char-ci=? char-ci? char-ci<=? char-ci>=? - char-alphabetic? char-numeric? char-whitespace? - char-upper-case? char-lower-case? - char->integer integer->char - char-upcase - char-downcase - - string? - make-string - string - string-length - string-ref string-set! - string=? string-ci=? - string? string<=? string>=? - string-ci? string-ci<=? string-ci>=? - substring - string-length - string-append - string->list list->string - string-copy string-fill! - - vector? - make-vector - vector - vector-length - vector-ref vector-set! - vector->list list->vector - vector-fill! - - procedure? - apply - map - for-each - force - - call-with-current-continuation - - values - call-with-values - dynamic-wind - - eval - null-environment - - input-port? output-port? - current-input-port current-output-port - - read - read-char - peek-char - eof-object? - char-ready? - - write - display - newline - write-char - - ;;transcript-on - ;;transcript-off - ) +(export null-environment) (define (null-environment n) (if (not (= n 5)) From cc259e57b18ab971fad1be55b51512a805886f2c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 12 Jul 2001 23:28:03 +0000 Subject: [PATCH 29/30] (and-let*): Use `re-export-syntax' instead of `export-syntax'. --- srfi/srfi-2.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/srfi/srfi-2.scm b/srfi/srfi-2.scm index 8c33f7a76..fa6d0c960 100644 --- a/srfi/srfi-2.scm +++ b/srfi/srfi-2.scm @@ -44,6 +44,6 @@ (define-module (srfi srfi-2) :use-module (ice-9 and-let-star)) -(export-syntax and-let*) +(re-export-syntax and-let*) (cond-expand-provide (current-module) '(srfi-2)) From 93e08431193e8fcf2f06d3b37e85fa334c9715dd Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 12 Jul 2001 23:28:44 +0000 Subject: [PATCH 30/30] New file. --- test-suite/tests/import.test | 76 ++++++++++++++++++++++++++++++++++++ 1 file changed, 76 insertions(+) create mode 100644 test-suite/tests/import.test diff --git a/test-suite/tests/import.test b/test-suite/tests/import.test new file mode 100644 index 000000000..330c91a0b --- /dev/null +++ b/test-suite/tests/import.test @@ -0,0 +1,76 @@ +;;;; import.test --- test selective and renaming imports -*- scheme -*- +;;;; Copyright (C) 2000 Free Software Foundation, Inc. +;;;; +;;;; This program is free software; you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation; either version 2, or (at your option) +;;;; any later version. +;;;; +;;;; This program is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with this software; see the file COPYING. If not, write to +;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;;;; Boston, MA 02111-1307 USA +;;;; +;;;; As a special exception, the Free Software Foundation gives permission +;;;; for additional uses of the text contained in its release of GUILE. +;;;; +;;;; The exception is that, if you link the GUILE library with other files +;;;; to produce an executable, this does not by itself cause the +;;;; resulting executable to be covered by the GNU General Public License. +;;;; Your use of that executable is in no way restricted on account of +;;;; linking the GUILE library code into it. +;;;; +;;;; This exception does not however invalidate any other reasons why +;;;; the executable file might be covered by the GNU General Public License. +;;;; +;;;; This exception applies only to the code released by the +;;;; Free Software Foundation under the name GUILE. If you copy +;;;; code from other Free Software Foundation releases into a copy of +;;;; GUILE, as the General Public License permits, the exception does +;;;; not apply to the code that you add in this way. To avoid misleading +;;;; anyone as to the status of such modified files, you must delete +;;;; this exception notice from them. +;;;; +;;;; If you write modifications of your own for GUILE, it is your choice +;;;; whether to permit this exception to apply to your modifications. +;;;; If you do not wish that, delete this exception notice. + +(define-module (exporter) + :export (foo bar)) + +(define foo 1) +(define bar 2) + +(define-module (importer) + :use-module (test-suite lib)) + +(use-modules ((exporter) + :select (foo (bar . baz)))) + +(pass-if-exception "selective non-import" (cons 'unbound-variable + "^Unbound variable") + (= bar 2)) + +(pass-if "selective import" + (= foo 1)) + +(pass-if "renaming import" + (= baz 2)) + +(use-modules ((exporter) :renamer (symbol-prefix-proc 'external:))) + +(pass-if "symbol-prefic-proc import" + (and (= external:foo 1) + (= external:bar 2))) + +(use-modules ((exporter) :renamer (lambda (sym) + (symbol-append sym ':external)))) + +(pass-if "renamer import" + (and (= foo:external 1) + (= bar:external 2)))