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 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
#!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*) ...)])))
|