123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- (library (rnrs syntax-case (6))
- (export make-variable-transformer
- syntax-case
- syntax
-
- identifier?
- bound-identifier=?
- free-identifier=?
- syntax->datum
- datum->syntax
- generate-temporaries
- with-syntax
- quasisyntax
- unsyntax
- unsyntax-splicing
- syntax-violation)
- (import (only (guile) make-variable-transformer
- syntax-case
- syntax
-
- identifier?
- bound-identifier=?
- free-identifier=?
-
- syntax->datum
- datum->syntax
- generate-temporaries
- with-syntax
- quasisyntax
- unsyntax
- unsyntax-splicing)
- (ice-9 optargs)
- (rnrs base (6))
- (rnrs conditions (6))
- (rnrs exceptions (6))
- (rnrs records procedural (6)))
- (define* (syntax-violation who message form #:optional subform)
- (let* ((conditions (list (make-message-condition message)
- (make-syntax-violation form subform)))
- (conditions (if who
- (cons (make-who-condition who) conditions)
- conditions)))
- (raise (apply condition conditions))))
- )
|