Import Upstream version 2c7upstream/2c7

1 files changed, 9 insertions, 17 deletions

diff --git a/macscheme.init b/macscheme.init
index 58927ee..16c53bb 100644
--- a/macscheme.init
+++ b/macscheme.init
@@ -1,21 +1,7 @@
 ;;;"macscheme.init" Configuration of *features* for MacScheme	-*-scheme-*-
-;Copyright (C) 1994, 1997 Aubrey Jaffer
-;
-;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.  I have made no warrantee or representation that the operation of
-;this software will be error-free, and I am under no obligation to
-;provide any services, by way of maintenance, update, or otherwise.
-;
-;3.  In conjunction with products arising from the use of this
-;material, there shall be no use of my name in any advertising,
-;promotional, or sales literature without prior written consent in
-;each case.
+;;; Author: Aubrey Jaffer
+;;;
+;;; This code is in the public domain.
 
 ;;; From: jjb@isye.gatech.edu (John Bartholdi)
 
@@ -29,6 +15,12 @@
 
 (define (scheme-implementation-type) 'MacScheme)
 
+;;; (scheme-implementation-home-page) should return a (string) URL
+;;; (Uniform Resource Locator) for this scheme implementation's home
+;;; page; or false if there isn't one.
+
+(define (scheme-implementation-home-page) #f)
+
 ;;; (scheme-implementation-version) should return a string describing
 ;;; the version the scheme implementation loading this file.