Import Upstream version 2c7upstream/2c7

1 files changed, 14 insertions, 18 deletions

diff --git a/mitscheme.init b/mitscheme.init
index bd612b0..ab1e1b7 100644
--- a/mitscheme.init
+++ b/mitscheme.init
@@ -1,21 +1,7 @@
 ;;;"mitscheme.init" Initialization for SLIB for MITScheme        -*-scheme-*-
-;;; Copyright (C) 1991, 1992, 1993, 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.
 
 ;;; Make this part of your ~/.scheme.init file.
 
@@ -29,6 +15,13 @@
 
 (define (scheme-implementation-type) 'MITScheme)
 
+;;; (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/scheme-home.html")
+
 ;;; (scheme-implementation-version) should return a string describing
 ;;; the version the scheme implementation loading this file.
 
@@ -161,9 +154,12 @@
 	    (lambda () (proc port))))))))
 
 (define object->string write-to-string)
+(define object->limited-string write-to-string)
 
 ;;; CHAR-CODE-LIMIT is one greater than the largest integer which can
-;;; be returned by CHAR->INTEGER.  It is defined by MITScheme.
+;;; be returned by CHAR->INTEGER.  It is defined incorrectly (65536)
+;;; by MITScheme version 8.0.
+(define char-code-limit 256)
 
 ;;; MOST-POSITIVE-FIXNUM is used in modular.scm
 (define most-positive-fixnum #x03FFFFFF)