From 7a2a2cd07c0c0034cc389cd3b04f81a927a40dec Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 14 Feb 2003 18:48:13 +0000 Subject: [PATCH] Change program name to MIT/GNU Scheme. --- v7/src/Clean.sh | 6 +-- v7/src/README.txt | 19 +++++---- v7/src/Setup.sh | 6 +-- v7/src/Tags.sh | 6 +-- v7/src/compiler/Clean.sh | 8 ++-- v7/src/compiler/README | 2 +- v7/src/compiler/Setup.sh | 6 +-- v7/src/compiler/Stage.sh | 6 +-- v7/src/compiler/Tags.sh | 6 +-- v7/src/edwin/Clean.sh | 6 +-- v7/src/edwin/schmod.scm | 6 +-- v7/src/etc/Clean.sh | 6 +-- v7/src/etc/Setup.sh | 6 +-- v7/src/etc/Stage.sh | 6 +-- v7/src/etc/Tags.sh | 6 +-- v7/src/etc/compile.scm | 6 +-- v7/src/microcode/Clean.sh | 6 +-- v7/src/microcode/Setup.sh | 6 +-- v7/src/microcode/avltree.c | 6 +-- v7/src/microcode/avltree.h | 6 +-- v7/src/microcode/bchmmg.c | 19 +++++---- v7/src/microcode/boot.c | 6 +-- v7/src/microcode/cmpauxmd/makefile | 6 +-- v7/src/microcode/ntgui.c | 10 ++--- v7/src/microcode/ntio.c | 6 +-- v7/src/microcode/ntscmlib.h | 6 +-- v7/src/microcode/ntscreen.c | 8 ++-- v7/src/microcode/nttop.c | 8 ++-- v7/src/microcode/nttrap.c | 11 ++--- v7/src/microcode/ntutl/config.bat | 6 +-- v7/src/microcode/ntutl/ntgui.rc | 4 +- v7/src/microcode/ntutl/scheme16.c | 8 ++-- v7/src/microcode/ntutl/scheme16.def | 2 +- v7/src/microcode/ntutl/scheme16.mak | 62 +++++++++++----------------- v7/src/microcode/ntutl/scheme31.c | 6 +-- v7/src/microcode/ntutl/scheme31.def | 2 +- v7/src/microcode/ntutl/scheme32.c | 8 ++-- v7/src/microcode/ntutl/scheme32.def | 2 +- v7/src/microcode/ntutl/setenv.bat | 6 +-- v7/src/microcode/ntutl/wconfig.bat | 6 +-- v7/src/microcode/os2pm.scm | 21 +++++----- v7/src/microcode/os2pmcon.c | 9 ++-- v7/src/microcode/os2utl/config.cmd | 6 +-- v7/src/runtime-check/Clean.sh | 6 +-- v7/src/runtime-check/Setup.sh | 6 +-- v7/src/runtime/dragon4.scm | 6 +-- v7/src/runtime/mit-syntax.scm | 4 +- v7/src/runtime/syntax-transforms.scm | 4 +- v7/src/swat/c/widget-c-mit.c | 2 +- v7/src/swat/scheme/baseobj.scm | 4 +- v7/src/swat/scheme/mit-xhooks.scm | 2 +- v7/src/win32/dibutils/dibutils.rc | 6 +-- 52 files changed, 193 insertions(+), 206 deletions(-) diff --git a/v7/src/Clean.sh b/v7/src/Clean.sh index de96f00e8..cb3d7198c 100755 --- a/v7/src/Clean.sh +++ b/v7/src/Clean.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Clean.sh,v 1.6 2003/02/14 18:28:00 cph Exp $ +# $Id: Clean.sh,v 1.7 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for cleaning up MIT Scheme build directories. +# Utility for cleaning up MIT/GNU Scheme build directories. # The working directory must be the top-level source directory. if [ $# -le 1 ]; then diff --git a/v7/src/README.txt b/v7/src/README.txt index 4bc006ace..38b7602f4 100644 --- a/v7/src/README.txt +++ b/v7/src/README.txt @@ -1,11 +1,11 @@ -Structure and construction of the MIT Scheme source tree +Structure and construction of the MIT/GNU Scheme source tree -$Id: README.txt,v 1.2 2001/02/23 16:16:38 cph Exp $ +$Id: README.txt,v 1.3 2003/02/14 18:48:11 cph Exp $ Directories =========== -MIT Scheme is a large program consisting of many subdirectories. +MIT/GNU Scheme is a large program consisting of many subdirectories. These subdirectories can be further grouped together into rough functional subsystems. @@ -33,9 +33,10 @@ The compiler subsystem consists of these three directories: * "sf" contains a program that translates Scheme source code to an internal binary format called SCode. SCode is the internal - representation used by the MIT Scheme interpreter. The "sf" program - also performs a handful of optimizations, such as user-directed beta - substitution and early binding of known variables such as CAR. + representation used by the MIT/GNU Scheme interpreter. The "sf" + program also performs a handful of optimizations, such as + user-directed beta substitution and early binding of known variables + such as CAR. * "compiler" contains the native-code compiler. This program translates SCode to machine-language instructions. @@ -68,8 +69,8 @@ contain may not work: * "pcsample" contains a profiling extension. -* "swat" contains an extension that interfaces MIT Scheme to the Tk - graphical toolkit. +* "swat" contains an extension that interfaces MIT/GNU Scheme to the + Tk graphical toolkit. * "wabbit" contains program for finding all of the objects that contain pointers to a given object. @@ -77,7 +78,7 @@ contain may not work: Building from source on unix systems ==================================== -Building MIT Scheme from the CVS sources is a multi-stage process. +Building MIT/GNU Scheme from the CVS sources is a multi-stage process. The system has been designed around a number of "build states" and specific commands that move the system from one build state to another. These are the build states, ordered from least to most diff --git a/v7/src/Setup.sh b/v7/src/Setup.sh index f828c317e..2bdf1340f 100755 --- a/v7/src/Setup.sh +++ b/v7/src/Setup.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Setup.sh,v 1.9 2003/02/14 18:28:00 cph Exp $ +# $Id: Setup.sh,v 1.10 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility to set up the MIT Scheme build directories. +# Utility to set up the MIT/GNU Scheme build directories. # The working directory must be the top-level source directory. if [ ! -x configure ]; then diff --git a/v7/src/Tags.sh b/v7/src/Tags.sh index 0432787e5..b50a60d31 100755 --- a/v7/src/Tags.sh +++ b/v7/src/Tags.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Tags.sh,v 1.3 2003/02/14 18:28:00 cph Exp $ +# $Id: Tags.sh,v 1.4 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility to make TAGS files for MIT Scheme build directories. +# Utility to make TAGS files for MIT/GNU Scheme build directories. # The working directory must be the top-level source directory. for SUBDIR; do diff --git a/v7/src/compiler/Clean.sh b/v7/src/compiler/Clean.sh index afe9bf91c..ce64bb81b 100755 --- a/v7/src/compiler/Clean.sh +++ b/v7/src/compiler/Clean.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Clean.sh,v 1.7 2003/02/14 18:28:00 cph Exp $ +# $Id: Clean.sh,v 1.8 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000, 2001 Massachusetts Institute of Technology +# Copyright 2000,2001,2003 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,8 +21,8 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for cleaning up the MIT Scheme runtime-check directory. -# The working directory must be the runtime-check directory. +# Utility for cleaning up the MIT/GNU Scheme compiler directory. +# The working directory must be the compiler directory. if [ $# -ne 1 ]; then echo "usage: $0 " diff --git a/v7/src/compiler/README b/v7/src/compiler/README index e1ab4c126..43faf6cb2 100644 --- a/v7/src/compiler/README +++ b/v7/src/compiler/README @@ -1,5 +1,5 @@ -This directory contains LIAR, the MIT Scheme compiler. +This directory contains LIAR, the MIT/GNU Scheme compiler. Here is a brief summary of the subdirectory contents: diff --git a/v7/src/compiler/Setup.sh b/v7/src/compiler/Setup.sh index 060a5a5b5..d6b78c772 100755 --- a/v7/src/compiler/Setup.sh +++ b/v7/src/compiler/Setup.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Setup.sh,v 1.5 2003/02/14 18:28:00 cph Exp $ +# $Id: Setup.sh,v 1.6 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility to set up the MIT Scheme compiler directory. +# Utility to set up the MIT/GNU Scheme compiler directory. # The working directory must be the compiler directory. if [ $# -ne 0 ]; then diff --git a/v7/src/compiler/Stage.sh b/v7/src/compiler/Stage.sh index 74b43b242..16330085b 100755 --- a/v7/src/compiler/Stage.sh +++ b/v7/src/compiler/Stage.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Stage.sh,v 1.4 2003/02/14 18:28:00 cph Exp $ +# $Id: Stage.sh,v 1.5 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000, 2001 Massachusetts Institute of Technology +# Copyright 2000,2001 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for MIT Scheme compiler staging. +# Utility for MIT/GNU Scheme compiler staging. if [ $# -ne 2 ]; then echo "usage: $0 " diff --git a/v7/src/compiler/Tags.sh b/v7/src/compiler/Tags.sh index bff09995d..a3d54661f 100755 --- a/v7/src/compiler/Tags.sh +++ b/v7/src/compiler/Tags.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Tags.sh,v 1.3 2003/02/14 18:28:00 cph Exp $ +# $Id: Tags.sh,v 1.4 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility to make TAGS file for the MIT Scheme compiler directory. +# Utility to make TAGS file for the MIT/GNU Scheme compiler directory. # The working directory must be the compiler directory. etags back/*.scm base/*.scm fggen/*.scm fgopt/*.scm machine/*.scm \ diff --git a/v7/src/edwin/Clean.sh b/v7/src/edwin/Clean.sh index 6ede11105..cbb2b27b6 100755 --- a/v7/src/edwin/Clean.sh +++ b/v7/src/edwin/Clean.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Clean.sh,v 1.8 2003/02/14 18:28:10 cph Exp $ +# $Id: Clean.sh,v 1.9 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000, 2001, 2002 Massachusetts Institute of Technology +# Copyright 2000,2001,2002 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for cleaning up the MIT Scheme edwin directory. +# Utility for cleaning up the MIT/GNU Scheme edwin directory. # The working directory must be the edwin directory. if [ $# -ne 1 ]; then diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm index fd06587e0..568fb3317 100644 --- a/v7/src/edwin/schmod.scm +++ b/v7/src/edwin/schmod.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: schmod.scm,v 1.63 2003/02/14 18:28:13 cph Exp $ +$Id: schmod.scm,v 1.64 2003/02/14 18:48:11 cph Exp $ Copyright 1986,1989,1990,1991,1992,1998 Massachusetts Institute of Technology Copyright 2000,2001,2002,2003 Massachusetts Institute of Technology @@ -167,11 +167,11 @@ The following commands evaluate Scheme expressions: (2 RECEIVE) (3 DEFINE-RECORD-TYPE) - ;; MIT Scheme keywords: + ;; MIT/GNU Scheme keywords: (1 DEFINE-STRUCTURE FLUID-LET LET*-SYNTAX LOCAL-DECLARE NAMED-LAMBDA) - ;; MIT Scheme procedures: + ;; MIT/GNU Scheme procedures: (0 CALL-WITH-OUTPUT-STRING WITH-OUTPUT-TO-STRING) (1 CALL-WITH-APPEND-FILE CALL-WITH-BINARY-APPEND-FILE CALL-WITH-BINARY-INPUT-FILE CALL-WITH-BINARY-OUTPUT-FILE diff --git a/v7/src/etc/Clean.sh b/v7/src/etc/Clean.sh index 452677f51..af5911848 100755 --- a/v7/src/etc/Clean.sh +++ b/v7/src/etc/Clean.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Clean.sh,v 1.11 2003/02/14 18:28:14 cph Exp $ +# $Id: Clean.sh,v 1.12 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000, 2001, 2002 Massachusetts Institute of Technology +# Copyright 2000,2001,2002 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for cleaning up an MIT Scheme build directory. +# Utility for cleaning up an MIT/GNU Scheme build directory. # The working directory must be the build directory. if [ $# -eq 1 ]; then diff --git a/v7/src/etc/Setup.sh b/v7/src/etc/Setup.sh index fbc7753f4..9d256bd6a 100755 --- a/v7/src/etc/Setup.sh +++ b/v7/src/etc/Setup.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Setup.sh,v 1.8 2003/02/14 18:28:14 cph Exp $ +# $Id: Setup.sh,v 1.9 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility to set up an MIT Scheme build directory. +# Utility to set up an MIT/GNU Scheme build directory. # The working directory must be the build directory. if [ $# -ne 0 ]; then diff --git a/v7/src/etc/Stage.sh b/v7/src/etc/Stage.sh index 22069bfaa..fe484752b 100755 --- a/v7/src/etc/Stage.sh +++ b/v7/src/etc/Stage.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Stage.sh,v 1.5 2003/02/14 18:28:14 cph Exp $ +# $Id: Stage.sh,v 1.6 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000, 2001 Massachusetts Institute of Technology +# Copyright 2000,2001 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for MIT Scheme compiler staging. +# Utility for MIT/GNU Scheme compiler staging. if [ $# -ne 2 ]; then echo "usage: $0 " diff --git a/v7/src/etc/Tags.sh b/v7/src/etc/Tags.sh index d202380fd..677570994 100755 --- a/v7/src/etc/Tags.sh +++ b/v7/src/etc/Tags.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Tags.sh,v 1.3 2003/02/14 18:28:14 cph Exp $ +# $Id: Tags.sh,v 1.4 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility to make TAGS file for an MIT Scheme build directory. +# Utility to make TAGS file for an MIT/GNU Scheme build directory. # The working directory must be the build directory. etags *.scm diff --git a/v7/src/etc/compile.scm b/v7/src/etc/compile.scm index af64c5dd3..fe65e7b29 100644 --- a/v7/src/etc/compile.scm +++ b/v7/src/etc/compile.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.6 2003/02/14 18:28:14 cph Exp $ +$Id: compile.scm,v 1.7 2003/02/14 18:48:11 cph Exp $ -Copyright (c) 2000-2002 Massachusetts Institute of Technology +Copyright 2000,2001,2002 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -23,7 +23,7 @@ USA. |# -;;;; Program to compile MIT Scheme. +;;;; Program to compile MIT/GNU Scheme. ;;; This compiles the part of the system written in Scheme. ;;; The part written in C is compiled using "make". diff --git a/v7/src/microcode/Clean.sh b/v7/src/microcode/Clean.sh index 7bf3b40c4..47a244f0f 100755 --- a/v7/src/microcode/Clean.sh +++ b/v7/src/microcode/Clean.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Clean.sh,v 1.3 2003/02/14 18:28:14 cph Exp $ +# $Id: Clean.sh,v 1.4 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for cleaning up the MIT Scheme microcode directory. +# Utility for cleaning up the MIT/GNU Scheme microcode directory. # The working directory must be the microcode directory. if [ $# -ne 1 ]; then diff --git a/v7/src/microcode/Setup.sh b/v7/src/microcode/Setup.sh index f81bfa758..7fd3873cc 100755 --- a/v7/src/microcode/Setup.sh +++ b/v7/src/microcode/Setup.sh @@ -1,8 +1,8 @@ #!/bin/sh -# $Id: Setup.sh,v 1.7 2003/02/14 18:28:14 cph Exp $ +# $Id: Setup.sh,v 1.8 2003/02/14 18:48:11 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Program to set up MIT Scheme microcode from CVS for distribution. +# Program to set up MIT/GNU Scheme microcode from CVS for distribution. # Requires `gcc' and `scheme'. if [ ! -f config.h.in ]; then diff --git a/v7/src/microcode/avltree.c b/v7/src/microcode/avltree.c index 9c6d1ffea..199ff50fd 100644 --- a/v7/src/microcode/avltree.c +++ b/v7/src/microcode/avltree.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: avltree.c,v 1.7 2003/02/14 18:28:14 cph Exp $ +$Id: avltree.c,v 1.8 2003/02/14 18:48:11 cph Exp $ -Copyright (c) 1993-2001 Massachusetts Institute of Technology +Copyright 1993-2001 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -24,7 +24,7 @@ USA. */ /* This file contains the code for a simple AVL tree library. - It is used by the MIT Scheme microcode to quickly map + It is used by the MIT/GNU Scheme microcode to quickly map names to indices into various tables. */ diff --git a/v7/src/microcode/avltree.h b/v7/src/microcode/avltree.h index 564c3b489..b7eb8bdc2 100644 --- a/v7/src/microcode/avltree.h +++ b/v7/src/microcode/avltree.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: avltree.h,v 1.6 2003/02/14 18:28:14 cph Exp $ +$Id: avltree.h,v 1.7 2003/02/14 18:48:11 cph Exp $ -Copyright (c) 1993, 1999-2001 Massachusetts Institute of Technology +Copyright 1993, 1999-2001 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -28,7 +28,7 @@ USA. /* This file contains external declarations for a simple AVL tree library. - It is used by the MIT Scheme microcode to quickly map + It is used by the MIT/GNU Scheme microcode to quickly map names to indices into various tables. */ #include "config.h" diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c index 4b79246bd..45238bb9e 100644 --- a/v7/src/microcode/bchmmg.c +++ b/v7/src/microcode/bchmmg.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: bchmmg.c,v 9.103 2003/02/14 18:28:15 cph Exp $ +$Id: bchmmg.c,v 9.104 2003/02/14 18:48:11 cph Exp $ -Copyright (c) 1987-2000, 2002 Massachusetts Institute of Technology +Copyright 1987-2000, 2002 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -223,7 +223,7 @@ DEFUN (io_error_retry_p, (operation_name, noise), operation_name, (GetLastError ()), noise); switch (MessageBox (master_tty_window, &buf[0], - "MIT Scheme garbage-collection problem description", + "MIT/GNU Scheme garbage-collection problem description", (MB_ICONSTOP | MB_ABORTRETRYIGNORE | MB_APPLMODAL))) { case IDABORT: @@ -250,12 +250,13 @@ io_error_retry_p (char * operation_name, char * noise) "%s: GC file error (code = %d) when manipulating %s.\n" "Choose an option (Cancel = Exit Scheme)", operation_name, errno, noise); - switch (WinMessageBox (HWND_DESKTOP, - NULLHANDLE, - (&buf[0]), - "MIT Scheme garbage-collection problem description", - 0, - (MB_ICONHAND | MB_ABORTRETRYIGNORE | MB_APPLMODAL))) + switch + (WinMessageBox (HWND_DESKTOP, + NULLHANDLE, + (&buf[0]), + "MIT/GNU Scheme garbage-collection problem description", + 0, + (MB_ICONHAND | MB_ABORTRETRYIGNORE | MB_APPLMODAL))) { case MBID_ABORT: return (1); case MBID_RETRY: return (0); diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c index 67bfef68a..e77b6a8e4 100644 --- a/v7/src/microcode/boot.c +++ b/v7/src/microcode/boot.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: boot.c,v 9.112 2003/02/14 18:28:18 cph Exp $ +$Id: boot.c,v 9.113 2003/02/14 18:48:11 cph Exp $ -Copyright (c) 1988-2002 Massachusetts Institute of Technology +Copyright 1988-2002 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -384,7 +384,7 @@ DEFUN (Start_Scheme, (Start_Prim, File_Name), OS_initialize (); if (I_Am_Master) { - outf_console ("MIT Scheme running under %s\n", OS_Variant); + outf_console ("MIT/GNU Scheme running under %s\n", OS_Variant); OS_announcement (); outf_console ("\n"); outf_flush_console (); diff --git a/v7/src/microcode/cmpauxmd/makefile b/v7/src/microcode/cmpauxmd/makefile index 48f7a75ae..2ab764dc5 100644 --- a/v7/src/microcode/cmpauxmd/makefile +++ b/v7/src/microcode/cmpauxmd/makefile @@ -1,6 +1,6 @@ -# $Id: makefile,v 1.9 2003/02/14 18:28:25 cph Exp $ +# $Id: makefile,v 1.10 2003/02/14 18:48:12 cph Exp $ # -# Copyright (c) 2000 Massachusetts Institute of Technology +# Copyright 2000 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -19,7 +19,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Makefile for MIT Scheme's i386 compiled-code interface files. +# Makefile for MIT/GNU Scheme's i386 compiled-code interface files. EXPANSIONS = i386-nt.asm i386-ntw.asm diff --git a/v7/src/microcode/ntgui.c b/v7/src/microcode/ntgui.c index 3a6836870..c231fd3b2 100644 --- a/v7/src/microcode/ntgui.c +++ b/v7/src/microcode/ntgui.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: ntgui.c,v 1.30 2003/02/14 18:28:20 cph Exp $ +$Id: ntgui.c,v 1.31 2003/02/14 18:48:11 cph Exp $ -Copyright (c) 1993-2000 Massachusetts Institute of Technology +Copyright 1993-2000 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -169,7 +169,7 @@ catatonia_trigger (void) mes_result = (MessageBox (master_tty_window, "Scheme appears to have become catatonic.\n" "OK to kill it?", - "MIT Scheme", + "MIT/GNU Scheme", (MB_ICONSTOP | MB_OKCANCEL))); win32_catatonia_block[CATATONIA_BLOCK_COUNTER] = 0; @@ -761,7 +761,7 @@ TellUser (char * format, ...) va_end (arg_ptr); return (MessageBox (master_tty_window, ((LPCSTR) &buffer[0]), - ((LPCSTR) "MIT Scheme Win32 Notification"), + ((LPCSTR) "MIT/GNU Scheme Win32 Notification"), (MB_TASKMODAL | MB_ICONINFORMATION | MB_SETFOREGROUND | MB_OK))); } @@ -777,7 +777,7 @@ TellUserEx (int flags, char * format, ...) va_end (arg_ptr); return (MessageBox (master_tty_window, ((LPCSTR) &buffer[0]), - ((LPCSTR) "MIT Scheme Win32 Notification"), + ((LPCSTR) "MIT/GNU Scheme Win32 Notification"), (MB_TASKMODAL | MB_ICONINFORMATION | MB_SETFOREGROUND | flags))); } diff --git a/v7/src/microcode/ntio.c b/v7/src/microcode/ntio.c index 9f1ba0281..0b4b7fc25 100644 --- a/v7/src/microcode/ntio.c +++ b/v7/src/microcode/ntio.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: ntio.c,v 1.26 2003/02/14 18:28:20 cph Exp $ +$Id: ntio.c,v 1.27 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1992-2001 Massachusetts Institute of Technology +Copyright 1992-2001 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -659,7 +659,7 @@ NT_restore_channels (void) void NT_initialize_channels (void) { - master_tty_window = (Screen_Create (NULL, "MIT Scheme", SW_SHOWNORMAL)); + master_tty_window = (Screen_Create (NULL, "MIT/GNU Scheme", SW_SHOWNORMAL)); if (win32_under_win32s_p ()) OS_have_select_p = 0; else diff --git a/v7/src/microcode/ntscmlib.h b/v7/src/microcode/ntscmlib.h index e94432da8..28d08ae59 100644 --- a/v7/src/microcode/ntscmlib.h +++ b/v7/src/microcode/ntscmlib.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: ntscmlib.h,v 1.11 2003/02/14 18:28:20 cph Exp $ +$Id: ntscmlib.h,v 1.12 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1993-1999 Massachusetts Institute of Technology +Copyright 1993-1999 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -23,7 +23,7 @@ USA. */ -/* MIT Scheme under Windows system-dependent utilities. */ +/* MIT/GNU Scheme under Windows system-dependent utilities. */ #ifndef SCM_NTLIB_H diff --git a/v7/src/microcode/ntscreen.c b/v7/src/microcode/ntscreen.c index 78f22fdba..60aa094e9 100644 --- a/v7/src/microcode/ntscreen.c +++ b/v7/src/microcode/ntscreen.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: ntscreen.c,v 1.49 2003/02/14 18:28:21 cph Exp $ +$Id: ntscreen.c,v 1.50 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1993-2002 Massachusetts Institute of Technology +Copyright 1993-2002 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -780,7 +780,7 @@ ScreenWndProc (HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) "\n" "Really Exit Scheme?") : "OK to close this window?", - "MIT Scheme", + "MIT/GNU Scheme", (MB_ICONQUESTION | MB_OKCANCEL))) break; } @@ -2927,7 +2927,7 @@ WriteScreenBlock (HWND hWnd, LPSTR lpBlock_in, int nLength_in) screen->mode_flags |= SCREEN_MODE_NEWLINE_CRS; screen->scroll_lines = (COMPUTE_SCROLL_LINES (screen->height)); - SetWindowText (screen->hWnd, "MIT Scheme"); + SetWindowText (screen->hWnd, "MIT/GNU Scheme"); } i = j; /* 1 added in for loop */ continue; diff --git a/v7/src/microcode/nttop.c b/v7/src/microcode/nttop.c index b40515c34..d27f45dec 100644 --- a/v7/src/microcode/nttop.c +++ b/v7/src/microcode/nttop.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: nttop.c,v 1.32 2003/02/14 18:28:21 cph Exp $ +$Id: nttop.c,v 1.33 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1993-2000 Massachusetts Institute of Technology +Copyright 1993-2000 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -84,8 +84,8 @@ NT_initialize_win32_system_utilities () win32_system_utilities_dll = LoadLibrary (dll_name); if (win32_system_utilities_dll == NULL) { - outf_fatal ("MIT Scheme is unable to find or load %s\n" - "This essential MIT Scheme file should be in the\n" + outf_fatal ("MIT/GNU Scheme is unable to find or load %s\n" + "This essential MIT/GNU Scheme file should be in the\n" "same directory as SCHEME.EXE", dll_name); outf_flush_fatal(); diff --git a/v7/src/microcode/nttrap.c b/v7/src/microcode/nttrap.c index a1d04853c..7163a50ef 100644 --- a/v7/src/microcode/nttrap.c +++ b/v7/src/microcode/nttrap.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: nttrap.c,v 1.25 2003/02/14 18:28:21 cph Exp $ +$Id: nttrap.c,v 1.26 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1992-2002 Massachusetts Institute of Technology +Copyright 1992-2002 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -110,7 +110,7 @@ DEFUN (trap_noise_end, (style), UINT style) value = (MessageBox (NULL, trap_output, - "MIT Scheme Exception Information", + "MIT/GNU Scheme Exception Information", style)); free (trap_output); trap_output = ((char *) NULL); @@ -398,7 +398,7 @@ DEFUN (display_exception_information, (info, context, flags), #endif /* W32_TRAP_DEBUG */ value = (MessageBox (NULL, &msgbuf[0], - "MIT Scheme Exception Info", + "MIT/GNU Scheme Exception Info", (flags | MB_ICONSTOP))); return (value); } @@ -1126,7 +1126,8 @@ DEFUN (tinyexcpdebug, (code, info), unsigned long * addr; char responsebuf[256], * response; - if ((MessageBox (NULL, "Debug?", "MIT Scheme Exception Debugger", MB_YESNO)) + if ((MessageBox + (NULL, "Debug?", "MIT/GNU Scheme Exception Debugger", MB_YESNO)) != IDYES) return; diff --git a/v7/src/microcode/ntutl/config.bat b/v7/src/microcode/ntutl/config.bat index e7fd05613..fa9ebdbd4 100644 --- a/v7/src/microcode/ntutl/config.bat +++ b/v7/src/microcode/ntutl/config.bat @@ -1,9 +1,9 @@ @echo off -rem MIT Scheme microcode configuration script for Windows NT +rem MIT/GNU Scheme microcode configuration script for Windows NT rem -rem Copyright (c) 1993 Massachusetts Institute of Technology +rem Copyright 1993 Massachusetts Institute of Technology rem -rem $Id: config.bat,v 1.6 1993/09/20 17:07:36 gjr Exp $ +rem $Id: config.bat,v 1.7 2003/02/14 18:48:12 cph Exp $ rem copy cmpintmd\i386.h cmpintmd.h copy cmpauxmd\i386-nt.asm cmpauxmd.asm diff --git a/v7/src/microcode/ntutl/ntgui.rc b/v7/src/microcode/ntutl/ntgui.rc index 92cea7185..a2ee73e19 100644 --- a/v7/src/microcode/ntutl/ntgui.rc +++ b/v7/src/microcode/ntutl/ntgui.rc @@ -36,12 +36,12 @@ BEGIN BLOCK "040904E4" BEGIN VALUE "CompanyName", "Artifical Intelligence Lab, MIT" - VALUE "FileDescription", "MIT Scheme Microcode" + VALUE "FileDescription", "MIT/GNU Scheme Microcode" VALUE "FileVersion", MAKEFILEVERSIONSTRING(SCHEME_VERSION,SCHEME_SUBVERSION) VALUE "InternalName", "SCHEME" VALUE "LegalCopyright", "Copyright Massachusetts Institute of Technology 1993-2000" VALUE "OriginalFilename", "SCHEME.EXE" - VALUE "ProductName", "MIT Scheme" + VALUE "ProductName", "MIT/GNU Scheme" VALUE "ProductVersion", SCHEME_RELEASE END END diff --git a/v7/src/microcode/ntutl/scheme16.c b/v7/src/microcode/ntutl/scheme16.c index d9220c29b..63256b783 100644 --- a/v7/src/microcode/ntutl/scheme16.c +++ b/v7/src/microcode/ntutl/scheme16.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: scheme16.c,v 1.13 2003/02/14 18:28:31 cph Exp $ +$Id: scheme16.c,v 1.14 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1993-1999 Massachusetts Institute of Technology +Copyright 1993-1999 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -23,7 +23,7 @@ USA. */ -/* MIT Scheme under Windows system utiltities DLL source. +/* MIT/GNU Scheme under Windows system utiltities DLL source. Win16 side of the Win32s version. */ @@ -45,7 +45,7 @@ TellUser (char FAR * format, ...) va_end (arg_ptr); return (MessageBox (NULL, ((LPCSTR) &buffer[0]), - ((LPCSTR) "MIT Scheme Win16 Notification"), + ((LPCSTR) "MIT/GNU Scheme Win16 Notification"), (MB_TASKMODAL | MB_ICONINFORMATION | MB_OK))); } diff --git a/v7/src/microcode/ntutl/scheme16.def b/v7/src/microcode/ntutl/scheme16.def index 25da88788..ea9b20845 100644 --- a/v7/src/microcode/ntutl/scheme16.def +++ b/v7/src/microcode/ntutl/scheme16.def @@ -1,5 +1,5 @@ LIBRARY scheme16 -DESCRIPTION "MIT Scheme Win16 Server for Win32S DLL" +DESCRIPTION "MIT/GNU Scheme Win16 Server for Win32S DLL" EXETYPE WINDOWS diff --git a/v7/src/microcode/ntutl/scheme16.mak b/v7/src/microcode/ntutl/scheme16.mak index 8e0264534..07e140e95 100644 --- a/v7/src/microcode/ntutl/scheme16.mak +++ b/v7/src/microcode/ntutl/scheme16.mak @@ -1,43 +1,27 @@ -### -*- Fundamental -*- -### -### $Id: scheme16.mak,v 1.4 1996/03/23 19:24:14 adams Exp $ -### -### Copyright (c) 1996 Massachusetts Institute of Technology -### -### This material as developed by the Scheme project at the -### Massachusetts Institute of Technology, Department of -### Electrical Engineering and Computer Science. Permission to -### copy this software, to redistribute it, and to use it for any -### purpose is granted, subject to the following restrictions and -### understandings. -### -### 1. Any copy made of this software must include this copyright -### notice in full. -### -### 2. Users of this software agree to make their best efforts (a) -### to return to the MIT Scheme project any improvements or -### extensions that they make, so that these may be included in -### future releases; and (b) to inform MIT of noteworthy uses of -### this software. -### -### 3. All materials developed as a consequence of the use of this -### software shall duly acknowledge such use, in accordance with -### the usual standards of acknowledging credit in academic -### research. -### -### 4. MIT has made no warrantee or representation that the -### operation of this software will be error-free, and MIT is -### under no obligation to provide any services, by way of -### maintenance, update, or otherwise. -### -### 5. In conjunction with products arising from the use of this -### material, there shall be no use of the name of the -### Massachusetts Institute of Technology nor of any adaptation -### thereof in any advertising, promotional, or sales literature -### without prior written consent from MIT in each case. -### +# -*- Fundamental -*- +# +# $Id: scheme16.mak,v 1.5 2003/02/14 18:48:12 cph Exp $ +# +# Copyright 1996 Massachusetts Institute of Technology +# +# This file is part of MIT/GNU Scheme. +# +# 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. +# +# 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 MIT/GNU Scheme; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +# 02111-1307, USA. -#### Makefile for the 16-bit component of the MIT Scheme Win32 support +# Makefile for the 16-bit component of the MIT/GNU Scheme Win32 support all: scheme16.dll diff --git a/v7/src/microcode/ntutl/scheme31.c b/v7/src/microcode/ntutl/scheme31.c index dcf2e5ea1..c21b3182a 100644 --- a/v7/src/microcode/ntutl/scheme31.c +++ b/v7/src/microcode/ntutl/scheme31.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: scheme31.c,v 1.12 2003/02/14 18:28:31 cph Exp $ +$Id: scheme31.c,v 1.13 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1993-1999 Massachusetts Institute of Technology +Copyright 1993-1999 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -23,7 +23,7 @@ USA. */ -/* MIT Scheme under Windows system utiltities DLL source. +/* MIT/GNU Scheme under Windows system utiltities DLL source. Win32s (vs. true NT) version. */ diff --git a/v7/src/microcode/ntutl/scheme31.def b/v7/src/microcode/ntutl/scheme31.def index 016cd535f..5e8e9cd32 100644 --- a/v7/src/microcode/ntutl/scheme31.def +++ b/v7/src/microcode/ntutl/scheme31.def @@ -1,5 +1,5 @@ LIBRARY scheme31 -DESCRIPTION "MIT Scheme Win32S DLL" +DESCRIPTION "MIT/GNU Scheme Win32S DLL" VERSION 0.5 diff --git a/v7/src/microcode/ntutl/scheme32.c b/v7/src/microcode/ntutl/scheme32.c index b2e1c63a4..7644bd9fb 100644 --- a/v7/src/microcode/ntutl/scheme32.c +++ b/v7/src/microcode/ntutl/scheme32.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: scheme32.c,v 1.19 2003/02/14 18:28:31 cph Exp $ +$Id: scheme32.c,v 1.20 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1993-1999 Massachusetts Institute of Technology +Copyright 1993-1999 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -23,8 +23,8 @@ USA. */ -/* MIT Scheme under Windows system utiltities DLL source. - True NT (vs. Win32s) version +/* MIT/GNU Scheme under Windows system utiltities DLL source. + True Win32 (vs. Win32s) version */ #include "ntscmlib.h" diff --git a/v7/src/microcode/ntutl/scheme32.def b/v7/src/microcode/ntutl/scheme32.def index 0228b3ff4..4317786cb 100644 --- a/v7/src/microcode/ntutl/scheme32.def +++ b/v7/src/microcode/ntutl/scheme32.def @@ -1,5 +1,5 @@ LIBRARY scheme32 -DESCRIPTION "MIT Scheme Win32 DLL" +DESCRIPTION "MIT/GNU Scheme Win32 DLL" VERSION 0.5 diff --git a/v7/src/microcode/ntutl/setenv.bat b/v7/src/microcode/ntutl/setenv.bat index cfad1f127..cb783bd26 100644 --- a/v7/src/microcode/ntutl/setenv.bat +++ b/v7/src/microcode/ntutl/setenv.bat @@ -1,9 +1,9 @@ @echo off -rem MIT Scheme microcode configuration script for Windows NT +rem MIT/GNU Scheme microcode configuration script for Windows NT rem -rem Copyright (c) 1993 Massachusetts Institute of Technology +rem Copyright 1993 Massachusetts Institute of Technology rem -rem $Id: setenv.bat,v 1.1 1993/07/18 20:31:17 gjr Exp $ +rem $Id: setenv.bat,v 1.2 2003/02/14 18:48:12 cph Exp $ rem set path=%path%;c:\usr\lib\masm\bin set include=%lib%;c:\usr\lib\masm\include diff --git a/v7/src/microcode/ntutl/wconfig.bat b/v7/src/microcode/ntutl/wconfig.bat index 54ffb0027..4ea3dada8 100644 --- a/v7/src/microcode/ntutl/wconfig.bat +++ b/v7/src/microcode/ntutl/wconfig.bat @@ -1,9 +1,9 @@ @echo off -rem MIT Scheme microcode configuration script for Win32 / Watcom C +rem MIT/GNU Scheme microcode configuration script for Win32 / Watcom C rem -rem Copyright (c) 1995-96 Massachusetts Institute of Technology +rem Copyright 1995-96 Massachusetts Institute of Technology rem -rem $Id: wconfig.bat,v 1.3 1996/10/08 01:32:34 cph Exp $ +rem $Id: wconfig.bat,v 1.4 2003/02/14 18:48:12 cph Exp $ rem copy cmpintmd\i386.h cmpintmd.h copy cmpauxmd\i386-ntw.asm cmpauxmd.asm diff --git a/v7/src/microcode/os2pm.scm b/v7/src/microcode/os2pm.scm index 2394b04f4..f5678ab5c 100644 --- a/v7/src/microcode/os2pm.scm +++ b/v7/src/microcode/os2pm.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: os2pm.scm,v 1.14 2003/02/14 18:28:22 cph Exp $ +$Id: os2pm.scm,v 1.15 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1995-1999, 2001, 2002 Massachusetts Institute of Technology +Copyright 1995-1999, 2001, 2002 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -689,21 +689,22 @@ USA. Copyright (c) ~A Massachusetts Institute of Technology -This file is part of MIT Scheme. +This file is part of MIT/GNU Scheme. -MIT 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. +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. -MIT Scheme is distributed in the hope that it will be useful, but +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 MIT Scheme; if not, write to the Free Software Foundation, -Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, +USA. */ ") diff --git a/v7/src/microcode/os2pmcon.c b/v7/src/microcode/os2pmcon.c index d29eb9e2f..f03c8b7b1 100644 --- a/v7/src/microcode/os2pmcon.c +++ b/v7/src/microcode/os2pmcon.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: os2pmcon.c,v 1.28 2003/02/14 18:28:22 cph Exp $ +$Id: os2pmcon.c,v 1.29 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1994-2000 Massachusetts Institute of Technology +Copyright 1994-2000 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -427,10 +427,9 @@ process_events (int blockp) case IDM_ABOUT: (void) WinMessageBox (HWND_DESKTOP, NULLHANDLE, - "This is MIT Scheme Release " + "This is MIT/GNU Scheme Release " SCHEME_RELEASE - ", brought to you by the MIT Scheme Team.\n", - "The Uncommon Lisp", 0, MB_OK); + ", the Uncommon Lisp", 0, MB_OK); break; } } diff --git a/v7/src/microcode/os2utl/config.cmd b/v7/src/microcode/os2utl/config.cmd index 456bc70a8..ea5db008f 100644 --- a/v7/src/microcode/os2utl/config.cmd +++ b/v7/src/microcode/os2utl/config.cmd @@ -1,9 +1,9 @@ @echo off -rem MIT Scheme microcode configuration script for OS/2 +rem MIT/GNU Scheme microcode configuration script for OS/2 rem -rem Copyright (c) 1994, 1995, 2000 Massachusetts Institute of Technology +rem Copyright 1994,1995,2000 Massachusetts Institute of Technology rem -rem $Id: config.cmd,v 1.4 2000/12/05 21:23:51 cph Exp $ +rem $Id: config.cmd,v 1.5 2003/02/14 18:48:12 cph Exp $ rem copy cmpintmd\i386.h cmpintmd.h copy cmpauxmd\i386.m4 cmpauxmd.m4 diff --git a/v7/src/runtime-check/Clean.sh b/v7/src/runtime-check/Clean.sh index b996cf5bc..bca7960dd 100755 --- a/v7/src/runtime-check/Clean.sh +++ b/v7/src/runtime-check/Clean.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Clean.sh,v 1.5 2003/02/14 18:28:34 cph Exp $ +# $Id: Clean.sh,v 1.6 2003/02/14 18:48:13 cph Exp $ # -# Copyright (c) 2000, 2001 Massachusetts Institute of Technology +# Copyright 2000,2001 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility for cleaning up the MIT Scheme runtime-check directory. +# Utility for cleaning up the MIT/GNU Scheme runtime-check directory. # The working directory must be the runtime-check directory. if [ $# -ne 1 ]; then diff --git a/v7/src/runtime-check/Setup.sh b/v7/src/runtime-check/Setup.sh index c66f4f117..e7cea3fbb 100755 --- a/v7/src/runtime-check/Setup.sh +++ b/v7/src/runtime-check/Setup.sh @@ -1,8 +1,8 @@ #!/bin/sh # -# $Id: Setup.sh,v 1.7 2003/02/14 18:28:34 cph Exp $ +# $Id: Setup.sh,v 1.8 2003/02/14 18:48:13 cph Exp $ # -# Copyright (c) 2000, 2001 Massachusetts Institute of Technology +# Copyright 2000,2001 Massachusetts Institute of Technology # # This file is part of MIT/GNU Scheme. # @@ -21,7 +21,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. -# Utility to set up an MIT Scheme build directory. +# Utility to set up an MIT/GNU Scheme build directory. # The working directory must be the build directory. if [ $# -ne 0 ]; then diff --git a/v7/src/runtime/dragon4.scm b/v7/src/runtime/dragon4.scm index df963e451..1fa2cc14e 100644 --- a/v7/src/runtime/dragon4.scm +++ b/v7/src/runtime/dragon4.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: dragon4.scm,v 1.17 2003/02/14 18:28:32 cph Exp $ +$Id: dragon4.scm,v 1.18 2003/02/14 18:48:12 cph Exp $ -Copyright (c) 1989-1999 Massachusetts Institute of Technology +Copyright 1989-1999 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -305,7 +305,7 @@ not much different to numbers within a few orders of magnitude of 1. (define failures 0) (define successes 0) - ;; From the MIT Scheme Reference Manual: + ;; From the MIT/GNU Scheme Reference Manual: (try (* 4 (atan 1 1)) '(relative 5) "3.1416") (try (* 4000 (atan 1 1)) '(relative 5) "3141.6") (try (* 4000 (atan 1 1)) '(relative 5 scientific) "3.1416e3") diff --git a/v7/src/runtime/mit-syntax.scm b/v7/src/runtime/mit-syntax.scm index fe4927d2d..6fb24a919 100644 --- a/v7/src/runtime/mit-syntax.scm +++ b/v7/src/runtime/mit-syntax.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: mit-syntax.scm,v 14.14 2003/02/14 18:28:33 cph Exp $ +$Id: mit-syntax.scm,v 14.15 2003/02/14 18:48:13 cph Exp $ Copyright 1989,1990,1991,2001,2002,2003 Massachusetts Institute of Technology @@ -23,7 +23,7 @@ USA. |# -;;;; MIT Scheme Syntax +;;;; MIT/GNU Scheme Syntax (declare (usual-integrations)) diff --git a/v7/src/runtime/syntax-transforms.scm b/v7/src/runtime/syntax-transforms.scm index ee7ce6aa3..b138d15f8 100644 --- a/v7/src/runtime/syntax-transforms.scm +++ b/v7/src/runtime/syntax-transforms.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: syntax-transforms.scm,v 14.4 2003/02/14 18:28:34 cph Exp $ +$Id: syntax-transforms.scm,v 14.5 2003/02/14 18:48:13 cph Exp $ Copyright 1989-1991, 2001, 2002 Massachusetts Institute of Technology @@ -23,7 +23,7 @@ USA. |# -;;;; MIT Scheme syntax +;;;; MIT/GNU Scheme syntax ;;; Procedures to convert transformers to internal form. Required ;;; during cold load, so must be loaded very early in the sequence. diff --git a/v7/src/swat/c/widget-c-mit.c b/v7/src/swat/c/widget-c-mit.c index 5a73d82c1..617822b78 100644 --- a/v7/src/swat/c/widget-c-mit.c +++ b/v7/src/swat/c/widget-c-mit.c @@ -1,4 +1,4 @@ -/* Cover routines to make MIT Scheme primitives out of the procedures */ +/* Cover routines to make MIT/GNU Scheme primitives out of the procedures */ /* in button-c.c. */ #include "scheme.h" diff --git a/v7/src/swat/scheme/baseobj.scm b/v7/src/swat/scheme/baseobj.scm index 7b8907a74..9601c4aa4 100644 --- a/v7/src/swat/scheme/baseobj.scm +++ b/v7/src/swat/scheme/baseobj.scm @@ -1,8 +1,8 @@ ;;;;; -*- Scheme -*- ;;;;; Basic objects for the Scheme User Interface Tool Kit -;;;; MIT Scheme Version derived from Scheme-To-C version 1.2 +;;;; MIT/GNU Scheme Version derived from Scheme-To-C version 1.2 -;;;; $Id: baseobj.scm,v 1.1 1995/08/02 21:26:49 adams Exp $ +;;;; $Id: baseobj.scm,v 1.2 2003/02/14 18:48:13 cph Exp $ ;;;; Application objects diff --git a/v7/src/swat/scheme/mit-xhooks.scm b/v7/src/swat/scheme/mit-xhooks.scm index e1b3b129d..5260e0141 100644 --- a/v7/src/swat/scheme/mit-xhooks.scm +++ b/v7/src/swat/scheme/mit-xhooks.scm @@ -345,7 +345,7 @@ end of debugging stuff (weak-set-cdr! (weak-cdr weak) result) result)) (lambda (display child-work-code child-idle-code) - child-idle-code ; Not used by MIT Scheme + child-idle-code ; Not used by MIT/GNU Scheme (let ((file (XConnectionNumber display)) (weak (weak-cons child-work-code (weak-cons display #F)))) (without-interrupts diff --git a/v7/src/win32/dibutils/dibutils.rc b/v7/src/win32/dibutils/dibutils.rc index cff00cf4f..9ed50e01e 100644 --- a/v7/src/win32/dibutils/dibutils.rc +++ b/v7/src/win32/dibutils/dibutils.rc @@ -8,14 +8,14 @@ BEGIN BEGIN BLOCK "040904E4" BEGIN - VALUE "CompanyName", "Artifical Intelligence Lab, MIT" + VALUE "CompanyName", "GNU Project" VALUE "FileDescription", "DIB utilities for Scheme Graphics" VALUE "FileVersion", "1.0" VALUE "InternalName", "dibutils" VALUE "LegalCopyright", "Copyright Massachusetts Institute of Technology 1993" VALUE "OriginalFilename", "DIBUTILS.DLL" - VALUE "ProductName", "MIT Scheme" - VALUE "ProductVersion", "7.2.0 (alpha)" + VALUE "ProductName", "MIT/GNU Scheme" + VALUE "ProductVersion", "7.7.1" END END -- 2.25.1