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