original commit: 91d76e80b5e3b025179ee4bfd039b65f0e56bf6c
This commit is contained in:
Matthew Flatt 2001-02-21 21:48:53 +00:00
parent b477015fa1
commit 2f55b7938c

View File

@ -27,11 +27,11 @@
(lambda (l)
(map
(lambda (a)
(cons (syntax->datum (let ([s (symbol->string (syntax-e a))])
(if (char=? #\* (string-ref s (sub1 (string-length s))))
(substring s 0 (sub1 (string-length s)))
s))
#f (quote-syntax here))))
(datum->syntax (let ([s (symbol->string (syntax-e a))])
(if (char=? #\* (string-ref s (sub1 (string-length s))))
(substring s 0 (sub1 (string-length s)))
s))
#f (quote-syntax here)))
l))])
(let ([clauses
(let loop ([csrcs (syntax->list (syntax (clause ...)))][clauses null])
@ -147,6 +147,7 @@
(let ([formals
(let loop ([f (syntax arg-formals)])
(syntax-case f ()
[() null]
[(arg . rest)
(identifier? (syntax arg))
(cons (syntax arg) (loop (syntax rest)))]