From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Dec 2002 03:17:38 +0000 (+0000)
Subject: Add message at boot about legal issues.
X-Git-Tag: 20090517-FFI~2100
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee893b311e251b42bfc9ca6e1500605242a59625;p=mit-scheme.git

Add message at boot about legal issues.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index f43429665..398190045 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.109 2002/11/20 19:46:07 cph Exp $
+$Id: boot.c,v 9.110 2002/12/27 03:17:38 cph Exp $
 
 Copyright (c) 1988-2002 Massachusetts Institute of Technology
 
@@ -387,6 +387,12 @@ DEFUN (Start_Scheme, (Start_Prim, File_Name),
 		    SCHEME_VERSION, SCHEME_SUBVERSION);
       outf_console ("MIT Scheme running under %s\n", OS_Variant);
       OS_announcement ();
+      outf_console ("\nMIT Scheme comes with ABSOLUTELY NO WARRANTY.\n");
+      outf_console
+	("This is free software, and you are welcome to redistribute it\n");
+      outf_console
+	("under certain conditions; for details, see the file COPYING\n");
+      outf_console ("included with this program.\n\n");
       outf_flush_console ();
     }
   if (I_Am_Master)