Artifact 2df7a6a9868ca434f45ccf530d3ffd92b7b5d624:

• File srfi/private/auxiliary-keyword.sls — part of check-in [8d5903b93c] at 2016-09-04 14:55:04 on branch trunk — added auxiliary-keyword (user: aldo size: 474)

#!r6rs
(library (srfi private auxiliary-keyword)
	 (export define-auxiliary-keyword define-auxiliary-keywords)
	 (import (scheme))

	 (define-syntax define-auxiliary-keyword
	   (syntax-rules ()
	     [(_ name)
	      (define-syntax name 
		(lambda (x)
		  (syntax-violation 'name "misplaced use of auxiliary keyword" x)))]))
	 
	 (define-syntax define-auxiliary-keywords
	   (syntax-rules ()
	     [(_ name* ...)
	      (begin (define-auxiliary-keyword name*) ...)])))