From bd9733926076885e3417b74de76e4c9c7bc56254 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:28 -0800 Subject: Import Upstream version 2c7 --- mitscheme.init | 32 ++++++++++++++------------------ 1 file changed, 14 insertions(+), 18 deletions(-) (limited to 'mitscheme.init') 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) -- cgit v1.2.3