From 837a55491e54003f82f1fe72fd7b66c605821d2a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 12 Feb 2003 19:41:09 +0000 Subject: [PATCH] Eliminate "(c)" string from copyright notices. --- v7/src/runtime/savres.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm index 3513ae24e..af4625e5e 100644 --- a/v7/src/runtime/savres.scm +++ b/v7/src/runtime/savres.scm @@ -1,10 +1,9 @@ #| -*-Scheme-*- -$Id: savres.scm,v 14.41 2003/01/03 01:37:53 cph Exp $ +$Id: savres.scm,v 14.42 2003/02/12 19:41:09 cph Exp $ -Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology -Copyright (c) 1995,1998,1999,2000,2001 Massachusetts Institute of Technology -Copyright (c) 2002,2003 Massachusetts Institute of Technology +Copyright 1988,1989,1990,1991,1992,1995 Massachusetts Institute of Technology +Copyright 1998,1999,2000,2001,2002,2003 Massachusetts Institute of Technology This file is part of MIT Scheme. @@ -150,7 +149,7 @@ warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.") (if (default-object? port) (current-output-port) (guarantee-output-port port 'IDENTIFY-WORLD)))) - (write-string "Copyright (c) " port) + (write-string "Copyright " port) (write (decoded-time/year (or time-world-saved (get-decoded-time))) port) (write-string " Massachusetts Institute of Technology." port) (newline port) -- 2.25.1