From aefaaa26d0daba7dd1e49fe21df8b25a6bfc678e Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sun, 15 Feb 2009 20:47:49 +0000 Subject: [PATCH] re-enable code svn: r13612 --- collects/drscheme/syncheck/extra-typed.ss | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/collects/drscheme/syncheck/extra-typed.ss b/collects/drscheme/syncheck/extra-typed.ss index 4e79dc7b21..6c1555dc9f 100644 --- a/collects/drscheme/syncheck/extra-typed.ss +++ b/collects/drscheme/syncheck/extra-typed.ss @@ -17,15 +17,15 @@ [else (let: loop : (Listof Syntax) ([fst : Syntax (car ids)] [rst : (Listof Syntax) (cdr ids)]) - (error 'foo) #;(cond - [(null? rst) (list fst)] - [else (if (and (eq? (syntax-source fst) - (syntax-source (car rst))) - ;; CHANGE - used eqv? instead of =, since these might be #f - (eqv? (syntax-position fst) - (syntax-position (car rst)))) - (loop fst (cdr rst)) - (cons fst (loop (car rst) (cdr rst))))]))])) + (cond + [(null? rst) (list fst)] + [else (if (and (eq? (syntax-source fst) + (syntax-source (car rst))) + ;; CHANGE - used eqv? instead of =, since these might be #f + (eqv? (syntax-position fst) + (syntax-position (car rst)))) + (loop fst (cdr rst)) + (cons fst (loop (car rst) (cdr rst))))]))])) ;; name-duplication? : (listof syntax) (listof id-set) symbol -> boolean