Import Upstream version 2c7upstream/2c7

1 files changed, 11 insertions, 1 deletions

diff --git a/scsh.init b/scsh.init
index ac6d1b9..04d4818 100644
--- a/scsh.init
+++ b/scsh.init
@@ -1,4 +1,7 @@
-;"scsh.init" Initialisation for SLIB for Scsh 0.5.1	-*-scheme-*-
+;;; "scsh.init" Initialisation for SLIB for Scsh 0.5.1	-*-scheme-*-
+;;; Author: Aubrey Jaffer
+;;;
+;;; This code is in the public domain.
 
 ;;; (software-type) should be set to the generic operating system type.
 ;;; UNIX, VMS, MACOS, AMIGA and MS-DOS are supported.
@@ -10,6 +13,13 @@
 
 (define (scheme-implementation-type) 'Scsh)
 
+;;; (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)
+  "http://swissnet.ai.mit.edu/scsh/")
+
 ;;; (scheme-implementation-version) should return a string describing
 ;;; the version the scheme implementation loading this file.