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 --- scheme2c.init | 29 ++++++++++------------------- 1 file changed, 10 insertions(+), 19 deletions(-) (limited to 'scheme2c.init') 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. -- cgit v1.2.3