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

re-enable code

Browse Source 
svn: r13612
This commit is contained in:
Sam Tobin-Hochstadt 2009-02-15 20:47:49 +00:00
parent 738b8311af
commit aefaaa26d0
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/drscheme/syncheck/extra-typed.ss
View File

@ -17,15 +17,15 @@
[else (let: loop : (Listof Syntax) [else (let: loop : (Listof Syntax)
([fst : Syntax (car ids)] ([fst : Syntax (car ids)]
[rst : (Listof Syntax) (cdr ids)]) [rst : (Listof Syntax) (cdr ids)])
(error 'foo) #;(cond (cond
[(null? rst) (list fst)] [(null? rst) (list fst)]
[else (if (and (eq? (syntax-source fst) [else (if (and (eq? (syntax-source fst)
(syntax-source (car rst))) (syntax-source (car rst)))
;; CHANGE - used eqv? instead of =, since these might be #f ;; CHANGE - used eqv? instead of =, since these might be #f
(eqv? (syntax-position fst) (eqv? (syntax-position fst)
(syntax-position (car rst)))) (syntax-position (car rst))))
(loop fst (cdr rst)) (loop fst (cdr rst))
(cons fst (loop (car rst) (cdr rst))))]))])) (cons fst (loop (car rst) (cdr rst))))]))]))
;; name-duplication? : (listof syntax) (listof id-set) symbol -> boolean ;; name-duplication? : (listof syntax) (listof id-set) symbol -> boolean