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

Fix mzscheme-isms.

Browse Source 
svn: r13410
This commit is contained in:
Stevie Strickland 2009-02-04 07:12:27 +00:00
parent 9cd105b667
commit d293f628d0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/private/red-sem-macro-helpers.ss
View File

@ -6,7 +6,7 @@
(define (extract-names stx) (define (extract-names stx)
(let ([dup-names (let ([dup-names
(let loop ([sexp (syntax-object->datum stx)] (let loop ([sexp (syntax->datum stx)]
[names null]) [names null])
(match sexp (match sexp
[`(name ,(and sym (? symbol?)) ,pat) [`(name ,(and sym (? symbol?)) ,pat)
@ -26,6 +26,6 @@
[(null? sexp) names] [(null? sexp) names]
[else (i-loop (cdr sexp) (loop (car sexp) names))]))] [else (i-loop (cdr sexp) (loop (car sexp) names))]))]
[else names]))] [else names]))]
[ht (make-hash-table)]) [ht (make-hasheq)])
(for-each (lambda (name) (hash-table-put! ht name #f)) dup-names) (for-each (lambda (name) (hash-set! ht name #f)) dup-names)
(hash-table-map ht (lambda (x y) x)))) (hash-map ht (lambda (x y) x))))