suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make no meta-keywords case faster

Browse Source 
svn: r2675
This commit is contained in:
Eli Barzilay 2006-04-15 17:33:54 +00:00
parent 2690f1ea7c
commit 5552630953
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/kw.ss
View File

@ -410,7 +410,17 @@
(syntax/loc stx (lambda vars (let* ([optvar optexpr] ...) body))))]))
(syntax-case stx ()
[(_ formals expr0 expr ...)
(generate-body #'formals #'(let () expr0 expr ...))]))
;; check if there are only identifiers, and save the whole mess if so
(if (let loop ([xs #'formals])
(cond [(syntax? xs) (loop (syntax-e xs))]
[(symbol? xs) #t]
[(null? xs) #t]
[(not (pair? xs)) #f]
[(symbol? (if (syntax? (car xs)) (syntax-e (car xs)) (car xs)))
(loop (cdr xs))]
[else #f]))
#'(lambda formals expr0 expr ...)
(generate-body #'formals #'(let () expr0 expr ...)))]))
(provide define/kw)
(define-syntax (define/kw stx)