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

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

@ -17,7 +17,7 @@
[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)))