ice-9/ChangeLog

   1 Mon Feb 10 03:01:48 1997  Mikael Djurfeldt  <mdj@kenneth>
   2
   3         * boot-9.scm (backtrace): Removed.  (A C version now exists in
   4         backtrace.c.)
   5
   6 Fri Jan 24 06:05:36 1997  Gary Houston  <ghouston@actrix.gen.nz>
   7
   8         * boot-9.scm (read-line!, read-delimited!, read-delimited,
   9         read-line): new procedures, see libguile/ChangeLog.
  10
  11 Thu Jan 16 17:07:03 1997  Marius Vollmer  <mvo@zagadka.ping.de>
  12
  13         Added dynamic linking of modules. See libguile/DYNAMIC-LINKING.
  14
  15         * boot-9.scm (split-c-module-name, convert-c-registered-modules,
  16         init-dynamic-module, dynamic-maybe-call,
  17         find-and-link-dynamic-module, link-dynamic-module,
  18         try-module-dynamic-link, registered-modules): New definitions for
  19         dynamic linking of modules.
  20         (resolve-module): Try to dynamically link the requested module
  21         after failing to load it as Scheme code.
  22
  23 Wed Jan  8 05:50:14 1997  Gary Houston  <ghouston@actrix.gen.nz>
  24
  25         * boot-9.scm (getservbyport, getservbyname): remove stray %.
  26
  27 Tue Jan  7 20:02:24 1997  Jim Blandy  <jimb@floss.cyclic.com>
  28
  29         * boot-9.scm (and=>): Rename THUNK argument to PROCEDURE, 'cos
  30         that's what it is.
  31
  32         * lineio.scm (make-line-buffering-input-port): Properly test for
  33         the case of an empty buffer list.  The old code assumed that '()
  34         was false.
  35
  36 Mon Jan  6 01:13:53 1997  Mikael Djurfeldt  <mdj@kenneth>
  37
  38 *       * boot-9.scm (use-modules): New macro (from Marius Vollmer).
  39         (use-modules <module name> ...) Put the the modules named by
  40         <module name> ... on the use list of the current module.
  41
  42 Sun Jan  5 15:52:59 1997  Jim Blandy  <jimb@floss.cyclic.com>
  43
  44         * boot-9.scm (error-catching-loop): Remove message saying that
  45         typing "$" will put you in the debugger.  This isn't implemented
  46         yet.
  47
  48 Sun Dec 22 23:27:25 1996  Jim Blandy  <jimb@floss.cyclic.com>
  49
  50         * boot-9.scm (delq-all!): Function deleted; delq!'s semantics have
  51         been fixed, so this function is superfluous.
  52         (transform-usage-lambda): Use delq!, not delq-all!.
  53
  54 Tue Dec 17 20:36:45 1996  Marius Vollmer  <mvo@zagadka.ping.de>
  55
  56         * boot-9.scm (resolve-module): New optional parameter that
  57         controls whether autoloading is attempted or not. Default is #t.
  58         (process-define-module): Don't autoload the defined module.
  59         (try-module-autoload): Don't autoload the directory modules.
  60
  61         * boot-9.scm (process-define-module): Ensure that the-scm-module
  62         is last in the `uses' list to allow shadowing builtin
  63         bindings. All :use-module options are added in the order they
  64         appear in the arguments but before anything already on the list
  65         (such as the-scm-module).
  66
  67 Wed Dec 11 21:06:05 1996  Gary Houston  <ghouston@actrix.gen.nz>
  68
  69         * slib.scm (slib-parent-dir): throw error if #f returned from
  70         %search-load-path.
  71
  72 Sat Nov 30 23:57:28 1996  Tom Tromey  <tromey@cygnus.com>
  73
  74         * PLUGIN/greet, PLUGIN/split.sed, PLUGIN/this.configure: Removed.
  75         * Makefile.am, aclocal.m4: New files.
  76         * configure.in: Updated for Automake.
  77
  78 Wed Nov 27 14:16:14 1996  Marius Vollmer  <mvo@zagadka.ping.de>
  79
  80         * boot-9.scm (macroexpand-1, macroexpand), slib.scm
  81         (slib:features), r4rs.scm (%load-verbosely): "defined?" is now a
  82         function, use it accordingly.
  83
  84 Thu Nov 21 11:12:10 1996  Jim Blandy  <jimb@floss.cyclic.com>
  85
  86         It's an "eval closure", not an "eval thunk."  A thunk is a
  87         function of no arguments.
  88         * boot-9.scm (module-type): Rename module field.
  89         (make-module, eval-in-module, make-root-module,
  90         set-current-module): Uses changed.
  91         (module-eval-closure, set-module-eval-closure!,
  92         root-module-closure): Renamed from module-eval-thunk,
  93         set-module-eval-thunk!, root-module-thunk.
  94         (set-current-module): Change uses of *top-level-lookup-thunk* to
  95         *top-level-eval-closure*.
  96
  97 Wed Nov 20 14:45:27 1996  Jim Blandy  <jimb@totoro.cyclic.com>
  98
  99         * slib.scm (slib-parent-dir): Use string-length, not length.
 100         (Thanks to Bernard Urban.)
 101
 102 Sat Nov  2 20:00:42 1996  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 103
 104         * boot-9.scm: The debugging evaluator and recording of positions
 105         aren't enabled by default any longer (they are switched on in
 106         debug.scm).  But during development we want to have them also
 107         *inside* boot-9.scm.  Therefore, two lines are added at the
 108         beginning of boot-9.scm to enable these.
 109
 110         Call `provide' so that `records' are included among the
 111         `*features*'.
 112
 113         The scheme for saving the stack has been adjusted: save-stack is
 114         now commonly available for saving the stack.  Calling `save-stack'
 115         sets a flag `stack-saved?' which prevents overwriting the stack.
 116         `stack-saved?' is reset at `abort'.
 117
 118         Spelling correction: seperate --> separate.
 119
 120         Removed `:'s that had creeped into some comments.
 121
 122         The repl now doesn't print #<unspecified> results any longer
 123         If the user wants to see this, he can do
 124         (assert-repl-print-unspecified #t) in his startup file.
 125
 126         The user now gets a friendly message instead of a backtrace at
 127         error.
 128
 129         Added `before-read-hook'.
 130
 131         Load module (ice-9 emacs) if option `-e' was specified.
 132
 133         (provide): New function.
 134
 135         (error): Save stack at entry, so that Guile entrails won't show up
 136         in backtraces.
 137
 138         (backtrace): New function.
 139
 140         (save-stack): Can now take arbitrary number of stack narrowing
 141         specifier pairs.  The first specifier in a pair controls inner
 142         border, the second the outer border.  A number means cut that
 143         number of frames, a procedure object means cut until that object
 144         is found in operator position in a frame.
 145
 146         * debug.scm: Enable debugging evaluator and recording of positions
 147         by default.
 148
 149         * slib.scm (slib:load): Adapt to the new behavior of
 150         primitive-load: It doesn't any longer try both with and without
 151         ".scm" extension.  (We don't want to use %search-load-path here.)
 152
 153         (implementation-vicinity): New function.  slib requires it
 154
 155         (library-vicinity): Updated.
 156
 157         Load "require.scm" in the library-vicinity.
 158
 159         (install-require-vicinity, install-require-module): New functions.
 160
 161 Mon Oct 28 17:56:29 1996  Jim Blandy  <jimb@floss.cyclic.com>
 162
 163         * boot-9.scm (load-from-path): New function.
 164
 165         * boot-9.scm (try-load, basic-try-load, try-load-module,
 166         try-load): Deleted.  I don't think they're being used.
 167
 168         * Makefile.in (scm_files): Add r4rs.scm and test.scm to this list,
 169         so they'll get distributed.
 170
 171         Get Guile to be a little less chatty by default.  The new user
 172         should see as little clutter as possible.
 173         * r4rs.scm (%load-verbosely): Make this #f by default.
 174         * boot-9.scm (scm-repl-verbose): Make this #f by default.
 175         (scm-style-repl): Don't run 'pk' on the value passed to quit.
 176
 177         * r4rs.scm: New file.
 178         * boot-9.scm: Load r4rs.scm, first thing.
 179         (OPEN_READ, OPEN_WRITE, OPEN_BOTH, *null-device*, open-input-file,
 180         open-output-file, open-io-file, close-input-port,
 181         close-output-port, close-io-port, call-with-input-file,
 182         call-with-output-file, with-input-from-port, with-output-to-port,
 183         with-error-to-port, with-input-from-file, with-output-to-file,
 184         with-error-to-file, with-input-from-string, with-output-to-string,
 185         with-error-to-string, the-eof-object): Definitions moved to
 186         r4rs.scm.  Not all of them are R4RS, but those that are use those
 187         that are not.
 188         (load, %load-verbosely, %load-announce): Moved, along with code to
 189         set %load-hook, to r4rs.scm.
 190
 191         * test.scm: New file.
 192
 193         * boot-9.scm (integer?): Definition deleted, in favor of the one
 194         present in libguile (which used to be called int?).  I have no
 195         idea why integer? didn't just call int? to begin with.
 196
 197         * boot-9.scm (<, <=, =, >, >=): Definitions in terms of <?, <=?,
 198         =?, >?, and >=? deleted; they're defined that way by libguile now.
 199
 200         * boot-9.scm (load): Simplified; primitive-load does most of this
 201         work now.
 202         (%load-announce-win): Removed; no longer used.  Set %load-hook to
 203         call %load-announce.
 204
 205 Sun Oct 27 07:47:03 1996  Gary Houston  <ghouston@actrix.gen.nz>
 206
 207         * boot-9.scm (stat:dev, stat:ino, stat:mode, stat:nlink, stat:uid,
 208         stat:gid, stat:rdev, stat:size, stat:atime, stat:mtime,
 209         stat:ctime, stat:blksize, stat:blocks) accessor functions for stat
 210         components.
 211         (file-is-directory?): use stat:type.
 212
 213 Fri Oct 25 03:34:47 1996  Jim Blandy  <jimb@floss.cyclic.com>
 214
 215         * boot-9.scm (%read-sharp): Don't recognize the `#!' syntax here;
 216         that's now taken care of in libguile, and in a way compatible with
 217         SCSH (which this isn't).
 218
 219 Mon Oct 21 18:52:36 1996  Jim Blandy  <jimb@totoro.cyclic.com>
 220
 221         * boot-9.scm: Formatting tweaks.
 222
 223 Fri Oct 18 01:03:08 1996  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 224
 225         * boot-9.scm (handle-system-error): Added hooks before-error-hook,
 226         after-error-hook, before-backtrace-hook and after-backtrace-hook
 227         to the error handler.  E.g.: fancy emacs support could plug into
 228         these.
 229         (save-stack): New function.  The stack is now made differently
 230         depending on the stack id.  (The motivation is to make a better
 231         choice regarding what stack frames to present to the user.)
 232         (error-catching-loop): Stack handling code moved outside into
 233         save-stack.
 234
 235 Thu Oct 17 20:33:08 1996  Gary Houston  <ghouston@actrix.gen.nz>
 236
 237         * Makefile.in (scm_files): add expect.scm.
 238
 239         * expect.scm: new file ported from guile-iii.
 240
 241         * boot-9.scm: remove handle-system-error, after moving the code into
 242         error-catching-loop.
 243         Don't set 'throw-handler-default property on error keys.
 244         Just interpret (almost) any throw with 4 args as an error throw.
 245         Delete some try-load stuff that was already commented out.
 246
 247         Second thoughts, keep handle-system-error but call it from
 248         error-catching-loop.
 249
 250 Tue Oct 15 17:07:20 1996  Jim Blandy  <jimb@floss.cyclic.com>
 251
 252         * boot-9.scm: Doc fixes.
 253         (make-module): Rework for readability.
 254         (make-root-module, make-scm-module): USES argument to make-module
 255         should be '(), not #f.
 256
 257         * boot-9.scm (try-load): %sys-load-path has been renamed to
 258         primitive-load-path; adjust call here.
 259
 260 Tue Oct 15 14:25:01 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 261
 262         * boot-9.scm (signal-handler): Bugfix: Moved the recording of
 263         the stack to the correct place: when it is decided to generate an
 264         error-signal.
 265
 266 Mon Oct 14 22:20:30 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 267
 268         * boot-9.scm (error-catching-loop, signal-handler,
 269         handle-system-error): Backtracing now works for signals aswell;
 270         Backtracing mechanism can now identify the stack root created by
 271         start-stack so that the user isn't exposed to system stack frames.
 272
 273 Mon Oct 14 06:05:42 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 274
 275         * Makefile.in: Added threads.scm.
 276
 277 Mon Oct 14 04:21:51 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 278
 279         * debug.scm (make-enable, make-disable): Simplified.
 280
 281         * boot-9.scm: Renamed %%throw-handler-default -->
 282         throw-handler-default.
 283         ((handle-system-error key . arg-list)): Changed the way errors are
 284         reported.
 285         ((scm-style-repl)): Wrap up the call to eval in a start-stack
 286         acro.
 287         ((error-catching-loop thunk)): Introduce a lazy-catch into
 288         error-catching-loop so that the stack can be captured.
 289
 290 Thu Oct 10 22:27:32 1996  Jim Blandy  <jimb@totoro.cyclic.com>
 291
 292         * mapping.scm (hash-table-mapping): Explicitly request that
 293         make-vector fill new vectors with '(); this will make it easier to
 294         port Guile Scheme code to other Schemes.
 295         * boot-9.scm (make-print-style, make-print-table): Same.
 296
 297 Sun Oct  6 03:54:59 1996  Gary Houston  <ghouston@actrix.gen.nz>
 298
 299         * boot-9.scm (load): rewritten again.
 300         Append "." to the default %load-path.
 301         (feature?): new function: checks for a symbol in the features list.
 302         (module-local-variable): remove apparently useless (caddr (list m v
 303         ...))
 304         (%load-announce): minor formatting change.
 305         (file-exists?): use access? if posix is featured.
 306         (file-is-directory?): use stat if i/o-extensions is featured.
 307         (try-module-autoload module-name): use file-exists? before
 308         file-is-directory?
 309
 310 Sat Oct  5 18:54:03 1996  Mikael Djurfeldt  <mdj@kenneth>
 311
 312         * boot-9.scm: Added conditional loading of threads.scm.
 313
 314         * threads.scm: New file.  Modified from the Cygnus-r0.3
 315         distribution.
 316
 317         * boot-9.scm (error-catching-loop): Added handling of key
 318         `switch-repl'.
 319
 320         * boot-9.scm: Name change %%bad-throw --> bad-throw.
 321
 322 Wed Oct  2 23:38:44 1996  Jim Blandy  <jimb@totoro.cyclic.com>
 323
 324         * boot-9.scm (make-record-type, record-constructor): Don't assume
 325         the empty list is false when parsing the argument list.
 326
 327 Mon Sep 30 22:15:50 1996  Jim Blandy  <jimb@totoro.cyclic.com>
 328
 329         * boot-9.scm (signal-handler): Clean up logic.
 330
 331         * boot-9.scm (load): Assume %load-path is always bound.
 332
 333 Sat Sep 28 00:15:37 1996  Gary Houston  <ghouston@actrix.gen.nz>
 334
 335         * boot-9.scm (error): replace another throw with scm-error.  Throw
 336         to 'misc-error instead of 'error (no need to distinguish these.)
 337         Don't set up 'error as a key.
 338         Set up regex-error as a key, if regex is available.
 339         (signal-handler): use scm-error, not throw.
 340
 341         (%try-load, try-load-with-path, %load, load-with-path,
 342         basic-try-load-with-path, basic-load-with-path,
 343         try-load-module-with-path,load-module-with-path): deleted, since
 344         they seem redundant.
 345         (try-load): define using %try-load, not try-load-with-path.
 346         (load): rewritten.  load tries to open the file directly and
 347         with a .scm extension before searching the library directories
 348         (should "." be added to %load-path?  then load could still open
 349         directly files starting with "/").
 350         (try-module-autoload): use load, not load-with-path.
 351         (%load-indent): deleted, -2 was causing errors.
 352
 353         (%read-sharp): use port-line, not line-number.
 354
 355 Fri Sep 27 16:23:51 1996  Jim Blandy  <jimb@totoro.cyclic.com>
 356
 357         * boot-9.scm (%%bad-throw): Delete definition. 1) It's very
 358         straightforward to provide the equivalent functionality using
 359         (catch #t ...), so there's no need for the extra complexity.  2)
 360         Outside the context of a read-eval-print loop (which Guile should
 361         not require) it's not clear we should do anything more complicated
 362         than print an error and exit; the user or REPL can establish
 363         something better if it wants.  3) In that case, it's much more
 364         robust to just do it in the C code.
 365
 366 Tue Sep 24 06:53:04 1996  Gary Houston  <ghouston@actrix.gen.nz>
 367
 368         * boot-9.scm (%try-load): define using primitive-load.  Previously
 369         %try-load itself was the primitive.
 370         (load-with-path): use scm-error instead of %load-announce-lossage.
 371         Errors are thrown to 'misc-error instead of 'could-not-load.
 372         (%load-announce-lossage): deleted.
 373
 374 Mon Sep 23 00:16:31 1996  Mikael Djurfeldt  <mdj@kenneth>
 375
 376         * boot-9.scm (warn, scm-style-repl): Use C printer instead of `print'.
 377         (make-record-type type-name fields): Temporarily remove support
 378         for printing of records (not possible yet with C printer).
 379
 380 Fri Sep 20 00:24:27 1996  Gary Houston  <ghouston@actrix.gen.nz>
 381
 382         * boot-9.scm (file-exists?, file-is-directory): catch only
 383         system-error, not every kind of error.
 384         (scm-error): new procedure.
 385
 386 Thu Sep 19 16:02:46 1996  Jim Blandy  <jimb@totoro.cyclic.com>
 387
 388         * boot-9.scm: Formatting tweaks.
 389
 390 Wed Sep 18 09:07:37 1996  Gary Houston  <ghouston@actrix.gen.nz>
 391
 392         * boot-9.scm (%%handle-system-error key): remove the code for
 393         SCM-style errors.  handle the case that an unexpected number
 394         of args are supplied.
 395         (%%system-errors): removed.
 396         (error): redefine using a throw with key and 4 args.
 397         ('error): associate 'error, 'error-signal keys with
 398         %%handle-system-error.
 399         (%%default-error-handler): removed.
 400         (signal-handler): throw with 4 args and use the error-signal key.
 401         Create an error message instead of using numerical codes.
 402         (%%bad-throw): call error instead of throw if key not found.
 403
 404 Tue Sep 17 04:11:28 1996  Gary Houston  <ghouston@actrix.gen.nz>
 405
 406         * boot-9.scm: initialize new error keys (see libguile/ChangeLog).
 407         (%%handle-system-error key): check subr is not #f before printing.
 408         Recognize %s (embed an argument using "display") and
 409         %S (embed an argument using "write").
 410
 411 Sun Sep 15 03:55:35 1996  Gary Houston  <ghouston@actrix.gen.nz>
 412
 413         * boot-9.scm (%%handle-system-error key): set args and rest to
 414         the empty list if they are #f.
 415         Initialize out-of-range as an error key.
 416
 417 Sat Sep 14 03:41:15 1996  Gary Houston  <ghouston@actrix.gen.nz>
 418
 419         * PLUGIN/REQ: remove the "ice-9 lgh" line which causes a cycle.
 420
 421         * boot-9.scm: remove leading %% from references to '%%system-error.
 422         (%%handle-system-error): don't pass all the thrown arguments when
 423         aborting, just the key and subr.
 424         Remove the code to "Install default handlers for built-in errors."
 425         Remove the definition of the syserror procedure.
 426         Associate 'numerical-overflow with default handler.
 427
 428 Fri Sep 13 04:58:11 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 429
 430         * boot-9.scm: Name change: value-ref --> local-ref
 431         resolved-ref --> nested-ref  Motivation: conformance to the other
 432         dictionary operators: list-ref operates on list, vector-ref
 433         operates on vector, nested-ref operates on nested namespace,
 434         local-ref operates on the local nested namespace.
 435
 436 Sat Sep  7 06:44:47 1996  Gary Houston  <ghouston@actrix.gen.nz>
 437
 438         * boot-9.scm (%%handle-system-error): recognise errors thrown
 439         by lgh-error (fill-message etc.)
 440         (fill-message): check first whether args is null.
 441         (fill-message): bug fix and check that args is a list.
 442
 443 Thu Sep  5 11:33:41 1996  Jim Blandy  <jimb@floss.cyclic.com>
 444
 445         * boot-9.scm: %load-path is initialized in C code now.
 446         (implementation-vicinity, parse-path): Deleted, along with code to
 447         initialize %load-path.
 448
 449         * boot-9.scm (in-vicinity): If the vicinity doesn't end with a
 450         "/", use one to separate it from the file.
 451
 452 Thu Aug 29 23:05:11 1996  Thomas Morgan  <tmorgan@gnu.ai.mit.edu>
 453
 454         * boot-9.scm (%load-path): Add the site directory.
 455         Add the directory named after the version number.
 456         Prepend the version number to the other directories in the path.
 457         Simplify by mapping the common prefix onto each item.
 458         * Makefile.in (datadir, pkgdatadir, pkgverdatadir, subpkgdatadir,
 459         sitedatadir): New definitions.
 460         (libparent, libdir, install_path): Replaced by above.
 461         (install): Create the above directories.
 462         Put the source files into subpkgdatadir.
 463         (uninstall): Remove the above directories.
 464
 465 Thu Aug 29 21:48:47 1996  Jim Blandy  <jimb@floss.cyclic.com>
 466
 467         Don't use the PLUGIN system to gather information for the
 468         Makefile's distribution and installation targets; just put it all
 469         in the Makefile directly.
 470         * PLUGIN/this.configure (scm_files, aux_files): Remove sections
 471         for these.
 472         * configure.in: Remove code that gets and substitutes scm_files and
 473         aux_files.
 474         * Makefile.in (scm_files, aux_files): Write out the list of files
 475         here, where people expect to find them.
 476
 477 Fri Aug 23 06:44:36 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 478
 479         * boot-9.scm: Preliminary solution: optionally load the debug
 480         module.  Changed "gls" to "guile1.0b3".
 481
 482         * debug.scm: New file: debug extensions.
 483
 484 Wed Aug 21 13:06:56 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 485
 486         * boot-9.scm (print-vector): Renamed weak-hash-table? -->
 487         weak-key-hash-table?.  (Again!)
 488
 489 Tue Aug 20 07:31:39 1996  Mikael Djurfeldt  <mdj@woody.nada.kth.se>
 490
 491         * boot-9.scm (print-vector, macro-table, xformer-table):
 492         Renamed weak-hash-table --> weak-key-hash-table.
 493
 494         * poe.scm (funcq-memo): Renamed weak-hash-table -->
 495         weak-key-hash-table.
 496
 497 Sat Aug  3 06:16:35 1996  Gary Houston  <ghouston@actrix.gen.nz>
 498
 499         * boot-9.scm (*null-device*): global constant from goonix.
 500         (move->fdes): adjusted for boolean primitive-move->fdes.  return
 501         the modified port, always set revealed count to 1 (SCSH compatible).
 502         (release-port-handle port): from goonix (SCSH compatible).
 503         (%open-file): removed.
 504         (open-input-file, open-output-file, file-exists?, file-is-directory?):
 505         modified for open-file change (does not return #f).
 506
 507 Thu Aug  1 02:52:42 1996  Jim Blandy  <jimb@totoro.cyclic.com>
 508
 509         * Makefile.in (dist-dir): New target for new dist system.
 510         (manifest): Deleted.
 511         * PLUGIN/this.configure (aux_files): Removed PLUGIN; it's a
 512         directory, and needs special treatment in the dist-dir target.
 513
 514 Thu Aug  1 09:00:21 1996  Gary Houston  <ghouston@actrix.gen.nz>
 515
 516         * boot-9.scm: remove the wrappers for '%' system primitives,
 517         now that they throw errors directly.
 518         remove make-simple-wrapper and similar functions.
 519         protect a call to getenv which may now throw an exception.
 520
 521 Wed Jul 31 23:44:42 1996  Gary Houston  <ghouston@actrix.gen.nz>
 522
 523         * boot-9.scm (false-if-exception): new macro.
 524
 525 Fri Apr 19 13:53:08 1996  Tom Lord  <lord@beehive>
 526
 527         * The more things change...
 528
 529