Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | added auxiliary-keyword |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8d5903b93cdd83c40e2aaeefe484475c |
| User & Date: | aldo 2016-09-04 14:55:04 |
Context
|
2016-09-12
| ||
| 17:31 | added some keyboard functions check-in: 3c717fb0e5 user: aldo tags: trunk | |
|
2016-09-04
| ||
| 14:55 | added auxiliary-keyword check-in: 8d5903b93c user: aldo tags: trunk | |
| 14:50 | added missing file changes check-in: b358a80757 user: aldo tags: trunk | |
Changes
Added srfi/private/auxiliary-keyword.sls.
1 + 2 +#!r6rs 3 +(library (srfi private auxiliary-keyword) 4 + (export define-auxiliary-keyword define-auxiliary-keywords) 5 + (import (scheme)) 6 + 7 + (define-syntax define-auxiliary-keyword 8 + (syntax-rules () 9 + [(_ name) 10 + (define-syntax name 11 + (lambda (x) 12 + (syntax-violation 'name "misplaced use of auxiliary keyword" x)))])) 13 + 14 + (define-syntax define-auxiliary-keywords 15 + (syntax-rules () 16 + [(_ name* ...) 17 + (begin (define-auxiliary-keyword name*) ...)]))) 18 +