From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 12 Mar 2017 22:16:44 +0000 (-0700)
Subject: More versions, notices, project names out-of-date.
X-Git-Tag: mit-scheme-pucked-9.2.12~180
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=670eaa29927f640604faaac5de6f534ec4e79cdb;p=mit-scheme.git

More versions, notices, project names out-of-date.
---

diff --git a/.gitignore b/.gitignore
index 13f5a2eba..86dae73c9 100644
--- a/.gitignore
+++ b/.gitignore
@@ -24,7 +24,6 @@
 /C-*/
 /C/
 /LOG
-/debian*/
 /html/
 /linux*/
 /macos/
diff --git a/debian/mit-scheme-pucked.desktop b/debian/mit-scheme-pucked.desktop
index 169c679f4..2eec5f453 100644
--- a/debian/mit-scheme-pucked.desktop
+++ b/debian/mit-scheme-pucked.desktop
@@ -1,5 +1,5 @@
 [Desktop Entry]
-Version=9.2.1.1
+Version=9.2.7
 Name=Friar Puck's MIT/GNU Scheme
 Exec=/usr/bin/mit-scheme-pucked --edit
 TryExec=mit-scheme-pucked
diff --git a/doc/configure.ac b/doc/configure.ac
index 6302e24f9..56d080c7d 100644
--- a/doc/configure.ac
+++ b/doc/configure.ac
@@ -1,7 +1,7 @@
 dnl Process this file with autoconf to produce a configure script.
 
 AC_INIT([MIT/GNU Scheme documentation],
-	[9.2.1],
+	[9.2.7],
 	[matt@birchwood-abbey.net],
 	[mit-scheme-pucked-doc])
 AC_CONFIG_SRCDIR([ref-manual/scheme.texinfo])
diff --git a/src/microcode/boot.c b/src/microcode/boot.c
index faecff089..c6654ca52 100644
--- a/src/microcode/boot.c
+++ b/src/microcode/boot.c
@@ -133,7 +133,7 @@ start_scheme (void)
 
   if (!option_batch_mode && !option_show_version && !option_show_help)
     {
-      outf_console ("MIT/GNU Scheme running under %s\n", OS_Variant);
+      outf_console ("MIT/GNU Scheme Pucked running under %s\n", OS_Variant);
       OS_announcement ();
       outf_console ("\n");
       outf_flush_console ();
diff --git a/src/runtime/version.scm b/src/runtime/version.scm
index af26be91e..aaab0ca3a 100644
--- a/src/runtime/version.scm
+++ b/src/runtime/version.scm
@@ -55,6 +55,9 @@ USA.
 	     (guarantee textual-output-port? port 'WRITE-MIT-SCHEME-COPYRIGHT)))
 	(cmark (if (default-object? cmark) "(C)" cmark))
 	(line-prefix (if (default-object? line-prefix) "" line-prefix)))
+    (write-words `("Copyright" ,cmark ,(number->string last-copyright-year)
+		   "Matthew" "Birkholz")
+		 line-prefix "    " port)
     (write-words (let ((years (map number->string copyright-years)))
 		   `("Copyright"
 		     ,cmark