From 670eaa29927f640604faaac5de6f534ec4e79cdb Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 12 Mar 2017 15:16:44 -0700 Subject: [PATCH] More versions, notices, project names out-of-date. --- .gitignore | 1 - debian/mit-scheme-pucked.desktop | 2 +- doc/configure.ac | 2 +- src/microcode/boot.c | 2 +- src/runtime/version.scm | 3 +++ 5 files changed, 6 insertions(+), 4 deletions(-) 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 -- 2.25.1