syntax.mes: update from scheme48-1.1.

This commit is contained in:
Jan Nieuwenhuizen 2016-07-23 09:58:23 +02:00
parent 6abaa294ba
commit b8a7bb4486

View file

@ -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)