syntax.mes: update from scheme48-1.1.
This commit is contained in:
parent
6abaa294ba
commit
b8a7bb4486
49
syntax.mes
49
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)
|
||||
|
|
Loading…
Reference in a new issue