Import Upstream version 2c7upstream/2c7

1 files changed, 10 insertions, 19 deletions

diff --git a/scheme2c.init b/scheme2c.init
index 0743113..233285a 100644
--- a/scheme2c.init
+++ b/scheme2c.init
@@ -1,22 +1,7 @@
-;"scheme2c.init" Initialisation for SLIB for Scheme->C on Sun	-*-scheme-*-
-;Copyright 1991, 1992, 1993, 1994, 1997 Aubrey Jaffer
-;Copyright 1991 David Love
-;
-;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.
+;;; "scheme2c.init" Initialisation for SLIB for Scheme->C on Sun -*-scheme-*-
+;;; Authors: David Love and Aubrey Jaffer
+;;;
+;;; This code is in the public domain.
 
 ;;Modified by David Love (d.love@daresbury.ac.uk) 10/12/91
 ;; NB this is for the 01nov91 (and, presumably, later ones,
@@ -36,6 +21,12 @@
 
 (define (scheme-implementation-type) 'Scheme->C)
 
+;;; (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.