From b8a7bb448665224d88d9b7c696281f3f266d8bf4 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 23 Jul 2016 09:58:23 +0200 Subject: [PATCH] syntax.mes: update from scheme48-1.1. --- syntax.mes | 49 ++++++++++++++++++++++++++++++++----------------- 1 file changed, 32 insertions(+), 17 deletions(-) diff --git a/syntax.mes b/syntax.mes index d39cf97f..ebc7faee 100644 --- a/syntax.mes +++ b/syntax.mes @@ -1,22 +1,5 @@ ;; -*-scheme-*- -;;; Taken from scheme48-0-21/alt/syntax.scm -- the file itself -;;; mentions no license or copyright, but this is in COPYING - -;; Copyright (c) 1993 by Richard Kelsey and Jonathan Rees. - -;; Use of this program for non-commercial purposes is permitted provided -;; that such use is acknowledged both in the software itself and in -;; accompanying documentation. - -;; Use of this program for commercial purposes is also permitted, but -;; only if, in addition to the acknowledgement required for -;; non-commercial users, written notification of such use is provided by -;; the commercial user to the authors prior to the fabrication and -;; distribution of the resulting software. - - - (define (syntax-error message thing) (display "syntax-error:") (display message) @@ -24,6 +7,38 @@ ;;(display thing) (newline)) +;;; Adapted from scheme48-1.1/scheme/alt/syntax.scm + +;;; Copyright (c) 1993-2004 by Richard Kelsey and Jonathan Rees. See file COPYING. + +;;; scheme48-1.1/COPYING + +;; Copyright (c) 1993-2004 Richard Kelsey and Jonathan Rees +;; All rights reserved. + +;; Redistribution and use in source and binary forms, with or without +;; modification, are permitted provided that the following conditions +;; are met: +;; 1. Redistributions of source code must retain the above copyright +;; notice, this list of conditions and the following disclaimer. +;; 2. Redistributions in binary form must reproduce the above copyright +;; notice, this list of conditions and the following disclaimer in the +;; documentation and/or other materials provided with the distribution. +;; 3. The name of the authors may not be used to endorse or promote products +;; derived from this software without specific prior written permission. + +;; THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR +;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES +;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. +;; IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, +;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT +;; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF +;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + + (display "mes:define-syntax...") (define-macro (mes:define-syntax macro-name transformer . stuff)