From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 6 Aug 2019 23:57:47 +0000 (-0700)
Subject: mcrypt: downcase a symbol, most names; fix copyright notices
X-Git-Tag: mit-scheme-pucked-10.1.20~12^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15169c7e52b48eb2c559c3084e983ac0a67553b0;p=mit-scheme.git

mcrypt: downcase a symbol, most names; fix copyright notices
---

diff --git a/src/mcrypt/README b/src/mcrypt/README
index 2595d87e2..070784903 100644
--- a/src/mcrypt/README
+++ b/src/mcrypt/README
@@ -32,10 +32,10 @@ To use:
     (load-option 'mcrypt)
     (import-mcrypt)
 
-Import-mcrypt will modify the REPL's current environment by adding
-bindings linked to the plugin's exports.  They are not exported to the
-global environment because they would conflict with the deprecated
-exports from (runtime crypto).
+The import-mcrypt procedure will modify the REPL's current environment
+by adding bindings linked to the plugin's exports.  They are not
+exported to the global environment because they would conflict with
+the deprecated exports from (runtime crypto).
 
 To import into a CREF package set, add this to your .pkg file:
 
diff --git a/src/mcrypt/compile.scm b/src/mcrypt/compile.scm
index 5be57ba73..0b79e6abb 100644
--- a/src/mcrypt/compile.scm
+++ b/src/mcrypt/compile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*- |#
 
-;;;; Compile the MCRYPT option.
+;;;; Compile the Mcrypt option.
 
 (load-option 'cref)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
diff --git a/src/mcrypt/compile.sh b/src/mcrypt/compile.sh
index 80981fdef..d55bf84af 100755
--- a/src/mcrypt/compile.sh
+++ b/src/mcrypt/compile.sh
@@ -7,20 +7,20 @@
 #     2015, 2016, 2017, 2018, 2019 Massachusetts Institute of
 #     Technology
 #
-# This file is part of a mcrypt plugin for MIT/GNU Scheme.
+# This file is part of MIT/GNU Scheme.
 #
-# This plugin 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 of the License, or
-# (at your option) any later version.
+# MIT/GNU Scheme 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 of the
+# License, or (at your option) any later version.
 #
-# This plugin is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MIT/GNU Scheme 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 plugin; if not, write to the Free Software
+# along with MIT/GNU Scheme; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
 # 02110-1301, USA.
 
diff --git a/src/mcrypt/configure.ac b/src/mcrypt/configure.ac
index 3fc0ae6d8..3c2c3ee5d 100644
--- a/src/mcrypt/configure.ac
+++ b/src/mcrypt/configure.ac
@@ -1,7 +1,7 @@
 dnl Process this file with autoconf to produce a configure script.
 
 AC_PREREQ([2.69])
-AC_INIT([MIT/GNU Scheme mcrypt plugin],
+AC_INIT([MIT/GNU Scheme Mcrypt plugin],
         [1.0],
         [bug-mit-scheme@gnu.org],
         [mit-scheme-mcrypt])
diff --git a/src/mcrypt/make.scm b/src/mcrypt/make.scm
index 61e1c8ad7..4a0a47253 100644
--- a/src/mcrypt/make.scm
+++ b/src/mcrypt/make.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*- |#
 
-;;;; Load the mcrypt option.
+;;;; Load the Mcrypt option.
 
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (load-package-set "mcrypt")))
 
-(add-subsystem-identification! "mcrypt" '(0 2))
\ No newline at end of file
+(add-subsystem-identification! "Mcrypt" '(0 2))
\ No newline at end of file
diff --git a/src/mcrypt/mcrypt-check.scm b/src/mcrypt/mcrypt-check.scm
index 468daa764..4066abcb1 100644
--- a/src/mcrypt/mcrypt-check.scm
+++ b/src/mcrypt/mcrypt-check.scm
@@ -24,7 +24,7 @@ USA.
 
 |#
 
-;;;; Test the MCRYPT option.
+;;;; Test the Mcrypt option.
 
 (define (random-string length)
   (list->string (make-initialized-list length
diff --git a/src/mcrypt/mcrypt.scm b/src/mcrypt/mcrypt.scm
index a4392b5d1..fe359a790 100644
--- a/src/mcrypt/mcrypt.scm
+++ b/src/mcrypt/mcrypt.scm
@@ -24,7 +24,7 @@ USA.
 
 |#
 
-;;;; The mcrypt option.
+;;;; The Mcrypt option.
 ;;; package: (mcrypt)
 
 (declare (usual-integrations))
@@ -331,7 +331,7 @@ USA.
 
 (define (mcrypt-encrypt-port algorithm mode input output key init-vector
 			     encrypt?)
-  ;; Assumes that INPUT is in blocking mode.
+  ;; Assumes that input is in blocking mode.
   ((port-transformer (lambda ()
 		       (let ((context (mcrypt-open-module algorithm mode)))
 			 (mcrypt-init context key init-vector)
diff --git a/src/mcrypt/optiondb.scm b/src/mcrypt/optiondb.scm
index 049c332fe..f5966dc6e 100644
--- a/src/mcrypt/optiondb.scm
+++ b/src/mcrypt/optiondb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*- |#
 
-(define-load-option 'MCRYPT
+(define-load-option 'mcrypt
   (standard-system-loader "."))
 
 (further-load-options #t)
\ No newline at end of file